diff options
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-emms.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el index c2d2eaa..cdd9567 100644 --- a/emacs/.emacs.d/lisp/my/my-emms.el +++ b/emacs/.emacs.d/lisp/my/my-emms.el @@ -464,21 +464,29 @@ under /zzz-seren/." (min end-ln maybe-group-end)))) (cons group-start group-end)))) +(defvar-local my-emms-playlist-group-start-overlay nil) +(defvar-local my-emms-playlist-group-end-overlay nil) + (defun my-emms-playlist-mark-bounds (group-end) "Mark bounds of the current track group. An up arrow at the first played in the current group, and a down arrow at the end of the track group." - (remove-overlays) + (when my-emms-playlist-group-start-overlay + (delete-overlay my-emms-playlist-group-start-overlay)) + (when my-emms-playlist-group-start-overlay + (delete-overlay my-emms-playlist-group-end-overlay)) + (setq my-emms-playlist-group-start-overlay (make-overlay (point) (point))) (overlay-put - (make-overlay (point) (point)) + my-emms-playlist-group-start-overlay 'before-string (propertize "x" 'display `(left-fringe up-arrow emms-playlist-selected-face))) (save-excursion (goto-line (1- group-end)) + (setq my-emms-playlist-group-end-overlay (make-overlay (point) (point))) (overlay-put - (make-overlay (point) (point)) + my-emms-playlist-group-end-overlay 'before-string (propertize "x" 'display `(left-fringe down-arrow emms-playlist-selected-face))))) |