The Lambda Lab
/
projects
/
emus.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
869c7b3
)
Browser albums now different fields.
author
Tim Vaughan
<timv@ughan.xyz>
Fri, 13 Dec 2019 16:35:36 +0000
(17:35 +0100)
committer
Tim Vaughan
<timv@ughan.xyz>
Fri, 13 Dec 2019 16:35:36 +0000
(17:35 +0100)
emus.el
patch
|
blob
|
history
diff --git
a/emus.el
b/emus.el
index
2c879c4
..
7c90711
100644
(file)
--- a/
emus.el
+++ b/
emus.el
@@
-433,7
+433,8
@@
and thus requires both artist and album headers."
(let* ((artist (emus-track-artist track))
(album (emus-track-album track))
(title (emus-track-title track))
(let* ((artist (emus-track-artist track))
(album (emus-track-album track))
(title (emus-track-title track))
- (help-str (format "mouse-1, RET: Play '%.30s' (%.20s)" title artist)))
+ (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)
(unless (equal (emus-track-artist prev-track) artist)
(insert-text-button
(when (or prev-track first)
(unless (equal (emus-track-artist prev-track) artist)
(insert-text-button
@@
-441,16
+442,22
@@
and thus requires both artist and album headers."
'action #'emus--click-track
'follow-link t
'help-echo help-str
'action #'emus--click-track
'follow-link t
'help-echo help-str
- 'emus-track track)
- (insert (propertize "\n" 'face 'emus-artist)))
+ 'emus-track track
+ 'field field)
+ (insert (propertize "\n"
+ 'face 'emus-artist
+ 'field field)))
(unless (equal (emus-track-album prev-track) album)
(insert-text-button
(propertize (concat " " album) 'face 'emus-album)
'action #'emus--click-track
'follow-link t
'help-echo help-str
(unless (equal (emus-track-album prev-track) album)
(insert-text-button
(propertize (concat " " album) 'face 'emus-album)
'action #'emus--click-track
'follow-link t
'help-echo help-str
- 'emus-track track)
- (insert (propertize "\n" 'face 'emus-album))))
+ 'emus-track track
+ 'field field)
+ (insert (propertize "\n"
+ 'face 'emus-album
+ 'field field))))
(emus-set-track-browser-pos track (point))
(let ((is-current (equal track emus-current-track)))
(insert-text-button
(emus-set-track-browser-pos track (point))
(let ((is-current (equal track emus-current-track)))
(insert-text-button
@@
-470,11
+477,13
@@
and thus requires both artist and album headers."
'action #'emus--click-track
'follow-link t
'help-echo help-str
'action #'emus--click-track
'follow-link t
'help-echo help-str
- 'emus-track track)
+ 'emus-track track
+ 'field field)
(insert (propertize "\n"
'face (if is-current
'emus-track-current
(insert (propertize "\n"
'face (if is-current
'emus-track-current
- 'emus-track))))))
+ 'emus-track)
+ 'field field)))))
(defun emus--update-track (track)
"Rerender entry for TRACK in emus browser buffer.
(defun emus--update-track (track)
"Rerender entry for TRACK in emus browser buffer.