From 3cc364fc552d48e644e48648635a1cba8ad49da0 Mon Sep 17 00:00:00 2001
From: yonirabkin <yonirabkin>
Date: Mon, 19 Sep 2005 16:02:00 +0000
Subject: Added emms-playlist-mode-insert-function (fixed sorting and shuffling
 font-lock)

darcs-hash:20050919160239-be80e-2d58597fe1bc610e96305febbf54365555ae04a1.gz
---
 emms-playlist-mode.el | 25 +++++++++++++++++++++++--
 1 file 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)
@@ -278,6 +281,24 @@ of the saved playlist inside."
   (interactive "FFile to save playlist buffer as: ")
   (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
 ;;; --------------------------------------------------------
-- 
cgit v1.2.3