X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=emus.git;a=blobdiff_plain;f=emus.el;h=cfa674a86ea8b49a1142003d5b40738dbeb3d607;hp=23a1da113b5f5ce0d18bdd5b34912a623d5955e0;hb=HEAD;hpb=91912da763a84f486701b222b0c53da598833d09 diff --git a/emus.el b/emus.el index 23a1da1..e5f2ea3 100644 --- a/emus.el +++ b/emus.el @@ -56,12 +56,18 @@ "Name of (and, optionally, path to) mpg123 binary." :type '(string)) +(defcustom emus-mpg123-args nil + "Arguments to pass to mpg123." + :type '(repeat string)) + (defface emus-artist - '((t :inherit font-lock-string-face :background "#333")) + '((((background dark)) :inherit font-lock-string-face :background "#222" :extend t) + (t :inherit font-lock-string-face :background "#ddd" :extend t)) "Face used for artist names in browser.") (defface emus-album - '((t :inherit font-lock-constant-face :background "#222")) + '((((background dark)) :inherit font-lock-constant-face :background "#111" :extend t) + (t :inherit font-lock-constant-face :background "#eee" :extend t)) "Face used for album names in browser.") (defface emus-track @@ -69,7 +75,7 @@ "Face used for track titles in browser.") (defface emus-track-current - '((t :inherit font-lock-keyword-face :inverse-video t)) + '((t :inherit font-lock-keyword-face :inverse-video t :extend t)) "Face used for track titles in browser.") (defface emus-cursor @@ -98,6 +104,14 @@ Used to prevent commands from interfering with library construction.") (defvar emus-current-volume 100 "The current playback volume.") +(defvar emus-current-progress "" + "String describing the progress through the current track.") + +(defvar emus-progress-enabled t + "Current state of progress tracking. + +To enable or disable progress tracking, using `emus-toggle-progress-tracking'. +(Changing the value of this variable will not affect anything.)") ;;; mpg123 process ;; @@ -115,9 +129,12 @@ Used to prevent commands from interfering with library construction.") emus-process (let ((proc (make-process :name "emus-process" - :command `(,emus-mpg123-program "-R")))) + :command `(,emus-mpg123-program + ,@emus-mpg123-args + "-R")))) (set-process-query-on-exit-flag proc nil) - (process-send-string proc "silence\n") + (unless emus-progress-enabled + (process-send-string proc "silence\n")) proc)))) (defun emus--send-cmd-raw (cmd &rest args) @@ -134,6 +151,14 @@ be used by `emus--load-library'." (unless emus--proc-in-use (apply #'emus--send-cmd-raw cmd args))) +(defun emus-kill-process () + "Kill any existing mpg123 process." + (let ((emus-process (get-process "emus-process"))) + (if emus-process + (kill-process emus-process)) + (setq emus-state 'stopped + emus--proc-in-use nil + emus-tracks nil))) ;;; Library ;; @@ -141,17 +166,22 @@ be used by `emus--load-library'." (defun emus-get-audio-files () "Get all mp3 files in main emus directory." (mapcar - (lambda (f) - (expand-file-name f)) + #'expand-file-name (directory-files-recursively emus-directory ".*\\.mp3"))) +(defun emus-get-playlist-files () + "Get all m3u files in the main emus music directory." + (mapcar + #'expand-file-name + (directory-files-recursively emus-directory ".*\\.m3u"))) + (defun emus-make-track (artist album title filename &optional pos) "Create an object representing an emus track. ARTIST, ALBUM and TITLE are used to describe the track, FILENAME refers to the mp3 file containing the track. If non-nil, POS specifies the position of the record representing this track in the emus browser buffer." - (vector artist album title filename pos)) + (list artist album title filename pos)) (defun emus-track-artist (track) "The artist corresponding to TRACK." @@ -175,7 +205,7 @@ emus browser buffer." (defun emus-set-track-browser-pos (track pos) "Set the location of the browser buffer record corresponding to TRACK to POS." - (aset track 4 pos)) + (setf (seq-elt track 4) pos)) (defun emus--load-library (then) "Initialize the emus track library. @@ -184,10 +214,10 @@ Once the library is initialized, the function THEN is called." (setq emus--proc-in-use t) (emus--suspend-cp) (setq emus-state 'stopped) + (setq emus-tracks nil) (let ((proc (emus-get-process)) (tagstr "") (filenames (emus-get-audio-files))) - (setq emus-tracks nil) (set-process-filter proc (lambda (proc string) (setq tagstr (concat tagstr string)) (when (string-suffix-p "@P 1\n" string) @@ -201,6 +231,7 @@ Once the library is initialized, the function THEN is called." (set-process-filter proc nil) (setq emus-tracks (reverse emus-tracks)) (emus--sort-tracks) + (emus--add-tracks-from-playlist-files) (unless emus-current-track (setq emus-current-track (car emus-tracks))) (funcall then) @@ -208,11 +239,14 @@ Once the library is initialized, the function THEN is called." (setq emus--proc-in-use nil))))) (emus--send-cmd-raw "lp" (car filenames))))) +(defun emus--dump-tracks () + emus-tracks) + (defun emus--make-track-from-tagstr (filename tagstr) "Parse TAGSTR to populate the fields of a track corresponding to FILENAME." - (let ((artist "") - (album "") - (title "")) + (let ((artist "Unknown Artist") + (album "Unknown Album") + (title filename)) (dolist (line (split-string tagstr "\n")) (let ((found-artist (elt (split-string line "@I ID3v2.artist:") 1)) (found-album (elt (split-string line "@I ID3v2.album:") 1)) @@ -221,21 +255,48 @@ Once the library is initialized, the function THEN is called." (found-artist (setq artist found-artist)) (found-album (setq album found-album)) (found-title (setq title found-title))))) - (emus-make-track artist album title filename nil))) + (emus-make-track artist album title filename))) + +(defun emus--add-tracks-from-playlist-files () + (let ((tracks nil)) + (dolist (filename (emus-get-playlist-files)) + (let ((artist "Playlists") + (album (file-name-base filename)) + (title nil) + (lines (split-string (with-temp-buffer + (insert-file-contents filename) + (buffer-string)) + "\n"))) + (dolist (line lines) + (pcase (string-trim line) + ((rx (: string-start + (* space) + "#extinf:" + (* (not ",")) "," + (let display-title (* any)) + string-end)) + (setq title display-title)) + ((rx (: string-start (* space) "#"))) ;skip other comments + ((rx (let filename (+ any))) + (setq tracks (cons (emus-make-track artist album (or title filename) filename) + tracks)) + (setq title nil)))))) + (setq emus-tracks (append emus-tracks (reverse tracks))))) (defun emus--sort-tracks () "Sort the library tracks according to artist and album. Leaves the track titles unsorted, so they will appear in the order specified by the filesystem." - (sort emus-tracks - (lambda (r1 r2) - (let ((artist1 (emus-track-artist r1)) - (artist2 (emus-track-artist r2))) - (if (string= artist1 artist2) - (let ((album1 (emus-track-album r1)) - (album2 (emus-track-album r2))) - (string< album1 album2)) - (string< artist1 artist2)))))) + (setq emus-tracks + (sort emus-tracks + (lambda (r1 r2) + (let ((artist1 (emus-track-artist r1)) + (artist2 (emus-track-artist r2))) + (if (string= artist1 artist2) + (let ((album1 (emus-track-album r1)) + (album2 (emus-track-album r2))) + (string< album1 album2)) + (string< artist1 artist2))))))) (defmacro emus--with-library (&rest body) "Evaluate BODY with the library initialized." @@ -254,13 +315,13 @@ by the filesystem." (defun emus--resume-cp () "Resume continuous playback." - (setq emus-continuous-playback t) - (set-process-filter (emus-get-process) - (lambda (_proc string) - (and emus-continuous-playback - (eq emus-state 'playing) - (string-suffix-p "@P 0\n" string) - (emus-play-next))))) + (setq emus-continuous-playback t)) + +(defun emus--timestamp (seconds-total) + "Produce a timestamp string representation of SECONDS-TOTAL." + (let* ((seconds (truncate (mod seconds-total 60))) + (minutes (truncate (/ seconds-total 60)))) + (format "%02d:%02d" minutes seconds))) (defun emus-play-track (track) "Set TRACK as current and start playing." @@ -269,6 +330,40 @@ by the filesystem." (emus-send-cmd "l" (emus-track-file track)) (setq emus-state 'playing) (setq emus-current-track track) + (setq emus-current-progress (if emus-progress-enabled "" " (progress disabled)")) + (set-process-filter + (emus-get-process) + (lambda (_proc string) + (dolist (line (string-split string "\n")) + (pcase line + ((and "@P 0" + (guard emus-continuous-playback) + (guard (eq emus-state 'playing))) + (emus-play-next)) + ((and (guard emus-progress-enabled) + (rx (: string-start + "@I ICY-META: StreamTitle=" + (let str (+ (not ";"))) + ";"))) + (message (concat "Emus: Playing stream " str))) + ((and (guard emus-progress-enabled) + (rx (: string-start + "@F " + (+ digit) + " " + (+ digit) + " " + (let left-str (+ (not " "))) + " " + (let right-str (+ any))))) + (let* ((left (string-to-number left-str)) + (right (string-to-number right-str)) + (total (+ left right))) + (setq emus-current-progress + (format " %s/%s" + (emus--timestamp left) + (emus--timestamp total))))) + )))) (emus--update-track old-track) (emus--update-track track) (emus--resume-cp) @@ -402,6 +497,16 @@ If PREV is non-nil, plays the last track of the previous album." (interactive) (emus-jump -10)) +(defun emus-jump-1m-forward () + "Jump 1 minute forward in current track." + (interactive) + (emus-jump 60)) + +(defun emus-jump-1m-backward () + "Jump 1 minute backward in current track." + (interactive) + (emus-jump -60)) + (defun emus-display-status () "Display the current playback status in the minibuffer." (interactive) @@ -410,15 +515,29 @@ If PREV is non-nil, plays the last track of the previous album." (concat "Emus: Volume %d%%" (pcase emus-state ('stopped " [Stopped]") - ('paused " [Paused]") - ('playing " [Playing]") + ('paused (format " [Paused%s]" emus-current-progress)) + ('playing (format " [Playing%s]" emus-current-progress)) (_ "")) - (if emus-current-track - (format " - %.30s (%.20s)" - (emus-track-title emus-current-track) - (emus-track-artist emus-current-track)) - "")) - emus-current-volume))) + " %s") + emus-current-volume + (if emus-current-track + (format "- %.30s (%.20s, %.20s)" + (emus-track-title emus-current-track) + (emus-track-album emus-current-track) + (emus-track-artist emus-current-track)) + "")))) + +(defun emus-toggle-progress-tracking () + "Enable/disable progress tracking." + (interactive) + (setq emus-progress-enabled (not emus-progress-enabled)) + (if emus-progress-enabled + (progn + (emus-send-cmd "progress") + (setq emus-current-progress "")) + (progn + (emus-send-cmd "silence") + (setq emus-current-progress " (progress diabled)")))) ;;; Browser @@ -435,6 +554,7 @@ and thus requires both artist and album headers." (let* ((artist (emus-track-artist track)) (album (emus-track-album track)) (title (emus-track-title track)) + (album-symb (intern (concat artist album))) (help-str (format "mouse-1, RET: Play '%.30s' (%.20s)" title artist)) (field (intern album))) ;Allows easy jumping between albums with cursor. (when (or prev-track first) @@ -480,12 +600,14 @@ and thus requires both artist and album headers." 'follow-link t 'help-echo help-str 'emus-track track + 'invisible album-symb 'field field) (insert (propertize "\n" 'face (if is-current 'emus-track-current 'emus-track) - 'field field))))) + 'field field + 'invisible album-symb))))) (defun emus--update-track (track) "Rerender entry for TRACK in emus browser buffer. @@ -609,6 +731,24 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha (emus-jump-10s-backward) (emus-display-status)) +(defun emus-jump-1m-forward-status () + "Jump 10s forward in current track, then display the emus status in the minibuffer." + (interactive) + (emus-jump-1m-forward) + (emus-display-status)) + +(defun emus-jump-1m-backward-status () + "Jump 10s backward in current track, then display the emus status in the minibuffer." + (interactive) + (emus-jump-1m-backward) + (emus-display-status)) + +(defun emus-toggle-progress-status () + "Toggle progress tracking, then display the emus status in the minibuffer." + (interactive) + (emus-toggle-progress-tracking) + (emus-display-status)) + (defun emus-goto-current-status () "Move point to the current track, then display the emus status in the minibuffer." (interactive) @@ -620,9 +760,23 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha (interactive) (emus-stop) (setq emus-tracks nil) - (emus--with-library - (emus-browse) - (emus-display-status))) + (emus-browse) + (emus-display-status)) + +(defun emus-restart-browse () + "Restart the emus process, then refresh the browse window." + (interactive) + (message "Restarting mpg123.") + (emus-kill-process) + (run-at-time 0.1 nil #'emus-browse)) ;Slight delay to wait for kill signal to take effect + +(defun emus-restart-status () + "Restart the emus process, then display the status." + (interactive) + (message "Restarting mpg123.") + (emus-kill-process) + (run-at-time 0.1 nil #'emus-display-status)) ;Slight delay to wait for kill signal to take effect + (defvar emus-browser-mode-map (let ((map (make-sparse-keymap))) @@ -638,27 +792,36 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha (define-key map (kbd "P") 'emus-play-prev-album-status) (define-key map (kbd ",") 'emus-jump-10s-backward-status) (define-key map (kbd ".") 'emus-jump-10s-forward-status) + (define-key map (kbd "<") 'emus-jump-1m-backward-status) + (define-key map (kbd ">") 'emus-jump-1m-forward-status) (define-key map (kbd "c") 'emus-goto-current-status) + (define-key map (kbd "#") 'emus-toggle-progress-status) + (define-key map (kbd "!") 'emus-restart-browse) (when (fboundp 'evil-define-key*) (evil-define-key* 'motion map - (kbd "SPC") 'emus-playpause-status - (kbd "o") 'emus-stop-status - (kbd "+") 'emus-volume-up-status - (kbd "=") 'emus-volume-up-status - (kbd "-") 'emus-volume-down-status - (kbd "R") 'emus-refresh-status - (kbd "n") 'emus-play-next-status - (kbd "p") 'emus-play-prev-status - (kbd "N") 'emus-play-next-album-status - (kbd "P") 'emus-play-prev-album-status - (kbd ",") 'emus-jump-10s-backward-status - (kbd ".") 'emus-jump-10s-forward-status - (kbd "c") 'emus-goto-current-status)) + (kbd "SPC") 'emus-playpause-status + (kbd "o") 'emus-stop-status + (kbd "+") 'emus-volume-up-status + (kbd "=") 'emus-volume-up-status + (kbd "-") 'emus-volume-down-status + (kbd "R") 'emus-refresh-status + (kbd "n") 'emus-play-next-status + (kbd "p") 'emus-play-prev-status + (kbd "N") 'emus-play-next-album-status + (kbd "P") 'emus-play-prev-album-status + (kbd ",") 'emus-jump-10s-backward-status + (kbd ".") 'emus-jump-10s-forward-status + (kbd "<") 'emus-jump-1m-backward-status + (kbd ">") 'emus-jump-1m-forward-status + (kbd "c") 'emus-goto-current-status + (kbd "#") 'emus-toggle-progress-status + (kbd "!") #'emus-restart-browse)) map) "Keymap for emus browser.") (define-derived-mode emus-browser-mode special-mode "emus-browser" - "Major mode for EMUS music player file browser.") + "Major mode for EMUS music player file browser." + (setq-local buffer-invisibility-spec nil)) (when (fboundp 'evil-set-initial-state) (evil-set-initial-state 'emus-browser-mode 'motion))