aboutsummaryrefslogtreecommitdiff
path: root/emacs/.emacs.d/lisp/my/emms-info-ytdl.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/.emacs.d/lisp/my/emms-info-ytdl.el')
-rw-r--r--emacs/.emacs.d/lisp/my/emms-info-ytdl.el12
1 files changed, 5 insertions, 7 deletions
diff --git a/emacs/.emacs.d/lisp/my/emms-info-ytdl.el b/emacs/.emacs.d/lisp/my/emms-info-ytdl.el
index 489f3fb..0c7a1d2 100644
--- a/emacs/.emacs.d/lisp/my/emms-info-ytdl.el
+++ b/emacs/.emacs.d/lisp/my/emms-info-ytdl.el
@@ -31,7 +31,7 @@
(require 'emms-info)
(require 'json)
-
+(require 'tor)
(defgroup emms-info-ytdl nil
"Options for EMMS."
@@ -70,12 +70,10 @@
(with-temp-buffer
(when (zerop
(let ((coding-system-for-read 'utf-8))
- (if emms-info-ytdl-using-torsocks
- (my-call-process-with-torsocks
- emms-info-ytdl-command nil '(t nil) nil "-j"
- (emms-track-name track))
- (call-process emms-info-ytdl-command nil '(t nil) nil
- "-j" (emms-track-name track)))))
+ (my-call-process-with-torsocks
+ (not emms-info-ytdl-using-torsocks)
+ emms-info-ytdl-command nil '(t nil) nil "-j"
+ (emms-track-name track))))
(goto-char (point-min))
(condition-case nil
(let ((json-fields (json-read)))