diff options
| author | bd <bdunahu@operationnull.com> | 2024-07-21 20:10:08 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-07-21 20:10:08 -0600 |
| commit | cb62d1fee12e0fa33e746e0e1d497fbee2154601 (patch) | |
| tree | d38d07313d69d13f64a318af9eb876ab26fee398 /.config/emacs/modules/bd--emms.el | |
| parent | f52526765cba9b33617b0e76c5da3416120e21de (diff) | |
Move current track, time, to tab bar. Tab bar always on.
Diffstat (limited to '.config/emacs/modules/bd--emms.el')
| -rw-r--r-- | .config/emacs/modules/bd--emms.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el index db07176..c2a9a8e 100644 --- a/.config/emacs/modules/bd--emms.el +++ b/.config/emacs/modules/bd--emms.el @@ -17,9 +17,6 @@ playback." (use-package emms :bind (("C-z C-s" . 'emms-quickstart) ("C-z C-p" . 'emms-play-playlist)) - :hook - (emms-playlist-selection-changed . (lambda () - (start-process-shell-command "refreshstatus" nil "refreshstatus"))) :config (emms-all) (require 'emms-player-mpd) @@ -30,8 +27,18 @@ playback." (if (get-buffer emms-playlist-buffer-name) (display-buffer emms-playlist-buffer-name) (message "The Ainur cannot hear you...")))) - ;; "emms-playlist-mode-bury-buffer" plays poorly with shackle - (keymap-set emms-playlist-mode-map "q" #'quit-window) + (emms-playing-time-disable-display) + (setopt emms-track-description-function + '(lambda (track) + (let ((artist (emms-track-get track 'info-artist)) + (title (emms-track-get track 'info-title))) + (cond + ((and artist title) + (concat artist " - " title)) + (title + title) + (t + (emms-track-simple-description track)))))) :custom ;; make sure mpd is configured similarly (emms-player-mpd-server-name "localhost") @@ -43,8 +50,7 @@ playback." ;; misc (emms-info-report-each-num-tracks 2000) (emms-playlist-buffer-name "*Playlist*") - (emms-mode-line-disable)) - + (emms-mode-line-format " %s ")) (provide 'bd--emms) ;;; bd-emms ends here |