Remove emms-tageditor.el, since it only works with emms-pbi.el. It might be useful to re-add this, once it has been rewritten. But first, let's get a release out the door :^) .

darcs-hash:20060401233146-1bfb2-a463cb4bfd32568f171ff0ac95edfe1f8757ab91.gz

1 files changed, 0 insertions, 449 deletions

diff --git a/emms-tageditor.el b/emms-tageditor.el
deleted file mode 100644
index 54832d5..0000000
--- a/emms-tageditor.el
+++ /dev/null
@@ -1,449 +0,0 @@
-;;; emms-tageditor.el --- Info-editor for EMMS
-
-;; 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 an info-editor for EMMS. It also provides, as an
-;; option, functions for integrating this with the
-;; playlist-buffer-interface as well as the mark-module for the pbi.
-
-;; To activate the basic editor, use this in your EMMS-configuration:
-
-;; (require 'emms-tageditor)
-
-;; And call M-x emms-tageditor-edit-current RET, when you find a song
-;; with a tag that needs to be changed.
-
-;; To use the pbi-functionality, add the following to your
-;; configuration:
-
-;; (emms-tageditor-pbi-mode 1)
-
-;; Which will add 'e' as a key, to edit the track under the point in
-;; the pbi.
-
-;; To use the extended pbi-functionality, with `emms-pbi-mark', use:
-
-;; (emms-tageditor-pbi-mark-mode 1)
-
-;; Which likewise will bind 'E' to edit all the tracks marked as a
-;; whole, in a way that allows you to set the "album"-tag of each
-;; track, or f.ex. to match the filename to a regexp, and set a group
-;; from that regexp as the title-tag, or any other.
-
-;;; Code:
-
-(require 'emms)
-(require 'emms-info)
-(require 'emms-pbi)
-(require 'emms-pbi-mark)
-(require 'widget)
-(require 'wid-edit)
-
-;; Custom
-(defgroup emms-tageditor nil
-  "*A wizard-style tageditor for EMMS."
-  :group 'emms
-  :prefix "emms-tageditor-")
-
-(defcustom emms-tageditor-buffer-name "*emms-tageditor*"
-  "The name of the buffer used for tag-editing."
-  :type 'string
-  :group 'emms-tageditor)
-
-;; Variables
-(defvar emms-tageditor-current-tracks []
-  "A vector of the tracks currently being edited.")
-
-(defvar emms-tageditor-current-infos []
-  "A vector of the info-ojects currently being edited.")
-
-(defvar emms-tageditor-message nil
-  "A message to show with the form, if non-nil.")
-
-(defvar emms-tageditor-widgets nil
-  "A hash map of the widgets on the screen.")
-
-;; Hashtable interface
-(defun emms-tageditor-get-widget (trackidx fieldname)
-  "Return the widget of FIELDNAME, for the track with TRACKIDX"
-  (let ((symbol (emms-tageditor-get-widget-id trackidx fieldname)))
-    (gethash symbol emms-tageditor-widgets)))
-
-(defun emms-tageditor-set-widget (trackidx fieldname widget)
-  "Save a reference to WIDGET, as FIELDNAME of the track with TRACKIDX."
-  (let ((symbol (emms-tageditor-get-widget-id trackidx fieldname)))
-    (puthash symbol widget emms-tageditor-widgets)))
-
-;; Helper function for the hashtable
-(defun emms-tageditor-get-widget-id (trackidx fieldname)
-  "Get a symbol ID of the FIELDNAME widget of TRACKIDX."
-  (intern (concat "-trackidx-" (number-to-string trackidx)
-		  "-" (symbol-name fieldname))))
-
-(defun emms-tageditor-read-tag (trackidx)
-  "Read the form for a single track, and parse it into an info-object."
-  (let ((info (aref emms-tageditor-current-infos trackidx))
-	(track (aref emms-tageditor-current-tracks trackidx))
-	(tags '(title artist album note)))
-    (while tags
-      (let* ((tag (car tags))
-	     (infotag (intern (concat "emms-info-" (symbol-name tag)))))
-	(eval `(setf (,infotag ,info)
-		     ,(widget-value (emms-tageditor-get-widget
-				     trackidx
-				     tag)))))
-      (setq tags (cdr tags)))
-    info))
-
-;; Parsing the form
-(defun emms-tageditor-read-tags (tracks)
-  "Create a new list of info-object from the form, and return it."
-  (mapcar 'emms-tageditor-read-tag tracks))
-
-;; Event-handling
-(defun emms-tageditor-save (widget &rest ignore)
-  "Save the info of a single tag."
-  ;; This function only saves a single form.  Figure out which track
-  ;; this is bound to, by extracting the trackidx from the
-  (let* ((trackidx (widget-get widget :trackidx))
-	 (track (aref emms-tageditor-current-tracks trackidx)))
-    ;; Let's make sure we have an info-source capable of writing tags.
-    (if (funcall (emms-info-method-for track) 'set)
-	(progn
-	  ;; we have an info-method for it, let's set it.
-	  (emms-info-set track
-			 (emms-tageditor-read-tag trackidx))
-	  (when (and (featurep 'emms-pbi)
-		     (get-buffer emms-pbi-playlist-buffer-name))
-	    ;; If a playlist is available, it's info might need to be updated
-	    ;; for this track.
-	    (emms-pbi-entry-update-track track)
-	    (when (= (length emms-tageditor-current-tracks) 1)
-	      ;; pressing save should kill the buffer when only one track is
-	      ;; being edited.
-	      (emms-tageditor-cleanup))))
-      ;; if the above returned nil, no function to save info for this
-      ;; track has been made! signal an error and escape!
-      (message (format (concat "Track %s doesn't have an associated info-method "
-			       " capable of saving data")
-		       (emms-track-name track))))))
-
-(defun emms-tageditor-save-all ()
-  "Save all entries currently being edited."
-  ;; Loop through all forms, and save them
-  (let ((idx 0))
-    (while (< idx (length emms-tageditor-current-tracks))
-      (emms-tageditor-save (emms-tageditor-get-widget idx 'save))
-      (setq idx (1+ idx))))
-  ;; Always cleanup when saving everything
-  (emms-tageditor-cleanup))
-
-(defun emms-tageditor-cancel (&rest ignore)
-  (emms-tageditor-cleanup))
-
-(defun emms-tageditor-create-string (rep times)
-  "Concat TIMES occurances of REP into a string and return it."
-  (if (> times 1)
-      (concat (emms-tageditor-create-string rep (1- times)) rep)
-    rep))
-
-;; Setting up the form, and destroying it
-(defun emms-tageditor-create-widgets (trackidx info)
-  "Create widgets for a single track-form"
-  (let ((inhibit-read-only t)
-	(track (aref emms-tageditor-current-tracks trackidx))
-	(info (aref emms-tageditor-current-infos trackidx)))
-    (goto-char (point-min))
-    (widget-insert (format "Editing tag for track: %s (%s)\n"
-			   (emms-track-name track)
-			   (symbol-name
-			    (emms-track-type track))))
-    (widget-insert (concat "----------------------------------------"
-			   "----------------------------------------"
-			   "\n"))
-    ;; Insert the tags
-    (let ((tags '(title artist album note)))
-      (while tags
-	(let* ((tag (car tags))
-	       (info-tag (intern (concat "emms-info-" (symbol-name tag))))
-	       (tag-name
-		(concat (upcase-initials (symbol-name tag)) ":"
-			(emms-tageditor-create-string " "
-						      (- 10 (1+ (length (symbol-name tag))))))))
-	  (widget-insert tag-name)
-	  (eval `(emms-tageditor-set-widget
-		  trackidx (quote ,tag)
-		  (widget-create 'editable-field
-				 :size 69
-				 :trackidx trackidx
-				 :value (,info-tag ,info))))
-	  (when (not (= (length tags) 1))
-	    (widget-insert "\n")))
-	(setq tags (cdr tags))))
-    ;; Insert the rest
-    (widget-insert (concat "\n"
-			   "----------------------------------------"
-			   "----------------------------------------"
-			   "\n"))
-    (emms-tageditor-set-widget
-     trackidx 'save    
-     (widget-create 'push-button
-		    :notify 'emms-tageditor-save
-		    :trackidx trackidx
-		    :help-echo "Save changes to this tag"
-		    "Save"))
-    (widget-insert "                                                                  ")
-    (widget-create 'push-button
-		   :notify 'emms-tageditor-cancel
-		   :help-echo "Cancel changes"
-		   "Cancel")))
-
-(defun emms-tageditor-cleanup ()
-  "Clean up and exit the tageditor."
-  ;; delete all widgets
-  (let ((idx 0))
-    (while (< idx (length emms-tageditor-current-tracks))
-      (when emms-tageditor-widgets
-	(let ((tags '(title artist album note save)))
-	  (while tags
-	    (let ((tag (car tags)))
-	      (eval `(widget-delete (emms-tageditor-get-widget idx tag))))
-	    (setq tags (cdr tags)))))
-      ;; continue idx loop
-      (setq idx (1+ idx))))
-  ;; kill the buffer & delete the hashmap
-  (setq emms-tageditor-widgets nil)
-  (kill-buffer (get-buffer-create emms-tageditor-buffer-name)))
-
-(defun emms-tageditor-replace-create-replacement (replace-with trackidx)
-  (let ((info (aref emms-tageditor-current-infos trackidx))
-	(track (aref emms-tageditor-current-tracks trackidx)))
-    (setq replace-with (emms-replace-regexp-in-string "$TITLE" (emms-info-title info) replace-with))
-    (setq replace-with (emms-replace-regexp-in-string "$ALBUM" (emms-info-album info) replace-with))
-    (setq replace-with (emms-replace-regexp-in-string "$ARTIST" (emms-info-artist info) replace-with))
-    (setq replace-with (emms-replace-regexp-in-string "$NOTE" (emms-info-note info) replace-with))
-    (setq replace-with (emms-replace-regexp-in-string "$TRACKNAME" (emms-track-name track) replace-with)))
-  replace-with)
-
-(defun emms-tageditor-replace-tag (field regexp replace-with)
-  "Replace REGEXP with REPLACE-WITH in all fields of type FIELD."
-  (let ((idx 0))
-    (while (< idx (length emms-tageditor-current-tracks))
-      ;; Find the widget for the current track
-      (let ((widget (emms-tageditor-get-widget idx field)))
-	(let* ((str (widget-value widget))
-	       (str (emms-replace-regexp-in-string regexp replace-with str)))
-	  (if (string= "$SET" regexp)
-	      (widget-value-set
-	       widget
-	       (emms-tageditor-replace-create-replacement replace-with idx))
-	    (widget-value-set
-	     widget
-	     (emms-tageditor-replace-create-replacement str idx)))))
-      (setq idx (1+ idx)))))
-
-(defun emms-tageditor-replace-tags (&optional field regexp replace-with)
-  "Replace REGEXP with REPLACE-WITH in the widgets matching FIELD."
-  (interactive)
-  (setq field (or field (intern (completing-read
-			       "Select which tags to replace in: "
-			       '(("all" . all) ("title" . title)
-				 ("artist" . artist) ("album" . album)
-				 ("note" . note))
-			       nil t "title"))))
-  (setq regexp (or regexp (read-from-minibuffer "Regexp to replace: ")))
-  (setq replace-with (or replace-with (read-from-minibuffer (concat "Replace regexp " regexp " with: "))))
-  ;; Having all input, let's continue to act on it.
-  (when (and field regexp replace-with)
-    ;; two cases, 'all or something else
-    (if (equal field 'all)
-	(progn
-	  ;; We need a sweep-search of all tag-fields
-	  (let ((tags '(title artist album note)))
-	    (while tags
-	      (emms-tageditor-replace-tag (car tags) regexp replace-with)
-	      (setq tags (cdr tags)))))
-      ;; only search the field called field
-      (emms-tageditor-replace-tag field regexp replace-with))
-    ;; we've probably changed some widget values, so we need to make
-    ;; them count.
-    (widget-setup)))
-
-;; Setting up the buffer
-(defun emms-tageditor-edit (tracks &optional infos)
-  "Open an editor for the vector TRACKS.
-
-Optionally, use the vector INFOS as the default info for each track,
-and use the function SAVEFUNCTION as the event-handler for each
-save-button."
-  ;; Save variables
-  (setq emms-tageditor-current-tracks tracks)
-  (if infos
-      (setq emms-tageditor-current-infos infos)
-    ;; Otherwise, create the vector of infos by loading them.
-    (setq emms-tageditor-current-infos
-	  (make-vector (length emms-tageditor-current-tracks)
-		       nil))
-    (let ((idx 0))
-      (while (< idx (length emms-tageditor-current-tracks))
-	(setf (aref emms-tageditor-current-infos idx)
-	      ;; should we allow cache here?
-	      (emms-info-get (aref emms-tageditor-current-tracks idx)))
-	(setq idx (1+ idx)))))  
-  ;; Kill the buffer, then recreate it. Otherwise, everything will be
-  ;; in one big widget.
-  (kill-buffer (get-buffer-create emms-tageditor-buffer-name))
-  (switch-to-buffer (get-buffer-create emms-tageditor-buffer-name))  
-  ;; Initialise buffer
-  (kill-all-local-variables)
-  (widget-minor-mode 1)
-  ;; Setup widget hashmap,
-  (setq emms-tageditor-widgets (make-hash-table :test 'equal))
-  ;; and create the widgets 
-  (let ((idx 0))
-    (while (< idx (length emms-tageditor-current-tracks))
-      (emms-tageditor-create-widgets idx
-				     (aref emms-tageditor-current-infos idx))
-      (widget-insert "\n\n")
-      (setq idx (1+ idx)))
-    ;; Create the save _all_ widget?
-    ;; setup the help-message
-    (when emms-tageditor-message
-      (goto-char (point-max))
-      (widget-insert (concat "\n"
-			     "........................................"
-			     "........................................"
-			     "\n"))
-      (widget-insert emms-tageditor-message)
-      (setq emms-tageditor-message nil))
-    (use-local-map widget-keymap)
-    ;; Bind some additional keys
-    (widget-setup)
-    (local-set-key (kbd "C-x C-s") (lambda () (interactive) (emms-tageditor-save-all)))
-    (local-set-key (kbd "C-c C-r") 'emms-tageditor-replace-tags)
-    (local-set-key (kbd "ESC") (lambda () (interactive) (emms-tageditor-cancel)))))
-
-;; Entry function
-(defun emms-tageditor-edit-current ()
-  "Edit the info of the currently playing track"
-  (interactive)
-  (emms-tageditor-edit (vconcat (list (emms-playlist-current-track)))))
-
-;; Integrating with emms-pbi 
-(defvar emms-tageditor-pbi-mark-message
-  "When editing multiple files, some things works a bit
-differently. First of all, to save *all* changes made to tracks, use
-C-x C-s.
-
-The changes to each individual track, can be saved by using the
-corresponding Save-buttons.
-
-To utilize the full power of this mode of editing, you should use
-M-x emms-tageditor-replace-tags RET, bound to C-c C-r.
-
-When using `emms-tageditor-replace-tags', you have the following
-special keyword available:
-
-For matching:
-
-   $SET -- Attempting to replace this value with anything, will tell
-           the function to simply override the previous value.
-
-For what to replace with:
-
-   $TRACKNAME -- The trackname (for file-type tracks, the full filename)
-   $TITLE     -- The (saved) title of this track.
-   $ARTIST    -- Likewise, with the artist
-   $ALBUM     -- Likewise, with the album
-   $ALBUM     -- Likewise, with the note.
-
-NOT IMPLEMENTED YET:
-If the power of that function doesn't fit your needs, you can use M-x
-emms-tageditor-toggle-read-only RET, bound to C-c C-t. This function
-will make the buffer read-only, which means you can use the regular
-editing functions on the entire buffer. This means that doing an M-x
-replace-regexp RET, won't halt if it matches any of the text outsie
-widgets, as it would otherwise.")
-
-(defun emms-tageditor-pbi-mode (&optional arg)
-  "Register the intergration with the playlist-buffer interface for EMMS.
-
-Turn the registration on, if and only if ARG is a positive integer,
-off otherwise."
-  (interactive "p")
-  (if (not (featurep 'emms-pbi))
-      (message "You need `emms-pbi' loaded to use this!")
-    (if (and (numberp arg) (< 0 arg))
-	(add-hook 'emms-pbi-mode-hook 'emms-tageditor-pbi-register)
-      (remove-hook 'emms-pbi-mode-hook 'emms-tageditor-pbi-register))))
-
-(defun emms-tageditor-pbi-register ()
-  "Register keybindings for the playlist-buffer interface.
-
-Should be run in `emms-pbi-mode-hook'."
-  (local-set-key (kbd "e")
-		 'emms-tageditor-pbi-edit-current-line))
-
-(defun emms-tageditor-pbi-edit-current-line ()
-  "Edit the track under point."
-  (interactive)
-  (if (not (featurep 'emms-pbi))
-      (message "You need `emms-pbi' loaded to use this!")
-    ;; Fetch track under current line
-    (let ((curidx (emms-pbi-return-current-line-index)))
-      (when (emms-pbi-valid-index-p curidx)
-	(other-window 1)
-	(emms-tageditor-edit (vconcat (list (emms-playlist-get-track curidx))))))))
-
-;; Integrating with pbi-mark
-(defun emms-tageditor-pbi-mark-mode (&optional arg)
-  "Register the intergration with the playlist-buffer-marks for EMMS.
-
-Turn the integration on, if and only if ARG is a positive integer, off
-otherwise."
-  (interactive "p")
-  (if (not (featurep 'emms-pbi-mark))
-      (message "You need `emms-pbi-mark' loaded to use this!")
-    (if (and (numberp arg) (< 0 arg))
-	(add-hook 'emms-pbi-mode-hook 'emms-tageditor-pbi-mark-register)
-      (remove-hook 'emms-pbi-mode-hook 'emms-tageditor-pbi-mark-register))))
-
-(defun emms-tageditor-pbi-mark-register ()
-  "Register keybindings for the playlist-buffer interface marking functions.
-
-Should be run in `emms-pbi-mode-hook'."
-  (local-set-key (kbd "E")
-		 'emms-tageditor-pbi-mark-edit-marked-entries))
-
-(defun emms-tageditor-pbi-mark-edit-marked-entries ()
-  "Edit all marked entries as one, using a special editor."
-  (interactive)
-  (if (not (featurep 'emms-pbi-mark))
-      (message "You need `emms-pbi-mark' loaded to use this!")
-    (other-window 1)
-    (setq emms-tageditor-message emms-tageditor-pbi-mark-message)
-    (emms-tageditor-edit (vconcat (emms-pbi-mark-get-marked)))
-    (goto-char (point-min))))
-
-(provide 'emms-tageditor)
-;;; emms-tageditor.el ends here