From 8b89b43897e8ed5080b8a18b931766e09557fa63 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Mon, 14 Mar 2022 20:40:31 +1100
Subject: fixing whitespace.

---
 emms-info-ytdl.el | 54 +++++++++++++++++++++++++++---------------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

diff --git a/emms-info-ytdl.el b/emms-info-ytdl.el
index b1936c8..9136860 100644
--- a/emms-info-ytdl.el
+++ b/emms-info-ytdl.el
@@ -52,39 +52,39 @@
   "Regexp not to use ytdl to get info.")
 
 (defvar emms-info-ytdl-command
-	"youtube-dl"
-	"Command to run for emms-info-ytdl.")
+  "youtube-dl"
+  "Command to run for emms-info-ytdl.")
 
 (defun emms-info-ytdl (track)
   "Set TRACK info using ytdl."
   (when (and (eq (emms-track-type track) 'url)
-						 (string-match emms-info-ytdl-regexp (emms-track-name track))
-						 (not
-							(string-match emms-info-ytdl-exclude-regexp
-														(emms-track-name track))))
+             (string-match emms-info-ytdl-regexp (emms-track-name track))
+             (not
+              (string-match emms-info-ytdl-exclude-regexp
+                            (emms-track-name track))))
     (with-temp-buffer
       (when (zerop
-						 (let ((coding-system-for-read 'utf-8))
-							 (call-process 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)))
-							(mapc
-							 (lambda (field-map)
-								 (let ((emms-field (car field-map))
-											 (ytdl-field (cdr field-map)))
-									 (let ((track-field (assoc ytdl-field json-fields)))
-										 (when track-field
-											 (emms-track-set
-												track
-												emms-field
-												(if (eq emms-field 'info-playing-time)
-														(truncate (cdr track-field))
-													(cdr track-field)))))))
-							 emms-info-ytdl-field-map))
-					(error (message "error while reading track info")))
-				track))))
+             (let ((coding-system-for-read 'utf-8))
+               (call-process 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)))
+              (mapc
+               (lambda (field-map)
+                 (let ((emms-field (car field-map))
+                       (ytdl-field (cdr field-map)))
+                   (let ((track-field (assoc ytdl-field json-fields)))
+                     (when track-field
+                       (emms-track-set
+                        track
+                        emms-field
+                        (if (eq emms-field 'info-playing-time)
+                            (truncate (cdr track-field))
+                          (cdr track-field)))))))
+               emms-info-ytdl-field-map))
+          (error (message "error while reading track info")))
+        track))))
 
 (provide 'emms-info-ytdl)
 
-- 
cgit v1.2.3