diff options
Diffstat (limited to '.emacs.d/modules/thanos-multimedia.el')
-rw-r--r-- | .emacs.d/modules/thanos-multimedia.el | 51 |
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) |