From c08b637e52279de40e365a55d5361b03461aadf9 Mon Sep 17 00:00:00 2001 From: William Xu Date: Sun, 8 Jul 2007 12:00:00 +0000 Subject: emms-playlist-sort.el: Minor updates. darcs-hash:20070708120050-cfa61-c1714b94ed7b1e12993fc6b7fc526bbf92b33653.gz --- emms-playlist-sort.el | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) diff --git a/emms-playlist-sort.el b/emms-playlist-sort.el index 0af3fb3..b125486 100644 --- a/emms-playlist-sort.el +++ b/emms-playlist-sort.el @@ -20,22 +20,13 @@ ;; along with EMMS; 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: (require 'emms-score) (eval-when-compile (require 'cl)) -;;; Customizations +;;; User Customizations (defgroup emms-playlist-sort nil "Sorting Emacs Multimedia System playlists." @@ -59,9 +50,8 @@ info-tracknumber." :group 'emms-playlist-sort) -;;; Interfaces +;;; User Interfaces -;; sort macro (defmacro define-emms-playlist-sort (attribute) "Macro for defining emms playlist sort functions." `(defun ,(intern (format "emms-playlist-sort-by-%s" attribute)) () @@ -119,7 +109,7 @@ increasingly." emms-playlist-sort-map))) -;;; Low Level +;;; Low Level Functions (defun emms-playlist-sort (predicate &optional start end) "Sort the playlist buffer by PREDICATE. -- cgit v1.2.3