emacs: (multimedia) fix emms keybindings

1 files changed, 23 insertions, 28 deletions

diff --git a/.emacs.d/modules/thanos-multimedia.el b/.emacs.d/modules/thanos-multimedia.el
index 69df8df..cb65190 100644
--- a/.emacs.d/modules/thanos-multimedia.el
+++ b/.emacs.d/modules/thanos-multimedia.el
@@ -31,23 +31,31 @@
 
 ;; EMMS
 
-(use-package emms
-  :straight t
-  :bind
-  ("A" . 'emms-add-directory)
-  :config
-  (setf emms-player-list '(emms-player-mpv)
-	emms-player-mpv-parameters '("--no-video")
-	emms-info-functions '(emms-info-native)
-	emms-playlist-buffer-name "*Music*"
-	emms-source-file-default-directory "~/Music"))
-
-
-(define-key 'thanos/applications-map (kbd "e") 'emms)
+(require 'straight)
+(require 'emms)
+
+(setf emms-player-list '(emms-player-mpv)
+      emms-player-mpv-parameters '("--no-video")
+      emms-info-functions '(emms-info-native)
+      emms-playlist-buffer-name "*Music*"
+      emms-source-file-default-directory "~/Music")
+
+
+(define-key emms-playlist-mode-map (kbd "A") #'emms-add-directory-tree)
+(define-key thanos/applications-map (kbd "e") 'emms)
       
 
-;; yeetube
+;; Yeetube
+(straight-use-package '(yeetube :type git
+				:host nil
+				:branch "dev" ;; testing branch
+				:repo "https://git.thanosapollo.com/yeetube"))
+;; Update to the latest version
+(straight-pull-package 'yeetube)
+
+
 (defun yeetube-download-vimeo-videos ()
+  "."
   (interactive)
   (let ((url "")
 	(name "")
@@ -64,13 +72,7 @@
 	 nil 0)))))
 
 (defun yeetube-download-videos-ffmpeg ()
-  "Download one or multiple videos using yt-dlp.
-This command is not meant to be used in the *Yeetube Search* buffer.
-
-Usage Example:
-Open a Dired buffer and navigate where you want to download your videos,
-then run this command interactively.  You can leave the 'Custom name:'
-prompt blank to keep the default name."
+  "."
   (interactive)
   (let ((url "")
 	(name "")
@@ -92,13 +94,6 @@ prompt blank to keep the default name."
 	  "ffmpeg -protocol_whitelist file,crypto,data,https,tls,tcp -stats -i '%s' -codec copy '%s.mp4'"
 	  url name))))))
 
-(when is-zeus
-  (add-to-list 'load-path "~/Developer/emacs-lisp/yeetube")
-  (load-file "~/Developer/emacs-lisp/yeetube/yeetube.el"))
-
-
-(straight-use-package '(yeetube :type git :host nil :repo "https://git.thanosapollo.com/yeetube"))
-
 (setf yeetube-results-limit 20
       yeetube-mpv-disable-video t)