From d51c84b413b46ffdb2f3125cab79780f2365a534 Mon Sep 17 00:00:00 2001 From: yoctocell Date: Tue, 15 Dec 2020 08:46:08 +0100 Subject: [PATCH] Fix issues pointed out by melpa member Fix the issues pointed out by @riscy, see https://github.com/melpa/melpa/pull/7275#issuecomment-744792224 --- peertube.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/peertube.el b/peertube.el index c174270..036f36e 100644 --- a/peertube.el +++ b/peertube.el @@ -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) -- 2.38.5