diff options
| author | yonirabkin <yonirabkin> | 2005-09-19 16:02:00 +0000 |
|---|---|---|
| committer | yonirabkin <mwolson@gnu.org> | 2005-09-19 16:02:00 +0000 |
| commit | 3cc364fc552d48e644e48648635a1cba8ad49da0 (patch) | |
| tree | 87c6569f663f4b08ec6c75b0ba0d3e7d7c5ec9cc /emms-playlist-mode.el | |
| parent | 8ff0169a2e17104d9dd3e7e0b826fb8fbdedaa35 (diff) | |
Added emms-playlist-mode-insert-function (fixed sorting and shuffling font-lock)
darcs-hash:20050919160239-be80e-2d58597fe1bc610e96305febbf54365555ae04a1.gz
Diffstat (limited to 'emms-playlist-mode.el')
| -rw-r--r-- | emms-playlist-mode.el | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index d55d93a..d9f43da 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -39,6 +39,9 @@ :prefix "emms-playlist-mode-" :group 'multimedia) +(setq emms-playlist-insert-track-function + 'emms-playlist-mode-insert-track-function) + ;;; -------------------------------------------------------- ;;; Faces ;;; -------------------------------------------------------- @@ -220,8 +223,8 @@ FACE should be a... face." ;;; Hooks ;;; -------------------------------------------------------- -(add-hook 'emms-playlist-source-inserted-hook - 'emms-playlist-mode-overlay-unselected) +;; (add-hook 'emms-playlist-source-inserted-hook +;; 'emms-playlist-mode-overlay-unselected) (add-hook 'emms-playlist-selection-changed-hook 'emms-playlist-mode-overlay-selected) @@ -279,6 +282,24 @@ of the saved playlist inside." (emms-playlist-mode-save-buffer emms-playlist-buffer filename)) ;;; -------------------------------------------------------- +;;; Overshadowing functions +;;; -------------------------------------------------------- + +(defun emms-playlist-mode-insert-track-function (track) + "Insert the description of TRACK at point." + (emms-playlist-ensure-playlist-buffer) + (insert (propertize (emms-track-description track) + 'emms-track track)) + (emms-playlist-mode-overlay-track (car (emms-property-region (point-at-bol) + 'emms-track)) + (cdr (emms-property-region (point-at-bol) + 'emms-track)) + 'emms-playlist-track-face + 1) + (insert "\n")) + + +;;; -------------------------------------------------------- ;;; Entry ;;; -------------------------------------------------------- |