From 67f5263943276faee0de53d947b6191205ae7a43 Mon Sep 17 00:00:00 2001 From: William Xu Date: Tue, 17 Jun 2008 14:43:45 +0900 Subject: *.el -> lisp/*.el: Move lisp files into "lisp/" subdirectory. --- lisp/emms-playlist-sort.el | 204 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 204 insertions(+) create mode 100644 lisp/emms-playlist-sort.el (limited to 'lisp/emms-playlist-sort.el') diff --git a/lisp/emms-playlist-sort.el b/lisp/emms-playlist-sort.el new file mode 100644 index 0000000..3916c74 --- /dev/null +++ b/lisp/emms-playlist-sort.el @@ -0,0 +1,204 @@ +;;; emms-playlist-sort.el --- sort emms playlist + +;; Copyright (C) 2005, 2006, 2007, 2008 Free Software Foundation, Inc. + +;; Author: William Xu + +;; This file is part of EMMS. + +;; EMMS 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 3, or (at your option) +;; any later version. +;; +;; EMMS 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 EMMS; if not, write to the Free Software Foundation, +;; Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. + +;;; Code: + +(eval-when-compile (require 'cl)) +(require 'emms-last-played) +(require 'emms-playlist-mode) + +;;; User Customizations + +(defgroup emms-playlist-sort nil + "Sorting Emacs Multimedia System playlists." + :prefix "emms-playlist-sort-" + :group 'emms) + +(defcustom emms-playlist-sort-list '(info-artist info-album) + "Sorting list used by `emms-playlist-sort-by-list'. +Currently it understands the following fields: name info-artist +imfo-composer info-performer info-title info-album info-genre +info-playing-time info-tracknumber." + :type 'symbol + :group 'emms-playlist-sort) + +(defcustom emms-playlist-sort-prefix "S" + "Prefix key sequence for `emms-playlist-sort-map'. +Remember to call `emms-playlist-sort-map-setup' if you modify it." + :type 'string + :group 'emms-playlist-sort) + + +;;; User Interfaces + +(defmacro define-emms-playlist-sort (attribute) + "Macro for defining emms playlist sort functions on strings ." + `(defun ,(intern (format "emms-playlist-sort-by-%s" attribute)) () + ,(format "Sort emms playlist by %s, increasingly. +With a prefix argument, decreasingly." attribute) + (interactive) + (emms-playlist-sort + (lambda (a b) + (if current-prefix-arg + (emms-string> (emms-track-get a (quote ,attribute)) + (emms-track-get b (quote ,attribute))) + (emms-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-composer) +(define-emms-playlist-sort info-performer) +(define-emms-playlist-sort info-title) +(define-emms-playlist-sort info-album) +(define-emms-playlist-sort info-year) +(define-emms-playlist-sort info-note) + +(defun emms-playlist-sort-by-natural-order () + "Sort emms playlist by natural order. +See `emms-sort-natural-order-less-p'." + (interactive) + (emms-playlist-sort 'emms-sort-natural-order-less-p)) + +(defun emms-playlist-sort-by-list () + "Sort emms playlist by `emms-playlist-sort-list'. +The sort will be carried out until comparsion succeeds, increasingly." + (interactive) + (emms-playlist-sort 'emms-playlist-sort-by-list-p)) + +(defun emms-playlist-sort-by-last-played () + "Sort emms playlist by last played time, increasingly. +With a prefix argument, decreasingly." + (interactive) + (emms-playlist-sort + '(lambda (a b) + (let ((ret (time-less-p + (or (emms-track-get a 'last-played) '(0 0 0)) + (or (emms-track-get b 'last-played) '(0 0 0))))) + (if current-prefix-arg + (not ret) + ret))))) + +(defun emms-playlist-sort-by-play-count () + "Sort emms playlist by play-count, increasingly. +With a prefix argument, decreasingly." + (interactive) + (emms-playlist-sort + '(lambda (a b) + (let ((ret (< (or (emms-track-get a 'play-count) 0) + (or (emms-track-get b 'play-count) 0)))) + (if current-prefix-arg + (not ret) + ret))))) + +(defvar emms-playlist-sort-map nil) + +(defun emms-playlist-sort-map-setup () + "Setup sort map with latest `emms-playlist-sort-prefix'." + (setq emms-playlist-sort-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "n") 'emms-playlist-sort-by-natural-order) + (define-key map (kbd "a") 'emms-playlist-sort-by-info-artist) + (define-key map (kbd "c") 'emms-playlist-sort-by-play-count) + (define-key map (kbd "b") 'emms-playlist-sort-by-info-album) + (define-key map (kbd "l") 'emms-playlist-sort-by-last-played) + (define-key map (kbd "t") 'emms-playlist-sort-by-info-title) + + (define-key map (kbd "p") 'emms-playlist-sort-by-info-performer) + (define-key map (kbd "y") 'emms-playlist-sort-by-info-year) + (define-key map (kbd "o") 'emms-playlist-sort-by-info-note) + (define-key map (kbd "C") 'emms-playlist-sort-by-info-composer) + (define-key map (kbd "L") 'emms-playlist-sort-by-list) + (define-key map (kbd "N") 'emms-playlist-sort-by-name) + map)) + + (define-key emms-playlist-mode-map + emms-playlist-sort-prefix emms-playlist-sort-map)) + +(setq emms-playlist-sort-map (emms-playlist-sort-map-setup)) + + +;;; Low Level Functions + +(defun emms-playlist-sort (predicate) + "Sort the playlist buffer by PREDICATE." + (with-current-emms-playlist + (emms-playlist-ensure-playlist-buffer) + (let ((current (emms-playlist-selected-track)) + (tracks (nreverse + (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)) + ;; (emms-playlist-mode-center-current) + (goto-char (point-min)) + )))) + +(defun emms-sort-natural-order-less-p (a b) + "Sort two tracks by natural order. +This is the order in which albums where intended to be played. +ie. by album name and then by track number." + (let ((album-a (emms-track-get a 'info-album)) + (album-b (emms-track-get b 'info-album))) + (or (emms-string< album-a album-b) + (and album-a + album-b + (string= album-a album-b) + (< (string-to-number (or (emms-track-get a 'info-tracknumber) + "0")) + (string-to-number (or (emms-track-get b 'info-tracknumber) + "0"))))))) + +(defun emms-playlist-sort-by-list-p (a b) + (catch 'return + (dolist (info emms-playlist-sort-list) + (case info + ((name info-artist info-composer info-performer info-title info-album info-genre) + (when (emms-string< (emms-track-get a info) + (emms-track-get b info)) + (throw 'return t))) + ((info-playing-time) + (when (< (emms-track-get a info) + (emms-track-get b info)) + (throw 'return t))) + ((info-tracknumber) + (when (< (string-to-number (or (emms-track-get a info) "0")) + (string-to-number (or (emms-track-get b info) "0"))) + (throw 'return t))))))) + +(defun emms-string< (s1 s2) + (string< (downcase (or s1 "")) (downcase (or s2 "")))) + +(defun emms-string> (s1 s2) + (let ((a (downcase (or s1 ""))) + (b (downcase (or s2 "")))) + (not (or (string= a b) (string< a b))))) + +(provide 'emms-playlist-sort) + +;;; emms-playlist-sort.el ends here -- cgit v1.2.3