diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2021-01-08 14:59:19 -0500 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2021-01-08 14:59:19 -0500 |
| commit | 4b9734082657311ec783fcb3dad9c03e2d3d42b7 (patch) | |
| tree | c55ab977c8064850061ce8cdbf12458a447bd65f | |
| parent | a2738fe1a9013f641eeba31300e828e88b468b14 (diff) | |
* emms-tag-editor.el: remove hard-coding of program name
| -rw-r--r-- | emms-tag-editor.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el index ee9b2cb..16f8370 100644 --- a/emms-tag-editor.el +++ b/emms-tag-editor.el @@ -38,6 +38,11 @@ (require 'emms-mark) (require 'format-spec) +(defcustom emms-tag-editor-tag-ogg-program "vorbiscomment" + "*The name/path of the ogg editor program." + :type 'string + :group 'emms-tag-editor) + (defvar emms-tag-editor-tags '((info-artist . "a") (info-albumartist . "A") @@ -175,7 +180,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.") (setq args (append (list "-t" (concat (upcase tag) "=" val)) args))))) '("artist" "composer" "performer" "title" "album" "tracknumber" "date" "genre" "note")) (when args - (apply #'call-process "vorbiscomment" nil + (apply #'call-process emms-tag-editor-tag-ogg-program nil (get-buffer-create emms-tag-editor-log-buffer) nil "-w" |