diff options
| -rw-r--r-- | emms-pbi-filter.el | 66 | ||||
| -rw-r--r-- | emms-pbi-mark.el | 167 | ||||
| -rw-r--r-- | emms-pbi-popup.el | 128 | ||||
| -rw-r--r-- | emms-pbi.el | 473 |
4 files changed, 0 insertions, 834 deletions
diff --git a/emms-pbi-filter.el b/emms-pbi-filter.el deleted file mode 100644 index 0d29822..0000000 --- a/emms-pbi-filter.el +++ /dev/null @@ -1,66 +0,0 @@ -;;; emms-pbi-filter.el --- Filtering functions for the PBI - -;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc. - -;; Author: Ulrik Jensen <terryp@daimi.au.dk> -;; Keywords: - -;; This file 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 file 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, -;; Boston, MA 02110-1301 USA - -;;; Commentary: - -;; This file provides a way to filter the playlist to only show -;; certain parts of a big playlist, and only play after those. - -;;; Code: - -(require 'emms-pbi) - -(defvar emms-pbi-not-filtered nil - "A list of trackindexes in `emms-playlist' that aren't filtered -out.") - -(defun emms-pbi-filter-region (beg end) - "Hide the lines spanning the region from BEG to END." - (interactive "r") - (save-excursion - (set-buffer emms-pbi-playlist-buffer-name) - (goto-char beg) - (let ((startofregion (point-at-bol))) - (goto-char end) - (let ((endofregion (point-at-eol))) - (let ((hideoverlay (make-overlay startofregion endofregion)) - (newlineoverlay (make-overlay (- startofregion 1) startofregion)) - (intangibleoverlay (make-overlay (- startofregion 1) (+ endofregion 1)))) - (overlay-put newlineoverlay 'after-string "\n") - (overlay-put newlineoverlay 'invisible t) - (overlay-put newlineoverlay 'emms-id 'emms-pbi-filter-overlay) - (overlay-put intangibleoverlay 'intangible t) - (overlay-put intangibleoverlay 'emms-id 'emms-pbi-filter-overlay) - (overlay-put hideoverlay 'emms-id 'emms-pbi-filter-overlay) - (overlay-put hideoverlay 'invisible t)))))) - -(defun emms-pbi-unfilter-region (beg end) - "Show all hidden lines between BEG and END." - (interactive "r") - (let ((overlays (overlays-in beg end))) - (while overlays - (when (equal (overlay-get (car overlays) 'emms-id) 'emms-pbi-filter-overlay) - (delete-overlay (car overlays))) - (setq overlays (cdr overlays))))) - -(provide 'emms-pbi-filter) -;;; emms-pbi-filter.el ends here diff --git a/emms-pbi-mark.el b/emms-pbi-mark.el deleted file mode 100644 index 78b7967..0000000 --- a/emms-pbi-mark.el +++ /dev/null @@ -1,167 +0,0 @@ -;;; emms-pbi-mark.el --- Mark-functions for the EMMS playlist - -;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. - -;; Author: Ulrik Jensen <terryp@daimi.au.dk> -;; Keywords: - -;; This file 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 file 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, -;; Boston, MA 02110-1301 USA - -;;; Commentary: - -;; This file provides a mark-facility for the EMMS playlist-buffer -;; interface. - -;; To use it, add: - -;; (require 'emms-pbi-mark) -;; (emms-pbi-mark 1) - -;; To your ~/.emacs. - -;;; Code: - -;; $Revision: 1.7 $ -;; $Id: emms-pbi-mark.el,v 1.7 2005/07/09 11:56:00 forcer Exp $ - -;; Customs -(defgroup emms-pbi-mark nil - "Marking utilities for the EMMS playlist" - :prefix "emms-pbi-mark-" - :group 'emms-pbi) - -(defface emms-pbi-mark-marked-face - '((((class color)) - (:foreground "green" :weight bold))) - "Face used for marked files" - :group 'emms-pbi-mark) - -;; variables -(defvar emms-pbi-mark-indices nil - "A list containing the indices of the marked elements.") - -;; Entry -(defun emms-pbi-mark (arg) - "Activate mark-mode for the EMMS-playlist." - (interactive "p") - (if (and arg (< 0 arg)) - (progn - (add-hook 'emms-pbi-current-line-face-changed-hook 'emms-pbi-add-mark-face) - (add-hook 'emms-playlist-changed-hook 'emms-pbi-mark-invalidate-marks) - (add-hook 'emms-pbi-mode-hook 'emms-pbi-mark-add-keybindings)) - (remove-hook 'emms-pbi-current-line-face-changed-hook 'emms-pbi-add-mark-face) - (remove-hook 'emms-pbi-mode-hook 'emms-pbi-mark-add-keybindings) - (remove-hook 'emms-playlist-changed-hook 'emms-pbi-mark-invalidate-marks))) - -(defun emms-pbi-mark-invalidate-marks () - "Force a reset of marked tracks." - (when (get-buffer emms-pbi-playlist-buffer-name) - (emms-pbi-mark-clear-marked)) - (setq emms-pbi-mark-indices nil)) - -(defun emms-pbi-mark-add-keybindings () - "Adds keybindings for the mark-functions to a *Playlist* buffer." - (local-set-key (kbd "m") 'emms-pbi-mark-mark-file) - (local-set-key (kbd "M-u") 'emms-pbi-mark-clear-marked) - (local-set-key (kbd "u") 'emms-pbi-mark-unmark-file)) - -(defun emms-pbi-mark-current-line-marked-p () - "Return non-nil if the current line is marked, nil otherwise." - (let ((idx (emms-pbi-return-current-line-index))) - (if (not idx) - nil - (member idx emms-pbi-mark-indices)))) - -(defun emms-pbi-mark-current-line-mark () - "Mark the current line." - (let ((idx (emms-pbi-return-current-line-index))) - (when (emms-pbi-valid-index-p idx) - (add-to-list 'emms-pbi-mark-indices idx) - (emms-pbi-add-mark-face)))) - -(defun emms-pbi-mark-current-line-unmark () - "Unmark the current line." - (let ((idx (emms-pbi-return-current-line-index))) - (when (and (emms-pbi-valid-index-p idx) - (emms-pbi-mark-current-line-marked-p)) - (setq emms-pbi-mark-indices (remove idx emms-pbi-mark-indices)) - (emms-pbi-remove-mark-face)))) - -(defun emms-pbi-add-mark-face () - "Add a face to the current line, if it is marked." - (when (emms-pbi-mark-current-line-marked-p) - (put-text-property (point-at-bol) (point-at-eol) 'face 'emms-pbi-mark-marked-face))) - -(defun emms-pbi-remove-mark-face () - "Remove the marked-face from the current-line, if it's no longer -marked." - (when (not (emms-pbi-mark-current-line-marked-p)) - (let ((inhibit-read-only t)) - (remove-text-properties (point-at-bol) (point-at-eol) '(face)) - (emms-pbi-add-properties-current-line)))) - -;; Programming interface functions -(defun emms-pbi-mark-get-marked () - "Return a list of tracks marked in the playlist" - (let ((indices emms-pbi-mark-indices) - (tracks nil)) - (while indices - (let ((idx (car indices))) - (when (emms-pbi-valid-index-p idx) - (add-to-list 'tracks (emms-playlist-get-track idx)))) - (setq indices (cdr indices))) - tracks)) - -;; User Interface functions -(defun emms-pbi-mark-clear-marked () - "Clear all marks from the playlist-buffer" - (interactive) - (save-excursion - (set-buffer (get-buffer emms-pbi-playlist-buffer-name)) - (let ((indices emms-pbi-mark-indices) - (tracks nil)) - (while emms-pbi-mark-indices - (let ((idx (car emms-pbi-mark-indices))) - (when (emms-pbi-valid-index-p idx) - (goto-line (1+ idx)) - (emms-pbi-mark-current-line-unmark))))))) - -(defun emms-pbi-mark-mark-file (arg) - "Marks the current line in the playlist. - -With prefix argument, mark the following ARG lines." - (interactive "p") - (let ((marksleft arg) - (inhibit-read-only t)) - (while (> marksleft 0) - (emms-pbi-mark-current-line-mark) - (forward-line 1) - (setq marksleft (1- marksleft))))) - -(defun emms-pbi-mark-unmark-file (arg) - "Removes a mark from the current line in the playlist. - -With prefix argument, unmark the following ARG lines." - (interactive "p") - (let ((marksleft arg) - (inhibit-read-only t)) - (while (> marksleft 0) - (emms-pbi-mark-current-line-unmark) - (forward-line 1) - (setq marksleft (1- marksleft))))) - -(provide 'emms-pbi-mark) -;;; emms-pbi-mark.el ends here diff --git a/emms-pbi-popup.el b/emms-pbi-popup.el deleted file mode 100644 index a9b2191..0000000 --- a/emms-pbi-popup.el +++ /dev/null @@ -1,128 +0,0 @@ -;;; emms-pbi-popup.el --- Playlist-popup functionality for EMMS - -;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. - -;; Author: Ulrik Jensen <terryp@daimi.au.dk> -;; Keywords: - -;; This file 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 file 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, -;; Boston, MA 02110-1301 USA - -;;; Commentary: - -;; - -;;; Code: -(require 'emms-pbi) - -(defvar emms-pbi-popup-version "0.2 $Revision: 1.7 $" - "EMMS pbi popup version string.") -;; $Id: emms-pbi-popup.el,v 1.7 2005/07/09 11:56:00 forcer Exp $ - -(defgroup emms-pbi-popup nil - "*Module for popping up the playlist in a keystroke." - :group 'emms-pbi - :prefix "emms-pbi-popup-") - -(defcustom emms-pbi-popup-default-width (+ (or emms-pbi-playlist-entry-max-length 36) 4) - "*The default width of the window to popup the playlist in. - -This defaults to `emms-pbi-playlist-entry-max-length' + 4, or 40 if -`emms-pbi-playlist-entry-max-length' is nil." - :group 'emms-pbi-popup - :type 'number) - -(defcustom emms-pbi-popup-default-side-left nil - "*Boolean determining whether to popup in the left-side as a -default. If nil, the popup will appear in the right side." - :type 'boolean - :group 'emms-pbi-popup) - -(defvar emms-pbi-popup-old-conf nil - "The window-configuration when popping up the playlist.") - -(defun emms-pbi-popup-forget-conf () - "Forget the previously saved configuration, and make the changes -final." - (setq emms-pbi-popup-old-conf nil) - ;; Remove the special bindings - (emms-pbi-popup-revert) - ;; Remove this function again, it will get addded when a new - ;; configuration is saved anyway - (remove-hook 'window-configuration-change-hook 'emms-pbi-popup-forget-conf)) - -(defun emms-pbi-popup-revert () - "Revert to the window-configuration from before if there is one, -otherwise just remove the special bindings from the playlist." - (interactive) - (remove-hook 'emms-pbi-manually-change-song-hook 'emms-pbi-popup-revert) - (let ((playlistbuffer (get-buffer emms-pbi-playlist-buffer-name))) - (when playlistbuffer - (save-excursion - (set-buffer playlistbuffer) - (local-unset-key (kbd "q")) - (local-unset-key (kbd "TAB"))))) - (when emms-pbi-popup-old-conf - (set-window-configuration emms-pbi-popup-old-conf))) - -;; Entry-point -(defun emms-pbi-popup-playlist (&optional popup-left popup-width ) - "Pops up the playlist temporarily, for selecting a new song. - -If POPUP-LEFT is non-nil, the window will appear in the left side of -the current window, otherwise it will appear in the right side. - -POPUP-WIDTH is the width of the new frame, defaulting to -`emms-pbi-popup-default-width'." - (interactive) - (setq popup-width (or popup-width emms-pbi-popup-default-width) - popup-left (or popup-left emms-pbi-popup-default-side-left)) - ;; Split the current screen, and make the playlist popup - (let ((new-window-width (- (window-width) popup-width))) - (if (not (> new-window-width 0)) - ;; consider just opening the playlist here instead of arguing - ;; semantics with the user? - (error "Current window not wide enough to popup playlist!") - ;; Negative value to popup in the left side - (when popup-left - (setq new-window-width (- new-window-width))) - ;; Make sure EMMS is actually playing before continuing - (if (or (not (emms-playlist-get-playlist)) (= (length (emms-playlist-get-playlist)) 0)) - ;; we haven't got a playlist, exit. - (error "Can't popup playlist-buffer until a playlist has been loaded!") - ;; if - ;; Save the current window-configuration - (setq emms-pbi-popup-old-conf (current-window-configuration)) - ;; Split and select the playlist - (let ((buffer-on-the-right - (split-window-horizontally new-window-width))) - (unless popup-left - (select-window buffer-on-the-right))) - (unless (get-buffer emms-pbi-playlist-buffer-name) - ;; No playlist-buffer yet, create it. - (emms-pbi 1)) - (switch-to-buffer emms-pbi-playlist-buffer-name t) - ;; Now, modify the playlist functionality to revert to the - ;; window-configuration from before when a song is selected - (add-hook 'emms-pbi-manually-change-song-hook 'emms-pbi-popup-revert) - (local-set-key (kbd "TAB") 'emms-pbi-popup-revert) - (local-set-key (kbd "q") 'delete-window) - ;; Also, forget about the whole thing if the user does something - ;; to the window-configuration - (add-hook 'window-configuration-change-hook 'emms-pbi-popup-forget-conf))))) - - -(provide 'emms-pbi-popup) -;;; emms-pbi-popup.el ends here diff --git a/emms-pbi.el b/emms-pbi.el deleted file mode 100644 index 57e72a2..0000000 --- a/emms-pbi.el +++ /dev/null @@ -1,473 +0,0 @@ -;;; pbi.el --- Playlist-buffer interface for emms.el - -;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. - -;; Author: Ulrik Jensen <terryp@daimi.au.dk> -;; Keywords: - -;; This file 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 file 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, -;; Boston, MA 02110-1301 USA - -;;; Commentary: - -;; This module provices a playlist-buffer interface (pbi) to EMMS. - -;; To use it, just add the following to your emms-configuration -;; (.emacs, for example): - -;; (require 'emms-pbi) - -;; If you want the playlist to be generated automagically when you -;; start playing your music, use the following: - -;; (emms-pbi 1) - -;; Another common usage, is to just load the playlist when you need -;; it. This can be achieved by starting emms, and then typing M-x -;; emms-pbi RET. - -;; The default look of the playlist depends on the value of -;; `emms-track-description-function'. This function takes a -;; track-value and returns a string, that will then be formatted -;; further, and inserted into the playlist-buffer. If you want a -;; different function to handle the base-description, but you only -;; want that function for emms-pbi, you can override -;; `emms-pbi-track-description-function', which will fall back to -;; `emms-track-description-function' when nil - -;; You'll probably also want to customize the faces, in which case, -;; you do M-x customize-group RET emms-pbi RET and tweak. - -;; To get id3-tags, and ogg-info, you should look at -;; emms-info.el. This file provides amongst other things, functions -;; suitable as values of `emms-track-description-function' (or if you -;; only want the info in emms-pbi, values of -;; `emms-pbi-track-description-function'). - -;; If you use a big playlist, and info, you probably don't want info -;; to load everything right at once. This can be accomplished through -;; the `emms-info-later-do'-module, which will gradually load the -;; playlist. A note on how to make it work with the PBI as well, is -;; included in that file (and also a part of emms-default.el, -;; currently the 'cvs-setup) - -;; Linenumbering (Changed!) -;; -;; Prior versions of emms-pbi had their own linenumbering -;; functions. But these functions were either error prone or damn -;; slow. And besides there was already a emacs mode that does exactly -;; the same: setnu.el So we remove the linenumbering functions in -;; favour of setnu. You can get setnu from -;; http://www.wonderworks.com/download/setnu.el. To get linenumbers -;; just put the following code in your ~/.emacs and put setnu.el -;; somewhere on your loadpath: -;; -;; (require 'setnu) -;; (add-hook 'emms-pbi-after-build-hook (lambda () (setnu-mode 1))) - -;;; Code: - -(require 'emms) -(require 'cl) - -(defvar emms-pbi-version "0.2 $Revision: 1.37 $" - "EMMS pbi version string.") -;; $Id: emms-pbi.el,v 1.37 2005/07/09 19:14:57 yonirabkin Exp $ - -;; Customizations - -(defgroup emms-pbi nil - "*A playlist-buffer user-interface for EMMS." - :group 'emms - :prefix "emms-pbi-") - -(defcustom emms-pbi-playlist-entry-generate-function 'identity - "*The function to call for generating a single item of the -playlist. This will be called with a string argument FILENAME, and -should return the text to be inserted in the playlist." - :type 'function - :group 'emms-pbi) - -(defcustom emms-pbi-playlist-entry-max-length nil - "*The maximum length of an entry in the playlist. If this is nil, -the entire string provided by `emms-track-description-function'. -will be used. Beware, the output of that function is cut off to fit -the max-length before running -`emms-pbi-playlist-entry-generate-function'." - :type '(restricted-sexp :match-alternatives (integerp 'nil)) - :group 'emms-pbi) - -(defcustom emms-pbi-playlist-buffer-name "*Playlist*" - "Name of the buffer to use as a playlist-buffer" - :type 'string - :group 'emms-pbi) - -(defcustom emms-pbi-track-description-function nil - "Returns a description for the playlist. - -Take track as only argument. If `emms-pbi-track-description-function' is nil, -`emms-track-description-function' is used instead." - :type 'function - :group 'emms-pbi) - -;; Hooks - -(defcustom emms-pbi-after-build-hook nil - "Hook that is run after the playlist buffer is built. -That might be usefull to change the playlist buffer before the -buffer is set read-only." - :type 'hook - :group 'emms-pbi) - -(defcustom emms-pbi-current-line-face-changed-hook nil - "Hook that is called when the face of the current line changes." - :type 'hook - :group 'emms-pbi) - -(defcustom emms-pbi-manually-change-song-hook nil - "Hook that is called when the song is manually changed." - :type 'hook - :group 'emms-pbi) - -;; Faces -(defface emms-pbi-song-face - '((((class color) (background light)) - (:foreground "red")) - (((class color) (background dark)) - (:foreground "red"))) - "Face used for songs" - :group 'emms-pbi) - -(defface emms-pbi-current-face - '((((class color)(background light)) - (:foreground "blue" :weight bold)) - (((class color)(background dark)) - (:foreground "yellow" :weight bold))) - "Face used for the currently played song" - :group 'emms-pbi) - -;; Variables -(defvar emms-pbi-suspend-hooks nil - "When this variable is t, the hooks updating the playlist stop -reacting. - -If you do something with `emms-playlist', and don't want to regenerate -the entire playlist-buffer, a good idea is to bind -`emms-pbi-suspend-hooks' to t when you set `emms-playlist'.") - -(defvar emms-pbi-current-overlay nil - "Overlay moving with the current track.") - -(defvar emms-kill-ring () - "Kill-ring for the playlist buffer.") - -(defvar emms-pbi-longest-line 0 - "The length of the longest line yet inserted.") - -;; Entry points -(defun emms-pbi (arg) - "Turn on emms-playlist if prefix argument ARG is a positive integer, -off otherwise." - (interactive "p") - (if (and arg (> arg 0)) - (progn - (add-hook 'emms-player-started-hook 'emms-pbi-update-current-face) - ;; make sure this is appended! - (add-hook 'emms-playlist-changed-hook 'emms-pbi-rebuild-playlist-buffer t) - ;; build the playlist, if we have a playlist - (if (> (length emms-playlist) 0) - (progn - (emms-pbi-build-playlist-buffer) - (switch-to-buffer emms-pbi-playlist-buffer-name)) - (message "Empty playlist, won't build playlist-buffer!"))) - (remove-hook 'emms-player-stopped-hook 'emms-pbi-remove-current-face) - (remove-hook 'emms-player-starter-hook 'emms-pbi-add-current-face) - (remove-hook 'emms-playlist-changed-hook 'emms-pbi-rebuild-playlist-buffer))) - -(defun emms-pbi-shorten-entry-to-max-length (entry) - "Cut off an entry-text to make sure it's no longer than -`emms-pbi-playlist-entry-max-length' characters long." - (if (and emms-pbi-playlist-entry-max-length - (> (length entry) emms-pbi-playlist-entry-max-length)) - (substring entry 0 emms-pbi-playlist-entry-max-length) - entry)) - -(defun emms-position-vector (elt vector) - "Returns the index of elt in vector" - (let ((curidx 0) - (residx nil)) - (while (and (< curidx (length vector)) (eq residx nil)) - (let ((curelt (aref vector curidx))) - (when (equal elt curelt) - (setq residx curidx))) - (setq curidx (1+ curidx))) - residx)) - -;; This function should probably be phased out, since it depends too -;; much on emms-info. All uses should be replaced by the function -;; below: -(defun emms-pbi-entry-info-updated (track info) - "Update the track-entry based on the info" - (save-excursion - (set-buffer emms-pbi-playlist-buffer-name) - (let ((inhibit-read-only t) - (pos (emms-position-vector track emms-playlist))) - ;; find the entry in the playlist, corresponding to TRACK - (when - (goto-line (1+ pos)) - ;; update the text of it - by generating it again simply - ;; first, find the index of the entry in the playlist. - ;; and save the current properties - (delete-region (point-at-bol) (point-at-eol)) - (emms-pbi-insert-entry (emms-playlist-get-track pos)) - ;; and update them - (emms-pbi-add-properties-current-line))))) - -(defun emms-pbi-entry-update-track (track) - "Update the playlist entry for TRACK." - (let ((trackidx - (loop for i from 0 for a across (emms-playlist-get-playlist) - if (equal a track) return i))) - (when (and trackidx (emms-pbi-valid-index-p trackidx)) - (emms-pbi-entry-update-idx trackidx)))) - -(defun emms-pbi-entry-update-idx (trackidx) - "Update the playlist entry for the track at index TRACKIDX." - (save-excursion - (set-buffer emms-pbi-playlist-buffer-name) - ;; Find the track - (when (emms-pbi-valid-index-p trackidx) - (let ((lineidx (1+ trackidx))) - (let ((inhibit-read-only t)) - ;; Erase the line - (goto-line lineidx) - (delete-region (point-at-bol) (point-at-eol)) - ;; Insert the track and add properties - (emms-pbi-insert-entry (emms-playlist-get-track trackidx)) - (emms-pbi-add-properties-current-line) - ;; Make sure the overlay is in place - (emms-pbi-update-current-face)))))) - -(defun emms-pbi-entry-generate (track) - "Generate an entry for TRACK in the playlist-buffer. - -This uses `emms-pbi-track-description-function', or if that is nil, it defaults -to `emms-track-description'." - (if emms-pbi-track-description-function - (funcall emms-pbi-track-description-function track) - ;; default to the emms way - (funcall emms-track-description-function track))) - -(defun emms-pbi-insert-entry (track) - "Insert an entry for TRACK in the playlist." - (let ((inhibit-read-only t) - (line (emms-pbi-shorten-entry-to-max-length - (emms-pbi-entry-generate track)))) - (insert line) - (emms-pbi-add-properties-current-line) - ;; for the convenience of other modules, keep track of the longest - ;; line yet. - (setq emms-pbi-longest-line (max emms-pbi-longest-line (length line))))) - -(defun emms-pbi-rebuild-playlist-buffer () - "This function rebuilds the playlist-buffer if necessary." - (unless emms-pbi-suspend-hooks - (emms-pbi-build-playlist-buffer))) - -;; Function for building the playlist - -(defun emms-pbi-build-playlist-buffer () - "Build a playlist-buffer based on the current playlist." - (save-excursion - (set-buffer (get-buffer-create emms-pbi-playlist-buffer-name)) - (let ((playlist-length (length emms-playlist)) - (idx 0) - (inhibit-read-only t)) - ;; reset the buffer - (erase-buffer) - ;; insert all elements - (while (< idx playlist-length) - (emms-pbi-insert-entry (emms-playlist-get-track idx)) - (insert "\n") - (setq idx (1+ idx))) - ;; Initialise the buffer variables - ;; remove the last line - (emms-pbi-update-current-face) - (delete-backward-char 1) - (run-hooks 'emms-pbi-after-build-hook) - (setq buffer-read-only t) - (emms-pbi-mode) - ;; as the last thing we do, update the current-face. - (when emms-player-playing-p - (emms-pbi-update-current-face))))) - -;; Updating the currently playing face -(defun emms-pbi-update-current-face () - "Updates the file line with the current-face" - (when (get-buffer emms-pbi-playlist-buffer-name) - (save-excursion - (set-buffer emms-pbi-playlist-buffer-name) - (let ((inhibit-read-only t)) - ;; don't try to `1+' the value `nil' - (unless (null emms-playlist-current) - (goto-line (1+ emms-playlist-current)) - (if (overlayp emms-pbi-current-overlay) - (move-overlay emms-pbi-current-overlay - (point-at-bol) (point-at-eol)) - (setq emms-pbi-current-overlay - (make-overlay (point-at-bol) (point-at-eol))) - (overlay-put emms-pbi-current-overlay 'face 'emms-pbi-current-face))))))) - -;;Handling faces & properties -(defun emms-pbi-add-properties-current-line () - "Adds the correct faces and other properties to the current line" - ;; Default face - (let ((idx (emms-pbi-return-current-line-index))) - (add-text-properties (point-at-bol) (point-at-eol) - '(face emms-pbi-song-face)) - (run-hooks 'emms-pbi-current-line-face-changed-hook))) - -(defun emms-pbi-play-current-line () - "Play the current line" - (interactive) - (let ((new-idx (emms-pbi-return-current-line-index))) - ;; check boundaries - (when (and new-idx (> new-idx -1) (< new-idx (length emms-playlist))) - (emms-stop) - (emms-playlist-set-current new-idx) - (emms-start) - (run-hooks 'emms-pbi-manually-change-song-hook)))) - -(defun emms-pbi-show-current-line () - "Show filename and info for track on current line." - (interactive) - (let ((idx (emms-pbi-return-current-line-index))) - (message "Filename: %s; Info: %s" - (emms-track-name - (emms-playlist-get-track idx)) - (emms-playlist-get idx)))) - -;; Major-mode for the playlist-buffer -(define-derived-mode emms-pbi-mode fundamental-mode "EMMS playlist" - (suppress-keymap emms-pbi-mode-map t) - (define-key emms-pbi-mode-map (kbd "n") 'emms-next) - (define-key emms-pbi-mode-map (kbd "p") 'emms-previous) - (define-key emms-pbi-mode-map (kbd "c") 'emms-pbi-recenter) - (define-key emms-pbi-mode-map (kbd "l") 'emms-pbi-recenter) - (define-key emms-pbi-mode-map (kbd "C-x C-s") 'emms-pbi-export-playlist) - (define-key emms-pbi-mode-map (kbd "C-k") 'emms-pbi-kill-line) - (define-key emms-pbi-mode-map (kbd "d") 'emms-pbi-kill-line) - (define-key emms-pbi-mode-map (kbd "C-y") 'emms-pbi-yank) - (define-key emms-pbi-mode-map (kbd "s") 'emms-stop) - (define-key emms-pbi-mode-map (kbd "f") 'emms-pbi-show-current-line) - (define-key emms-pbi-mode-map (kbd "RET") 'emms-pbi-play-current-line) - (define-key emms-pbi-mode-map (kbd "q") 'bury-buffer) - (define-key emms-pbi-mode-map (kbd "<mouse-2>") 'emms-pbi-play-current-line) - (define-key emms-pbi-mode-map (kbd "Q") 'emms-pbi-quit) - (define-key emms-pbi-mode-map (kbd "?") 'describe-mode)) - -(defun emms-pbi-quit () - "Stops emms and kill the playlist buffer" - (interactive) - (emms-stop) - (kill-buffer emms-pbi-playlist-buffer-name)) - -(defun emms-playlist-empty-p () - (= (length emms-playlist) 0)) - -(defun emms-pbi-kill-line () - "Kill the playlist line the cursor is currently on and update - the playlist accordingly." - (interactive) - (if (emms-playlist-empty-p) - (message "One cannot remove what is not there grasshopper") - (let ((idx (emms-pbi-return-current-line-index)) - (inhibit-read-only t)) - ;; remove from buffer - (goto-char (point-at-bol)) - (kill-line 1) - ;; push track onto emms-kill-ring - (push (aref emms-playlist idx) - emms-kill-ring) - ;; now delete the entry from the playlist. - making sure that - ;; the entire list isn't regenerated - (let ((emms-pbi-suspend-hooks t)) - (emms-playlist-remove idx)) - (if (numberp emms-playlist-current) - ;; this deals with edge cases, explicit - (cond ((and emms-player-playing-p - (= idx emms-playlist-current)) - (emms-stop) (emms-start) - (emms-pbi-update-current-face)) - ((= idx emms-playlist-current) - (emms-pbi-update-current-face)) - ((< idx emms-playlist-current) - (setq emms-playlist-current - (1- emms-playlist-current)))) - (emms-stop))))) ;; stop if playlist empty after kill - -(defun emms-pbi-yank () - "Yank a filename from `kill-ring' into the playlist." - (interactive) - (let ((track (pop emms-kill-ring)) - (inhibit-read-only t) - (idx (emms-pbi-return-current-line-index))) - (if (and track (emms-player-for track)) - ;; only insert files that actually exist, and can be played. - ;; insert it into the buffer - (save-excursion - (goto-char (point-at-bol)) - (insert "\n") - (forward-line -1) - (goto-char (point-at-bol)) - (emms-pbi-insert-entry track) - ;; insert it into the playlist - (let ((emms-pbi-suspend-hooks t)) - (emms-playlist-add (list track) idx)))) - (message "No playable track in emms-kill-ring!"))) - -(defun emms-pbi-return-current-line-index () - "Return the index position in the playlist of the current line." - (1- (count-lines (point-min) (point-at-eol)))) - -(defun emms-pbi-valid-index-p (idx) - "Return non-nil if IDX is a valid index in the current playlist." - (and idx (> idx -1) (< idx (length emms-playlist)))) - -(defun emms-pbi-recenter () - "Center on current playing track" - (interactive) - (let ((line (1+ emms-playlist-current))) - (goto-line line) - (recenter))) - -(defun emms-pbi-export-playlist (file) - (interactive "Fsave playlist:") - (let ((buffer (find-file-noselect file t))) - (set-buffer buffer) - (prin1 emms-playlist buffer) - (save-buffer) - (kill-buffer buffer))) - -(defun emms-pbi-open-playlist (file) - (interactive "fOpen playlist:") - (let ((buffer (find-file-noselect file))) - (set-buffer buffer) - (beginning-of-buffer) - (emms-playlist-set-playlist (read buffer)) - (kill-buffer buffer))) - -(provide 'emms-pbi) -;;; emms-pbi.el ends here |