Mercurial > emacs
annotate lisp/cus-theme.el @ 110954:815b78211543
Avoid using trailing / in directory variables.
* src/Makefile.in (lispsource, libsrc, etc, oldxmenudir, lwlibdir)
(lispdir): Remove trailing /, update all uses.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Tue, 12 Oct 2010 07:37:33 -0700 |
parents | 17bbe431e616 |
children | c84f553cca36 |
rev | line source |
---|---|
48952 | 1 ;;; cus-theme.el -- custom theme creation user interface |
2 ;; | |
68651
3bd95f4f2941
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
68161
diff
changeset
|
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
48952 | 5 ;; |
6 ;; Author: Alex Schroeder <alex@gnu.org> | |
7 ;; Maintainer: FSF | |
8 ;; Keywords: help, faces | |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
9 ;; Package: emacs |
48952 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
48952 | 14 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
16 ;; (at your option) any later version. |
48952 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
48952 | 25 |
26 ;;; Code: | |
27 | |
28 (require 'widget) | |
29 (require 'cus-edit) | |
30 | |
31 (eval-when-compile | |
32 (require 'wid-edit)) | |
33 | |
67950
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
34 (defvar custom-new-theme-mode-map |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
35 (let ((map (make-keymap))) |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
36 (set-keymap-parent map widget-keymap) |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
37 (suppress-keymap map) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
38 (define-key map "\C-x\C-s" 'custom-theme-write) |
67950
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
39 (define-key map "n" 'widget-forward) |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
40 (define-key map "p" 'widget-backward) |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
41 map) |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
42 "Keymap for `custom-new-theme-mode'.") |
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
43 |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
44 (define-derived-mode custom-new-theme-mode nil "Cus-Theme" |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
45 "Major mode for editing Custom themes. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
46 Do not call this mode function yourself. It is meant for internal use." |
67950
87b213a028b3
* cus-theme.el (custom-new-theme-mode-map): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents:
67949
diff
changeset
|
47 (use-local-map custom-new-theme-mode-map) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
48 (custom--initialize-widget-variables) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
49 (set (make-local-variable 'revert-buffer-function) 'custom-theme-revert)) |
63928
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
50 (put 'custom-new-theme-mode 'mode-class 'special) |
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
51 |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
52 (defvar custom-theme-name nil) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
53 (defvar custom-theme-variables nil) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
54 (defvar custom-theme-faces nil) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
55 (defvar custom-theme-description nil) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
56 (defvar custom-theme-insert-variable-marker nil) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
57 (defvar custom-theme-insert-face-marker nil) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
58 |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
59 (defvar custom-theme--listed-faces '(default fixed-pitch |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
60 variable-pitch escape-glyph minibuffer-prompt highlight region |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
61 shadow secondary-selection trailing-whitespace |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
62 font-lock-builtin-face font-lock-comment-delimiter-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
63 font-lock-comment-face font-lock-constant-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
64 font-lock-doc-face font-lock-function-name-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
65 font-lock-keyword-face font-lock-negation-char-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
66 font-lock-preprocessor-face font-lock-regexp-grouping-backslash |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
67 font-lock-regexp-grouping-construct font-lock-string-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
68 font-lock-type-face font-lock-variable-name-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
69 font-lock-warning-face button link link-visited fringe |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
70 header-line tooltip mode-line mode-line-buffer-id |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
71 mode-line-emphasis mode-line-highlight mode-line-inactive |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
72 isearch isearch-fail lazy-highlight match next-error |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
73 query-replace) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
74 "Faces listed by default in the *Custom Theme* buffer.") |
63928
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
75 |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
76 (defvar custom-theme--save-name) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
77 |
50203
3803afb52e4f
(custom-theme-create): Add autoload cookie.
John Paul Wallington <jpw@pobox.com>
parents:
49588
diff
changeset
|
78 ;;;###autoload |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
79 (defun customize-create-theme (&optional theme buffer) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
80 "Create or edit a custom theme. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
81 THEME, if non-nil, should be an existing theme to edit. |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
82 BUFFER, if non-nil, should be a buffer to use." |
48952 | 83 (interactive) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
84 (switch-to-buffer (get-buffer-create (or buffer "*Custom Theme*"))) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
85 ;; Save current faces |
63928
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
86 (let ((inhibit-read-only t)) |
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
87 (erase-buffer)) |
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
88 (custom-new-theme-mode) |
48952 | 89 (make-local-variable 'custom-theme-name) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
90 (set (make-local-variable 'custom-theme--save-name) theme) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
91 (set (make-local-variable 'custom-theme-faces) nil) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
92 (set (make-local-variable 'custom-theme-variables) nil) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
93 (set (make-local-variable 'custom-theme-description) "") |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
94 (make-local-variable 'custom-theme-insert-face-marker) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
95 (make-local-variable 'custom-theme-insert-variable-marker) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
96 (make-local-variable 'custom-theme--listed-faces) |
63928
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
97 |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
98 (widget-create 'push-button |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
99 :tag " Visit Theme " |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
100 :help-echo "Insert the settings of a pre-defined theme." |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
101 :action (lambda (widget &optional event) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
102 (call-interactively 'custom-theme-visit-theme))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
103 (widget-insert " ") |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
104 (widget-create 'push-button |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
105 :tag " Merge Theme " |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
106 :help-echo "Merge in the settings of a pre-defined theme." |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
107 :action (lambda (widget &optional event) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
108 (call-interactively 'custom-theme-merge-theme))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
109 (widget-insert " ") |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
110 (widget-create 'push-button :notify 'revert-buffer " Revert ") |
63928
e559c2c766bc
(custom-new-theme-mode): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents:
61603
diff
changeset
|
111 |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
112 (widget-insert "\n\nTheme name : ") |
48952 | 113 (setq custom-theme-name |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
114 (widget-create 'editable-field |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
115 :value (if theme (symbol-name theme) ""))) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
116 (widget-insert "Description: ") |
48952 | 117 (setq custom-theme-description |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48952
diff
changeset
|
118 (widget-create 'text |
48952 | 119 :value (format-time-string "Created %Y-%m-%d."))) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
120 (widget-insert " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
121 (widget-create 'push-button |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
122 :notify (function custom-theme-write) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
123 " Save Theme ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
124 ;; Face widgets |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
125 (widget-insert "\n\n Theme faces:\n") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
126 (let (widget) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
127 (dolist (face custom-theme--listed-faces) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
128 (widget-insert " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
129 (setq widget (widget-create 'custom-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
130 :documentation-shown t |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
131 :tag (custom-unlispify-tag-name face) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
132 :value face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
133 :display-style 'concise |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
134 :custom-state 'hidden |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
135 :sample-indent 34)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
136 (custom-magic-reset widget) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
137 (push (cons face widget) custom-theme-faces))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
138 (insert " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
139 (setq custom-theme-insert-face-marker (point-marker)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
140 (insert " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
141 (widget-create 'push-button |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
142 :tag "Insert Additional Face" |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
143 :help-echo "Add another face to this theme." |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
144 :follow-link 'mouse-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
145 :button-face 'custom-link |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
146 :mouse-face 'highlight |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
147 :pressed-face 'highlight |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
148 :action (lambda (widget &optional event) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
149 (call-interactively 'custom-theme-add-face))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
150 (widget-insert "\n\n Theme variables:\n ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
151 (setq custom-theme-insert-variable-marker (point-marker)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
152 (widget-insert ?\s) |
48952 | 153 (widget-create 'push-button |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
154 :tag "Insert Variable" |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
155 :help-echo "Add another variable to this theme." |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
156 :follow-link 'mouse-face |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
157 :button-face 'custom-link |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
158 :mouse-face 'highlight |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
159 :pressed-face 'highlight |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
160 :action (lambda (widget &optional event) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
161 (call-interactively 'custom-theme-add-variable))) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
162 (widget-insert ?\n) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
163 (if theme |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
164 (custom-theme-merge-theme theme)) |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
165 (widget-setup) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
166 (goto-char (point-min)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
167 (message "")) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
168 |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
169 (defun custom-theme-revert (ignore-auto noconfirm) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
170 (when (or noconfirm (y-or-n-p "Discard current changes? ")) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
171 (customize-create-theme custom-theme--save-name (current-buffer)))) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
172 |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
173 ;;; Theme variables |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
174 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
175 (defun custom-theme-add-variable (symbol) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
176 (interactive "vVariable name: ") |
68161 | 177 (cond ((assq symbol custom-theme-variables) |
178 (message "%s is already in the theme" (symbol-name symbol))) | |
179 ((not (boundp symbol)) | |
180 (message "%s is not defined as a variable" (symbol-name symbol))) | |
181 ((eq symbol 'custom-enabled-themes) | |
182 (message "Custom theme cannot contain `custom-enabled-themes'")) | |
183 (t | |
184 (save-excursion | |
185 (goto-char custom-theme-insert-variable-marker) | |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
186 (widget-insert " ") |
68159
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
187 (let ((widget (widget-create 'custom-variable |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
188 :tag (custom-unlispify-tag-name symbol) |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
189 :custom-level 0 |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
190 :action 'custom-theme-variable-action |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
191 :custom-state 'unknown |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
192 :value symbol))) |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
193 (push (cons symbol widget) custom-theme-variables) |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
194 (custom-magic-reset widget)) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
195 (widget-insert " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
196 (move-marker custom-theme-insert-variable-marker (point)) |
68159
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
197 (widget-setup))))) |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
198 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
199 (defvar custom-theme-variable-menu |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
200 `(("Reset to Current" custom-redraw |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
201 (lambda (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
202 (and (boundp (widget-value widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
203 (memq (widget-get widget :custom-state) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
204 '(themed modified changed))))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
205 ("Reset to Theme Value" custom-variable-reset-theme |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
206 (lambda (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
207 (let ((theme (intern (widget-value custom-theme-name))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
208 (symbol (widget-value widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
209 found) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
210 (and (custom-theme-p theme) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
211 (dolist (setting (get theme 'theme-settings) found) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
212 (if (and (eq (cadr setting) symbol) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
213 (eq (car setting) 'theme-value)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
214 (setq found t))))))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
215 ("---" ignore ignore) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
216 ("Delete" custom-theme-delete-variable nil)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
217 "Alist of actions for the `custom-variable' widget in Custom Theme Mode. |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
218 See the documentation for `custom-variable'.") |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
219 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
220 (defun custom-theme-variable-action (widget &optional event) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
221 "Show the Custom Theme Mode menu for a `custom-variable' widget. |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
222 Optional EVENT is the location for the menu." |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
223 (let ((custom-variable-menu custom-theme-variable-menu)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
224 (custom-variable-action widget event))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
225 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
226 (defun custom-variable-reset-theme (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
227 "Reset WIDGET to its value for the currently edited theme." |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
228 (let ((theme (intern (widget-value custom-theme-name))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
229 (symbol (widget-value widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
230 found) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
231 (dolist (setting (get theme 'theme-settings)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
232 (if (and (eq (cadr setting) symbol) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
233 (eq (car setting) 'theme-value)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
234 (setq found setting))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
235 (widget-value-set (car (widget-get widget :children)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
236 (nth 3 found))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
237 (widget-put widget :custom-state 'themed) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
238 (custom-redraw-magic widget) |
48952 | 239 (widget-setup)) |
240 | |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
241 (defun custom-theme-delete-variable (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
242 (setq custom-theme-variables |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
243 (assq-delete-all (widget-value widget) custom-theme-variables)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
244 (widget-delete widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
245 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
246 ;;; Theme faces |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
247 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
248 (defun custom-theme-add-face (symbol) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
249 (interactive (list (read-face-name "Face name" nil nil))) |
68161 | 250 (cond ((assq symbol custom-theme-faces) |
251 (message "%s is already in the theme" (symbol-name symbol))) | |
252 ((not (facep symbol)) | |
253 (message "%s is not defined as a face" (symbol-name symbol))) | |
254 (t | |
255 (save-excursion | |
256 (goto-char custom-theme-insert-face-marker) | |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
257 (widget-insert " ") |
68159
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
258 (let ((widget (widget-create 'custom-face |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
259 :tag (custom-unlispify-tag-name symbol) |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
260 :custom-level 0 |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
261 :action 'custom-theme-face-action |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
262 :custom-state 'unknown |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
263 :display-style 'concise |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
264 :sample-indent 34 |
68159
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
265 :value symbol))) |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
266 (push (cons symbol widget) custom-theme-faces) |
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
267 (custom-magic-reset widget) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
268 (widget-insert " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
269 (move-marker custom-theme-insert-face-marker (point)) |
68159
fca6909a92e8
* cus-theme.el (custom-theme-add-variable, custom-theme-add-face):
Chong Yidong <cyd@stupidchicken.com>
parents:
67982
diff
changeset
|
270 (widget-setup)))))) |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
271 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
272 (defvar custom-theme-face-menu |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
273 `(("Reset to Theme Value" custom-face-reset-theme |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
274 (lambda (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
275 (let ((theme (intern (widget-value custom-theme-name))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
276 (symbol (widget-value widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
277 found) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
278 (and (custom-theme-p theme) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
279 (dolist (setting (get theme 'theme-settings) found) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
280 (if (and (eq (cadr setting) symbol) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
281 (eq (car setting) 'theme-face)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
282 (setq found t))))))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
283 ("---" ignore ignore) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
284 ("Delete" custom-theme-delete-face nil)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
285 "Alist of actions for the `custom-variable' widget in Custom Theme Mode. |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
286 See the documentation for `custom-variable'.") |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
287 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
288 (defun custom-theme-face-action (widget &optional event) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
289 "Show the Custom Theme Mode menu for a `custom-face' widget. |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
290 Optional EVENT is the location for the menu." |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
291 (let ((custom-face-menu custom-theme-face-menu)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
292 (custom-face-action widget event))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
293 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
294 (defun custom-face-reset-theme (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
295 "Reset WIDGET to its value for the currently edited theme." |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
296 (let ((theme (intern (widget-value custom-theme-name))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
297 (symbol (widget-value widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
298 found) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
299 (dolist (setting (get theme 'theme-settings)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
300 (if (and (eq (cadr setting) symbol) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
301 (eq (car setting) 'theme-face)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
302 (setq found setting))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
303 (widget-value-set (car (widget-get widget :children)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
304 (nth 3 found))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
305 (widget-put widget :custom-state 'themed) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
306 (custom-redraw-magic widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
307 (widget-setup)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
308 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
309 (defun custom-theme-delete-face (widget) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
310 (setq custom-theme-faces |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
311 (assq-delete-all (widget-value widget) custom-theme-faces)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
312 (widget-delete widget)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
313 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
314 ;;; Reading and writing |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
315 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
316 (defun custom-theme-visit-theme () |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
317 (interactive) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
318 (when (and (y-or-n-p "Discard current changes? ") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
319 (progn (revert-buffer) t)) |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
320 (let ((theme (call-interactively 'custom-theme-merge-theme))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
321 (unless (eq theme 'user) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
322 (widget-value-set custom-theme-name (symbol-name theme))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
323 (widget-value-set custom-theme-description |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
324 (or (get theme 'theme-documentation) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
325 (format-time-string "Created %Y-%m-%d."))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
326 (widget-setup)))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
327 |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
328 (defun custom-theme-merge-theme (theme) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
329 (interactive |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
330 (list |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
331 (intern (completing-read "Merge custom theme: " |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
332 (mapcar 'symbol-name |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
333 (custom-available-themes)))))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
334 (unless (custom-theme-name-valid-p theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
335 (error "Invalid theme name `%s'" theme)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
336 (load-theme theme) |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
337 (let ((settings (get theme 'theme-settings))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
338 (dolist (setting settings) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
339 (if (eq (car setting) 'theme-value) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
340 (custom-theme-add-variable (cadr setting)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
341 (custom-theme-add-face (cadr setting))))) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
342 (disable-theme theme) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
343 theme) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
344 |
48952 | 345 (defun custom-theme-write (&rest ignore) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
346 (interactive) |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
347 (let* ((name (widget-value custom-theme-name)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
348 (doc (widget-value custom-theme-description)) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
349 (vars custom-theme-variables) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
350 (faces custom-theme-faces) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
351 filename) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
352 (when (string-equal name "") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
353 (setq name (read-from-minibuffer "Theme name: " (user-login-name))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
354 (widget-value-set custom-theme-name name)) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
355 (unless (custom-theme-name-valid-p (intern name)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
356 (error "Custom themes cannot be named `%s'" name)) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
357 |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
358 (setq filename (expand-file-name (concat name "-theme.el") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
359 custom-theme-directory)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
360 (and (file-exists-p filename) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
361 (not (y-or-n-p (format "File %s exists. Overwrite? " filename))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
362 (error "Aborted")) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
363 |
67982
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
364 (with-temp-buffer |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
365 (emacs-lisp-mode) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
366 (unless (file-exists-p custom-theme-directory) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
367 (make-directory (file-name-as-directory custom-theme-directory) t)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
368 (setq buffer-file-name filename) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
369 (erase-buffer) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
370 (insert "(deftheme " name) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
371 (if doc (insert "\n \"" doc "\"")) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
372 (insert ")\n") |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
373 (custom-theme-write-variables name vars) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
374 (custom-theme-write-faces name faces) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
375 (insert "\n(provide-theme '" name ")\n") |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
376 (save-buffer)) |
a711a44049e2
* cus-theme.el: Rewrite the Custom New Theme Mode interface.
Chong Yidong <cyd@stupidchicken.com>
parents:
67961
diff
changeset
|
377 (dolist (var vars) |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
378 (when (widget-get (cdr var) :children) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
379 (widget-put (cdr var) :custom-state 'saved) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
380 (custom-redraw-magic (cdr var)))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
381 (dolist (face custom-theme-faces) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
382 (when (widget-get (cdr face) :children) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
383 (widget-put (cdr face) :custom-state 'saved) |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
384 (custom-redraw-magic (cdr face)))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
385 (message "Theme written to %s" filename))) |
48952 | 386 |
387 (defun custom-theme-write-variables (theme vars) | |
388 "Write a `custom-theme-set-variables' command for THEME. | |
389 It includes all variables in list VARS." | |
390 (when vars | |
391 (let ((standard-output (current-buffer))) | |
392 (princ "\n(custom-theme-set-variables\n") | |
393 (princ " '") | |
394 (princ theme) | |
395 (princ "\n") | |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
396 (dolist (spec vars) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
397 (let* ((symbol (car spec)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
398 (child (car-safe (widget-get (cdr spec) :children))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
399 (value (if child |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
400 (widget-value child) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
401 ;; For hidden widgets, use the standard value |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
402 (get symbol 'standard-value)))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
403 (when (boundp symbol) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
404 (unless (bolp) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
405 (princ "\n")) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
406 (princ " '(") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
407 (prin1 symbol) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
408 (princ " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
409 (prin1 (custom-quote value)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
410 (princ ")")))) |
48952 | 411 (if (bolp) |
412 (princ " ")) | |
413 (princ ")") | |
414 (unless (looking-at "\n") | |
415 (princ "\n"))))) | |
416 | |
417 (defun custom-theme-write-faces (theme faces) | |
418 "Write a `custom-theme-set-faces' command for THEME. | |
419 It includes all faces in list FACES." | |
420 (when faces | |
421 (let ((standard-output (current-buffer))) | |
422 (princ "\n(custom-theme-set-faces\n") | |
423 (princ " '") | |
424 (princ theme) | |
425 (princ "\n") | |
110896
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
426 (dolist (spec faces) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
427 (let* ((symbol (car spec)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
428 (widget (cdr spec)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
429 (child (car-safe (widget-get widget :children))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
430 (state (if child |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
431 (widget-get widget :custom-state) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
432 (custom-face-state symbol))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
433 (value |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
434 (cond ((eq state 'standard) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
435 nil) ; do nothing |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
436 (child |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
437 (custom-face-widget-to-spec widget)) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
438 (t |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
439 ;; Widget is closed (hidden), but the face has |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
440 ;; a non-standard value. Try to extract that |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
441 ;; value and save it. |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
442 (custom-face-get-current-spec symbol))))) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
443 (when (and (facep symbol) value) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
444 (if (bolp) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
445 (princ " '(") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
446 (princ "\n '(")) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
447 (prin1 symbol) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
448 (princ " ") |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
449 (prin1 value) |
0d6d71f9b91a
Interface improvements to cus-theme.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
110015
diff
changeset
|
450 (princ ")")))) |
48952 | 451 (if (bolp) |
452 (princ " ")) | |
453 (princ ")") | |
454 (unless (looking-at "\n") | |
455 (princ "\n"))))) | |
456 | |
110938
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
457 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
458 ;;; Describing Custom themes. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
459 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
460 ;;;###autoload |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
461 (defun describe-theme (theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
462 "Display a description of the Custom theme THEME (a symbol)." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
463 (interactive |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
464 (list |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
465 (intern (completing-read "Describe custom theme: " |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
466 (mapcar 'symbol-name |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
467 (custom-available-themes)))))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
468 (unless (custom-theme-name-valid-p theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
469 (error "Invalid theme name `%s'" theme)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
470 (help-setup-xref (list 'describe-theme theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
471 (called-interactively-p 'interactive)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
472 (with-help-window (help-buffer) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
473 (with-current-buffer standard-output |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
474 (describe-theme-1 theme)))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
475 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
476 (defun describe-theme-1 (theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
477 (prin1 theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
478 (princ " is a custom theme") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
479 (let ((fn (locate-file (concat (symbol-name theme) "-theme.el") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
480 (cons custom-theme-directory load-path) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
481 '("" "c")))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
482 (when fn |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
483 (princ " in `") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
484 (help-insert-xref-button (file-name-nondirectory fn) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
485 'help-theme-def fn) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
486 (princ "'")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
487 (princ ".\n")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
488 (if (not (memq theme custom-known-themes)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
489 (princ "It is not loaded.") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
490 (if (custom-theme-enabled-p theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
491 (princ "It is loaded and enabled.\n") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
492 (princ "It is loaded but disabled.\n")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
493 (princ "\nDocumentation:\n") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
494 (princ (or (get theme 'theme-documentation) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
495 "No documentation available."))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
496 (princ "\n\nYou can ") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
497 (help-insert-xref-button "customize" 'help-theme-edit theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
498 (princ " this theme.")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
499 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
500 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
501 ;;; Theme chooser |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
502 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
503 (defvar custom--listed-themes) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
504 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
505 (defcustom custom-theme-allow-multiple-selections nil |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
506 "Whether to allow multi-selections in the *Custom Themes* buffer." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
507 :type 'boolean |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
508 :group 'custom-buffer) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
509 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
510 (defvar custom-theme-choose-mode-map |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
511 (let ((map (make-keymap))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
512 (set-keymap-parent map widget-keymap) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
513 (suppress-keymap map) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
514 (define-key map "\C-x\C-s" 'custom-theme-save) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
515 (define-key map "n" 'widget-forward) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
516 (define-key map "p" 'widget-backward) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
517 (define-key map "?" 'custom-describe-theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
518 map) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
519 "Keymap for `custom-theme-choose-mode'.") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
520 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
521 (define-derived-mode custom-theme-choose-mode nil "Cus-Theme" |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
522 "Major mode for selecting Custom themes. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
523 Do not call this mode function yourself. It is meant for internal use." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
524 (use-local-map custom-theme-choose-mode-map) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
525 (custom--initialize-widget-variables) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
526 (set (make-local-variable 'revert-buffer-function) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
527 (lambda (ignore-auto noconfirm) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
528 (when (or noconfirm (y-or-n-p "Discard current choices? ")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
529 (customize-themes (current-buffer)))))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
530 (put 'custom-theme-choose-mode 'mode-class 'special) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
531 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
532 ;;;###autoload |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
533 (defun customize-themes (&optional buffer) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
534 "Display a selectable list of Custom themes. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
535 When called from Lisp, BUFFER should be the buffer to use; if |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
536 omitted, a buffer named *Custom Themes* is used." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
537 (interactive) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
538 (pop-to-buffer (get-buffer-create (or buffer "*Custom Themes*"))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
539 (let ((inhibit-read-only t)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
540 (erase-buffer)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
541 (custom-theme-choose-mode) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
542 (set (make-local-variable 'custom--listed-themes) nil) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
543 (make-local-variable 'custom-theme-allow-multiple-selections) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
544 (and (null custom-theme-allow-multiple-selections) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
545 (> (length custom-enabled-themes) 1) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
546 (setq custom-theme-allow-multiple-selections t)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
547 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
548 (widget-insert |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
549 (substitute-command-keys |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
550 "Type RET or click to enable/disable listed custom themes. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
551 Type \\[custom-describe-theme] to describe the theme at point. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
552 Theme files are named *-theme.el in `")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
553 (when (stringp custom-theme-directory) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
554 (widget-create 'link :value custom-theme-directory |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
555 :button-face 'custom-link |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
556 :mouse-face 'highlight |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
557 :pressed-face 'highlight |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
558 :help-echo "Describe `custom-theme-directory'." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
559 :keymap custom-mode-link-map |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
560 :follow-link 'mouse-face |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
561 :action (lambda (widget &rest ignore) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
562 (describe-variable 'custom-theme-directory))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
563 (widget-insert "' or `")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
564 (widget-create 'link :value "load-path" |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
565 :button-face 'custom-link |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
566 :mouse-face 'highlight |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
567 :pressed-face 'highlight |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
568 :help-echo "Describe `load-path'." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
569 :keymap custom-mode-link-map |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
570 :follow-link 'mouse-face |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
571 :action (lambda (widget &rest ignore) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
572 (describe-variable 'load-path))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
573 (widget-insert "'.\n\n") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
574 (widget-create 'push-button |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
575 :tag " Save Theme Settings " |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
576 :help-echo "Save the selected themes for future sessions." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
577 :action 'custom-theme-save) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
578 (widget-insert ?\n) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
579 (widget-create 'checkbox |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
580 :value custom-theme-allow-multiple-selections |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
581 :action 'custom-theme-selections-toggle) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
582 (widget-insert (propertize " Allow more than one theme at a time" |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
583 'face '(variable-pitch (:height 0.9)))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
584 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
585 (widget-insert "\n\nAvailable Custom Themes:\n") |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
586 (let (widget) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
587 (dolist (theme (custom-available-themes)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
588 (setq widget (widget-create 'checkbox |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
589 :value (custom-theme-enabled-p theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
590 :theme-name theme |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
591 :action 'custom-theme-checkbox-toggle)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
592 (push (cons theme widget) custom--listed-themes) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
593 (widget-create-child-and-convert widget 'push-button |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
594 :button-face-get 'ignore |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
595 :mouse-face-get 'ignore |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
596 :value (format " %s" theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
597 :action 'widget-parent-action) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
598 (widget-insert ?\n))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
599 (goto-char (point-min)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
600 (widget-setup)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
601 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
602 (defun custom-theme-checkbox-toggle (widget &optional event) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
603 (let ((this-theme (widget-get widget :theme-name))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
604 (if (widget-value widget) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
605 ;; Disable the theme. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
606 (disable-theme this-theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
607 ;; Enable the theme. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
608 (unless custom-theme-allow-multiple-selections |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
609 ;; If only one theme is allowed, disable all other themes and |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
610 ;; uncheck their boxes. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
611 (dolist (theme custom-enabled-themes) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
612 (and (not (eq theme this-theme)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
613 (assq theme custom--listed-themes) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
614 (disable-theme theme))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
615 (dolist (theme custom--listed-themes) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
616 (unless (eq (car theme) this-theme) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
617 (widget-value-set (cdr theme) nil) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
618 (widget-apply (cdr theme) :notify (cdr theme) event)))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
619 (load-theme this-theme))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
620 ;; Mark `custom-enabled-themes' as "set for current session". |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
621 (put 'custom-enabled-themes 'customized-value |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
622 (list (custom-quote custom-enabled-themes))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
623 ;; Check/uncheck the widget. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
624 (widget-toggle-action widget event)) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
625 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
626 (defun custom-describe-theme () |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
627 "Describe the Custom theme on the current line." |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
628 (interactive) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
629 (let ((widget (widget-at (line-beginning-position)))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
630 (and widget |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
631 (describe-theme (widget-get widget :theme-name))))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
632 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
633 (defun custom-theme-save (&rest ignore) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
634 (interactive) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
635 (customize-save-variable 'custom-enabled-themes custom-enabled-themes) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
636 (message "Custom themes saved for future sessions.")) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
637 |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
638 (defun custom-theme-selections-toggle (widget &optional event) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
639 (when (widget-value widget) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
640 ;; Deactivate multiple-selections. |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
641 (if (> (length (delq nil (mapcar (lambda (x) (widget-value (cdr x))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
642 custom--listed-themes))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
643 1) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
644 (error "More than one theme is currently selected"))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
645 (widget-toggle-action widget event) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
646 (setq custom-theme-allow-multiple-selections (widget-value widget))) |
17bbe431e616
New interface for choosing Custom themes.
Chong Yidong <cyd@stupidchicken.com>
parents:
110896
diff
changeset
|
647 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79721
diff
changeset
|
648 ;; arch-tag: cd6919bc-63af-410e-bae2-b6702e762344 |
48952 | 649 ;;; cus-theme.el ends here |