diff options
| author | Damien Elmes <emms@repose.cx> | 2006-07-04 15:34:00 +0000 |
|---|---|---|
| committer | Damien Elmes <emms@repose.cx> | 2006-07-04 15:34:00 +0000 |
| commit | 303055e04a5556dc412e69189d6985b917555ed1 (patch) | |
| tree | f06772c58a1de85f6b589b5468f79935349e4541 /emms-browser.el | |
| parent | 6bc9791da7daebbc89bb6f2ad2da83c14a5f8ff8 (diff) | |
browser: indent albums, don't propertize indent
darcs-hash:20060704153422-4e3e3-ebb8cf0b25fc1599729c43675016956551388ea4.gz
Diffstat (limited to 'emms-browser.el')
| -rw-r--r-- | emms-browser.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/emms-browser.el b/emms-browser.el index c6c98d0..5476366 100644 --- a/emms-browser.el +++ b/emms-browser.el @@ -1215,7 +1215,7 @@ included." ;; FIXME: make this nicer (defun emms-browser-year-and-album-fmt (bdata fmt) (concat - "%cS" + "%i%cS" (let ((year (emms-browser-format-elem fmt "y"))) (if (and year (not (string= year "0"))) "(%y) " @@ -1224,7 +1224,7 @@ included." (defun emms-browser-year-and-album-fmt-med (bdata fmt) (concat - "%cM" + "%i%cM" (let ((year (emms-browser-format-elem fmt "y"))) (if (and year (not (string= year "0"))) "(%y) " @@ -1326,8 +1326,12 @@ If > album level, most of the track data will not make sense." (insert format) (goto-char (point-min)) (let ((start (point-min))) + ;; jump over any image (when (re-search-forward "%c[SML]" nil t) (setq start (point))) + ;; jump over the indent + (when (re-search-forward "%i" nil t) + (setq start (point))) (add-text-properties start (point-max) (list 'face face))) (buffer-string))) |