~yoctocell/peertube

d51c84b413b46ffdb2f3125cab79780f2365a534 — yoctocell 1 year, 9 months ago 9a6d916
Fix issues pointed out by melpa member

Fix the issues pointed out by @riscy, see https://github.com/melpa/melpa/pull/7275#issuecomment-744792224
1 files changed, 4 insertions(+), 5 deletions(-)

M peertube.el
M peertube.el => peertube.el +4 -5
@@ 1,4 1,4 @@
;;; peertube.el --- Query PeerTube videos -*- lexical-binding: t; -*-
;;; peertube.el --- Query and download PeerTube videos -*- lexical-binding: t; -*-

;; Copyright (C) 2020 yoctocell



@@ 59,7 59,7 @@
  "List of available resolutions for videos in `peertube'.

The order matters, the first one will be the default choice.
Note: Not all resolutions are available for att videos."
Note: Not all resolutions are available for all videos."
  :type 'list
  :group 'peertube)



@@ 234,10 234,9 @@ Format to thousands (K) or millions (M) if necessary."
  (interactive)
  (let ((url (peertube-video-thumbnailUrl (peertube--get-current-video)))
	(temp-file (make-temp-file "thumbnail")))
    (progn
      (call-process "curl" nil nil nil url "-o" temp-file)
      (find-file temp-file)
      (image-transform-set-scale 4))))
      (image-transform-set-scale 4)))

(defun peertube-show-video-info ()
  "Show more information about video under point."


@@ 361,7 360,7 @@ parsed by `json-read'."
  (switch-to-buffer "*peertube*")
  (unless (eq major-mode 'peertube-mode)
    (peertube-mode)
    (call-interactively 'peertube-search)))
    (call-interactively #'peertube-search)))

(provide 'peertube)