diff options
| author | Ye Wenbin <wenbinye@gmail.com> | 2007-03-08 14:11:00 +0000 |
|---|---|---|
| committer | Ye Wenbin <wenbinye@gmail.com> | 2007-03-08 14:11:00 +0000 |
| commit | 03e4d2db0c506895a2d3b1a8a651e3536fddb86e (patch) | |
| tree | d3fecef053a0c291555182a927ecf7147486a206 /emms-tag-editor.el | |
| parent | cb4e6dafa616cbe1c629392f0348d3098bf8c764 (diff) | |
Make name readonly in emms-tag editor buffer
darcs-hash:20070308141123-94065-8a889520d49cf3d7bd8638d82f38e40dadc0247e.gz
Diffstat (limited to 'emms-tag-editor.el')
| -rw-r--r-- | emms-tag-editor.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el index 51e423d..3ba2489 100644 --- a/emms-tag-editor.el +++ b/emms-tag-editor.el @@ -55,14 +55,18 @@ "Buffer name of tag edit log") (defun emms-tag-editor-make-format (tags) - (format "%%m\n%-16s = %%f\n%s\n\n" "name" + (concat "%m\n" (emms-propertize (format "%-16s = " "name") + 'read-only t 'rear-nonsticky t + 'face 'bold) + "%f\n" (mapconcat (lambda (tag) (concat (emms-propertize (format "%-16s = " (symbol-name tag)) - 'read-only t 'rear-nonsticky t - 'face 'bold) + 'read-only t 'rear-nonsticky t + 'face 'bold) "%" (cdr (assoc tag emms-tag-editor-tags)))) - tags "\n"))) + tags "\n") + "\n\n")) (defvar emms-tag-editor-formats (let* ((tags (mapcar 'car emms-tag-editor-tags)) |