scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-16 20:10:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

another try, doesn't work either, now using c to jump to current

Browse Source
This commit is contained in:
Thomas von Dein
2023-07-22 19:22:41 +02:00
parent 83fecbcb59
commit 8d31a1720b
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/init-audio.el
View File

@@ -104,6 +104,20 @@ the user declines to add another file."
(emms-playlist-save 'native filename)
(emms-playlist-mode))))))))
(defun tvd-emms-follow-playing-song()
(interactive)
(emms-playlist-mode-center-current))
;; (let ((track (emms-track-get (emms-playlist-current-selected-track) 'name)))
;; (message (format "track name: %s" track)))
;; (message (format "%s" emms-playlist-selected-marker))
;; (save-restriction
;; (when emms-playlist-selected-marker
;; (goto-char emms-playlist-selected-marker))))
;; we need to apply this hook automatically because use-package's
;; :hook keyword doesn't supporting appending a hook
(add-hook 'emms-playlist-selection-changed-hook 'tvd-emms-follow-playing-song 1)
:hook
(emms-playlist-mode . hl-line-mode)
(emms-playlist-source-inserted . beginning-of-buffer)
@@ -112,7 +126,7 @@ the user declines to add another file."
( "<right>" . 'emms-seek-forward)
( "<left>" . 'emms-seek-backward)
( "<SPC>" . 'emms-pause)
( "c" . 'emms-playlist-set-playlist-buffer)
;; ( "c" . 'emms-playlist-set-playlist-buffer) default: 'emms-playlist-mode-center-current
( "b" . 'tvd-emms-beginning-of-song)
( "r" . 'emms-toggle-repeat-track)
( "R" . 'emms-toggle-repeat-playlist)))