From 66d6f60c1a4fa48d83ee33f1c5c9e4293f72d181 Mon Sep 17 00:00:00 2001
From: yonirabkin <yonirabkin>
Date: Fri, 23 Sep 2005 17:03:00 +0000
Subject: add emms-metaplaylist-mode.el

darcs-hash:20050923170348-be80e-1a580b48fcd338db45ef2f069554cc0b946285bb.gz
---
 emms-metaplaylist-mode.el | 145 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 145 insertions(+)
 create mode 100644 emms-metaplaylist-mode.el

diff --git a/emms-metaplaylist-mode.el b/emms-metaplaylist-mode.el
new file mode 100644
index 0000000..6a314a1
--- /dev/null
+++ b/emms-metaplaylist-mode.el
@@ -0,0 +1,145 @@
+;;; emms-metaplaylist-mode.el --- A major mode for lists of Emms
+;;; playlists
+
+;;; Copyright 2005, by Yoni Rabkin under the GNU General Public
+;;; License.
+
+;;; Commentary:
+;;
+;; `emms-metaplaylist-mode' creates an interactive list of all the
+;; Emms playlist buffers. The currently active buffer is
+;; highlighted. You can choose a buffer from the list with RET and get
+;; taken there.
+
+;;; Code:
+
+(require 'emms-playlist-mode)
+
+;;; --------------------------------------------------------
+;;; Variables, customisation and faces
+;;; --------------------------------------------------------
+
+(defgroup emms-metaplaylist-mode nil
+  "*The Emacs Multimedia System meta-playlist mode."
+  :prefix "emms-metaplaylist-mode-"
+  :group 'multimedia)
+
+(defcustom emms-metaplaylist-mode-buffer-name "*Emms Playlists*"
+  "*Name of the buffer in which Emms playlists will be listed."
+  :type 'string
+  :group 'emms-metaplaylist-mode)
+
+(defcustom emms-metaplaylist-mode-hooks nil
+  "*List of hooks to run on entry to emms-metaplaylist-mode."
+  :type 'list
+  :group 'emms-metaplaylist-mode)
+
+(defface emms-metaplaylist-mode-face
+  '((((class color) (background dark))
+     :foreground "AntiqueWhite3")
+    (((type tty) (class mono))
+     :inverse-video t)
+    (t :background "WhiteSmoke"))
+  "Face for the buffer names in the playlists buffer."
+  :group 'emms-metaplaylist-mode)
+
+(defface emms-metaplaylist-mode-current-face
+  '((((class color) (background dark))
+     :foreground "red2")
+    (((type tty) (class mono))
+     :inverse-video t)
+    (t :background "red3"))
+  "Face for the current buffer name in the playlists buffer."
+  :group 'emms-metaplaylist-mode)
+
+;;; --------------------------------------------------------
+;;; Keymap
+;;; --------------------------------------------------------
+
+(defconst emms-metaplaylist-mode-map
+  (let ((emms-metaplaylist-mode-map (make-sparse-keymap)))
+    (set-keymap-parent emms-metaplaylist-mode-map text-mode-map)
+    (define-key emms-metaplaylist-mode-map (kbd "n") 'next-line)
+    (define-key emms-metaplaylist-mode-map (kbd "p") 'previous-line)
+    (define-key emms-metaplaylist-mode-map (kbd "RET") 'emms-metaplaylist-mode-goto-current)
+    (define-key emms-metaplaylist-mode-map (kbd "q") 'kill-buffer)
+    (define-key emms-metaplaylist-mode-map (kbd "?") 'describe-mode)
+    emms-metaplaylist-mode-map)
+  "Keymap for `emms-metaplaylist-mode'.")
+
+;;; --------------------------------------------------------
+;;; Metaplaylist
+;;; --------------------------------------------------------
+
+(defun emms-metaplaylist-mode-goto-current ()
+  "Switch to the buffer at point."
+  (interactive)
+  (switch-to-buffer
+   (buffer-substring (point-at-bol)
+		     (point-at-eol))))
+
+(defun get-emms-playlist-buffers ()
+  "Return a list of EMMS playlist buffers."
+  (let ((lis nil))
+    (mapc (lambda (buf)
+	    (with-current-buffer buf
+	      (when emms-playlist-buffer-p
+		(setq lis (cons buf lis)))))
+	  (buffer-list))
+    lis))
+
+;; Since there will never be a significantly large amount of playlist
+;; buffers co-existing at once, we allow ourselves not to keep
+;; state. We regenerate the playlists buffer anew on demand.
+(defun emms-metaplaylist-mode-create ()
+  "Create or recreate the meta-playlist buffer."
+  (let ((name emms-metaplaylist-mode-buffer-name)
+	(playlists (get-emms-playlist-buffers)))
+    (if playlists
+	(progn
+	  (ignore-errors (kill-buffer name))
+	  (get-buffer-create name)
+	  (with-current-buffer name
+	    (emms-metaplaylist-mode)
+	    (save-excursion
+	      (mapc (lambda (buf)
+		      (let ((inhibit-read-only t))
+			(insert (buffer-name buf))
+			(emms-playlist-mode-overlay-track
+			 (point-at-bol)
+			 (point-at-eol)
+			 (if (eq buf emms-playlist-buffer)
+			     'emms-metaplaylist-mode-face
+			   'emms-metaplaylist-mode-current-face
+			   1)
+			 (newline))))
+		    playlists))
+	    (current-buffer)))	       ; return the buffer as lisp obj
+      (error "No Emms playlist buffers"))))
+
+;;; --------------------------------------------------------
+;;; Mode entry
+;;; --------------------------------------------------------
+
+(defun emms-metaplaylist-mode-go ()
+  "Single entry point to the metaplaylist interface."
+  (interactive)
+  (emms-metaplaylist-mode-create)
+  (switch-to-buffer emms-metaplaylist-mode-buffer-name))
+
+(defun emms-metaplaylist-mode ()
+  "A major mode for Emms playlists."
+  (interactive)
+  (kill-all-local-variables)
+
+  (use-local-map emms-metaplaylist-mode-map)
+  (setq major-mode 'emms-metaplaylist-mode
+	mode-name "Emms-MetaPlaylist")
+
+  (setq buffer-read-only t)
+
+  (run-hooks 'emms-metaplaylist-mode-hooks))
+
+(provide 'emms-metaplaylist-mode)
+
+;;; emms-metaplaylist-mode.el ends here
-- 
cgit v1.2.3