Add two extra command in tag editor. Rename emms-tag-editor-replace-all

darcs-hash:20070308141238-94065-8d8dba74575bede5f583ee75908f3532615b8a2d.gz

1 files changed, 67 insertions, 6 deletions

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 62d0e88..5acb2d1 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -238,7 +238,10 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.
     (define-key map "\C-c\C-p" 'emms-tag-editor-prev-track)
     (define-key map "\C-c\C-c" 'emms-tag-editor-submit-and-exit)
     (define-key map "\C-c\C-s" 'emms-tag-editor-submit)
-    (define-key map "\C-c\C-r" 'emms-tag-editor-replace-all)
+    (define-key map "\C-x\C-s" 'emms-tag-editor-submit)
+    (define-key map "\C-c\C-r" 'emms-tag-editor-set-all)
+    (define-key map "\C-c\C-a" 'emms-tag-editor-replace-in-tag)
+    (define-key map "\C-c\C-t" 'emms-tag-editor-transpose-tag)
     map))
 (define-key emms-playlist-mode-map "E" 'emms-tag-editor-edit)
 
@@ -246,23 +249,81 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.
   "Major mode to edit track tags.
 \\{emms-tag-editor-mode-map}")
 
-(defun emms-tag-editor-replace-all (name value)
-  "Replace all track's NAME to VALUE. If turn transient-mark-mode on,
+(defun emms-tag-editor-set-all (tag value)
+  "Replace all track's TAG to VALUE. If turn transient-mark-mode on,
 you can apply the command to a selected region."
   (interactive
-   (list (completing-read "Replace tag: "
+   (list (completing-read "Set tag: "
                           emms-tag-editor-tags nil t)
-         (read-from-minibuffer "Set tag to: ")))
+         (read-from-minibuffer "To: ")))
   (save-excursion
     (save-restriction
       (if (and mark-active transient-mark-mode)
           (narrow-to-region (region-beginning) (region-end)))
       (goto-char (point-min))
-      (while (re-search-forward (concat "^" (regexp-quote name)) nil t)
+      (while (re-search-forward (concat "^" (regexp-quote tag)) nil t)
         (skip-chars-forward " \t=")
         (delete-region (point) (line-end-position))
         (insert value)))))
 
+(defun emms-tag-editor-replace-in-tag (tag from to)
+  (interactive 
+   (cons (completing-read "Replace in tag: "
+                          emms-tag-editor-tags nil t)
+         (let ((common (query-replace-read-args
+                        (if (and transient-mark-mode mark-active)
+                            "Query replace regexp in region"
+                          "Query replace regexp")
+                        t)))
+           (butlast common))))
+  (save-excursion
+    (save-restriction
+      (if (and mark-active transient-mark-mode)
+          (narrow-to-region (region-beginning) (region-end)))
+      (setq tag (concat (regexp-quote tag) "[ \t]+=[ \t]+"))
+      (goto-char (point-min))
+      (map-y-or-n-p
+       (lambda (match)
+         (format "Replace %s to %s" match to))
+       (lambda (match)
+         (delete-region (- (point) (length match)) (point))
+         (insert to))
+       (lambda ()
+         (if (and (save-excursion
+                    (re-search-backward tag (line-beginning-position) t))
+                  (re-search-forward from (line-end-position) t))
+             (match-string 0)
+           (let (found)
+             (while (and (not found)
+                         (re-search-forward tag nil t))
+               (if (re-search-forward from (line-end-position) t)
+                   (setq found t)))
+             (and found (match-string 0)))))))))
+
+(defun emms-tag-editor-transpose-tag (tag1 tag2)
+  (interactive
+   (let* ((tag1 (intern (completing-read "Tag1: "
+                                         emms-tag-editor-tags nil t)))
+          (tag2 (intern (completing-read "Tag2: "
+                                         (assq-delete-all tag1 (copy-sequence emms-tag-editor-tags))
+                                         nil t))))
+     (list tag1 tag2)))
+  (save-excursion
+    (save-restriction
+      (if (and mark-active transient-mark-mode)
+          (narrow-to-region (region-beginning) (region-end)))
+      (let* ((emms-playlist-buffer-p t)
+             (tracks (emms-playlist-tracks-in-region (point-min)
+                                                     (point-max)))
+             (inhibit-read-only t)
+             temp)
+        (erase-buffer)
+        (dolist (track tracks)
+          (setq temp (emms-track-get track tag1))
+          (emms-track-set track tag1 (emms-track-get track tag2))
+          (emms-track-set track tag2 temp)
+          (emms-tag-editor-insert-track track))))))
+
 (defun emms-tag-editor-next-field (arg)
   (interactive "p")
   (if (> arg 0)