emms-playlist-sort.el: New file containing various playlist sort

functions.

darcs-hash:20051007084756-e8fe6-cc88b1e1d581e801dc339ec97a6f5534599d79cf.gz

1 files changed, 84 insertions, 0 deletions

diff --git a/emms-playlist-sort.el b/emms-playlist-sort.el
new file mode 100644
index 0000000..09e3cc1
--- /dev/null
+++ b/emms-playlist-sort.el
@@ -0,0 +1,84 @@
+;;; emms-playlist-sort.el --- sort emms playlist
+
+;; Copyright (C) 2005 William Xu
+
+;; Author: William Xu <william.xwl@gmail.com>
+;; $Id: emms-playlist-sort.el,v 0.1 2005/10/06 00:29:36 xwl Exp $
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301 USA
+
+;;; Commentary:
+
+;; Provide various playlist sort functions for emms, such as
+;; `emms-playlist-sort-by-info-title'.
+
+;; Put this file into your load-path and the following into your
+;; ~/.emacs:
+;;            (require 'emms-playlist-sort)
+
+;;; Code:
+
+;;; sort macro
+
+(defmacro define-emms-playlist-sort (attribute)
+  "Macro for defining emms playlist sort functions."
+  `(defun ,(intern (format "emms-playlist-sort-by-%s" attribute)) ()
+     ,(format "Sort emms playlist by %s." attribute)
+     (interactive)
+     (emms-playlist-sort
+      (lambda (a b)
+	(string< (emms-track-get a (quote ,attribute))
+		 (emms-track-get b (quote ,attribute)))))))
+
+(define-emms-playlist-sort name)
+(define-emms-playlist-sort info-artist)
+(define-emms-playlist-sort info-title)
+(define-emms-playlist-sort info-album)
+(define-emms-playlist-sort info-year)
+(define-emms-playlist-sort info-note)
+
+(define-key emms-playlist-mode-map (kbd "S n") 'emms-playlist-sort-by-name)
+(define-key emms-playlist-mode-map (kbd "S a") 'emms-playlist-sort-by-info-artist)
+(define-key emms-playlist-mode-map (kbd "S t") 'emms-playlist-sort-by-info-title)
+(define-key emms-playlist-mode-map (kbd "S b") 'emms-playlist-sort-by-name)
+(define-key emms-playlist-mode-map (kbd "S y") 'emms-playlist-sort-by-info-year)
+(define-key emms-playlist-mode-map (kbd "S o") 'emms-playlist-sort-by-info-note)
+
+(defun emms-playlist-sort (predicate)
+  "Sort the whole playlist buffer by PREDICATE."
+  (with-current-emms-playlist
+    (save-excursion
+      (emms-playlist-ensure-playlist-buffer)
+      (widen)
+      (let ((current (emms-playlist-selected-track))
+	    (tracks (emms-playlist-tracks-in-region (point-min)
+						    (point-max))))
+	(delete-region (point-min)
+		       (point-max))
+	(run-hooks 'emms-playlist-cleared-hook)
+	(mapc 'emms-playlist-insert-track
+	      (sort tracks predicate))
+	(let ((pos (text-property-any (point-min)
+				      (point-max)
+				      'emms-track current)))
+	  (if pos
+	      (emms-playlist-select pos)
+	    (emms-playlist-first)))))))
+
+
+(provide 'emms-playlist-sort)
+
+;;; emms-playlist-sort.el ends here