1 ;;; cus-theme.el -- custom theme creation user interface
3 ;; Copyright (C) 2001-2012 Free Software Foundation, Inc.
5 ;; Author: Alex Schroeder <alex@gnu.org>
7 ;; Keywords: help, faces
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
33 (defvar custom-new-theme-mode-map
34 (let ((map (make-keymap)))
35 (set-keymap-parent map widget-keymap
)
37 (define-key map
"\C-x\C-s" 'custom-theme-write
)
38 (define-key map
"n" 'widget-forward
)
39 (define-key map
"p" 'widget-backward
)
41 "Keymap for `custom-new-theme-mode'.")
43 (define-derived-mode custom-new-theme-mode nil
"Custom-Theme"
44 "Major mode for editing Custom themes.
45 Do not call this mode function yourself. It is meant for internal use."
46 (use-local-map custom-new-theme-mode-map
)
47 (custom--initialize-widget-variables)
48 (set (make-local-variable 'revert-buffer-function
) 'custom-theme-revert
))
49 (put 'custom-new-theme-mode
'mode-class
'special
)
51 (defvar custom-theme-name nil
)
52 ;; Each element has the form (VAR CHECKBOX-WIDGET VAR-WIDGET)
53 (defvar custom-theme-variables nil
)
54 ;; Each element has the form (FACE CHECKBOX-WIDGET FACE-WIDGET)
55 (defvar custom-theme-faces nil
)
56 (defvar custom-theme-description nil
)
57 (defvar custom-theme--migrate-settings nil
)
58 (defvar custom-theme-insert-variable-marker nil
)
59 (defvar custom-theme-insert-face-marker nil
)
61 (defvar custom-theme--listed-faces
'(default cursor fixed-pitch
62 variable-pitch escape-glyph minibuffer-prompt highlight region
63 shadow secondary-selection trailing-whitespace
64 font-lock-builtin-face font-lock-comment-delimiter-face
65 font-lock-comment-face font-lock-constant-face
66 font-lock-doc-face font-lock-function-name-face
67 font-lock-keyword-face font-lock-negation-char-face
68 font-lock-preprocessor-face font-lock-regexp-grouping-backslash
69 font-lock-regexp-grouping-construct font-lock-string-face
70 font-lock-type-face font-lock-variable-name-face
71 font-lock-warning-face button link link-visited fringe
72 header-line tooltip mode-line mode-line-buffer-id
73 mode-line-emphasis mode-line-highlight mode-line-inactive
74 isearch isearch-fail lazy-highlight match next-error
76 "Faces listed by default in the *Custom Theme* buffer.")
78 (defvar custom-theme--save-name
)
81 (defun customize-create-theme (&optional theme buffer
)
82 "Create or edit a custom theme.
83 THEME, if non-nil, should be an existing theme to edit. If THEME
84 is `user', provide an option to remove these as custom settings.
85 BUFFER, if non-nil, should be a buffer to use; the default is
86 named *Custom Theme*."
88 (switch-to-buffer (get-buffer-create (or buffer
"*Custom Theme*")))
89 (let ((inhibit-read-only t
))
91 (dolist (ov (overlays-in (point-min) (point-max)))
93 (custom-new-theme-mode)
94 (make-local-variable 'custom-theme-name
)
95 (set (make-local-variable 'custom-theme--save-name
) theme
)
96 (set (make-local-variable 'custom-theme-faces
) nil
)
97 (set (make-local-variable 'custom-theme-variables
) nil
)
98 (set (make-local-variable 'custom-theme-description
) "")
99 (set (make-local-variable 'custom-theme--migrate-settings
) nil
)
100 (make-local-variable 'custom-theme-insert-face-marker
)
101 (make-local-variable 'custom-theme-insert-variable-marker
)
102 (make-local-variable 'custom-theme--listed-faces
)
103 (when (called-interactively-p 'interactive
)
104 (unless (y-or-n-p "Include basic face customizations in this theme? ")
105 (setq custom-theme--listed-faces nil
)))
108 (widget-insert "This buffer contains all the Custom settings you have made.
109 You can convert them into a new custom theme, and optionally
110 remove them from your saved Custom file.\n\n"))
112 (widget-create 'push-button
114 :help-echo
"Insert the settings of a pre-defined theme."
115 :action
(lambda (_widget &optional _event
)
116 (call-interactively 'custom-theme-visit-theme
)))
118 (widget-create 'push-button
120 :help-echo
"Merge in the settings of a pre-defined theme."
121 :action
(lambda (_widget &optional _event
)
122 (call-interactively 'custom-theme-merge-theme
)))
124 (widget-create 'push-button
126 :help-echo
"Revert this buffer to its original state."
127 :action
(lambda (&rest ignored
) (revert-buffer)))
129 (widget-insert "\n\nTheme name : ")
130 (setq custom-theme-name
131 (widget-create 'editable-field
132 :value
(if (and theme
(not (eq theme
'user
)))
135 (widget-insert "Description: ")
136 (setq custom-theme-description
138 :value
(format-time-string "Created %Y-%m-%d.")))
139 (widget-create 'push-button
140 :notify
(function custom-theme-write
)
142 (when (eq theme
'user
)
143 (setq custom-theme--migrate-settings t
)
145 (widget-create 'checkbox
146 :value custom-theme--migrate-settings
147 :action
(lambda (widget &optional event
)
148 (when (widget-value widget
)
149 (widget-toggle-action widget event
)
150 (setq custom-theme--migrate-settings
151 (widget-value widget
)))))
152 (widget-insert (propertize " Remove saved theme settings from Custom save file."
153 'face
'(variable-pitch (:height
0.9)))))
155 (let (vars values faces face-specs
)
157 ;; Load the theme settings.
159 (unless (eq theme
'user
)
160 (load-theme theme nil t
))
161 (dolist (setting (get theme
'theme-settings
))
162 (if (eq (car setting
) 'theme-value
)
163 (progn (push (nth 1 setting
) vars
)
164 (push (nth 3 setting
) values
))
165 (push (nth 1 setting
) faces
)
166 (push (nth 3 setting
) face-specs
))))
168 ;; If THEME is non-nil, insert all of that theme's faces.
169 ;; Otherwise, insert those in `custom-theme--listed-faces'.
170 (widget-insert "\n\n Theme faces:\n ")
173 (custom-theme-add-face-1 (pop faces
) (pop face-specs
)))
174 (dolist (face custom-theme--listed-faces
)
175 (custom-theme-add-face-1 face nil
)))
176 (setq custom-theme-insert-face-marker
(point-marker))
178 (widget-create 'push-button
179 :tag
"Insert Additional Face"
180 :help-echo
"Add another face to this theme."
181 :follow-link
'mouse-face
182 :button-face
'custom-link
183 :mouse-face
'highlight
184 :pressed-face
'highlight
185 :action
(lambda (_widget &optional _event
)
186 (call-interactively 'custom-theme-add-face
)))
188 ;; If THEME is non-nil, insert all of that theme's variables.
189 (widget-insert "\n\n Theme variables:\n ")
192 (if (eq (car vars
) 'custom-enabled-themes
)
193 (progn (pop vars
) (pop values
))
194 (custom-theme-add-var-1 (pop vars
) (eval (pop values
))))))
195 (setq custom-theme-insert-variable-marker
(point-marker))
197 (widget-create 'push-button
198 :tag
"Insert Variable"
199 :help-echo
"Add another variable to this theme."
200 :follow-link
'mouse-face
201 :button-face
'custom-link
202 :mouse-face
'highlight
203 :pressed-face
'highlight
204 :action
(lambda (_widget &optional _event
)
205 (call-interactively 'custom-theme-add-variable
)))
208 (goto-char (point-min))
211 (defun custom-theme-revert (_ignore-auto noconfirm
)
212 (when (or noconfirm
(y-or-n-p "Discard current changes? "))
213 (customize-create-theme custom-theme--save-name
(current-buffer))))
217 (defun custom-theme-add-variable (var value
)
218 "Add a widget for VAR (a symbol) to the *New Custom Theme* buffer.
219 VALUE should be a value to which to set the widget; when called
220 interactively, this defaults to the current value of VAR."
222 (let ((v (read-variable "Variable name: ")))
223 (list v
(symbol-value v
))))
224 (let ((entry (assq var custom-theme-variables
)))
226 ;; If VAR is not yet in the buffer, add it.
228 (goto-char custom-theme-insert-variable-marker
)
229 (custom-theme-add-var-1 var value
)
230 (move-marker custom-theme-insert-variable-marker
(point))
232 ;; Otherwise, alter that var widget.
234 (widget-value-set (nth 1 entry
) t
)
235 (let ((widget (nth 2 entry
)))
236 (widget-put widget
:shown-value
(list value
))
237 (custom-redraw widget
))))))
239 (defun custom-theme-add-var-1 (symbol val
)
242 (prog1 (widget-create 'checkbox
244 :help-echo
"Enable/disable this variable.")
246 (widget-create 'custom-variable
247 :tag
(custom-unlispify-tag-name symbol
)
249 :shown-value
(list val
)
252 :custom-state
'hidden
253 :custom-style
'simple
))
254 custom-theme-variables
)
259 (defun custom-theme-add-face (face &optional spec
)
260 "Add a widget for FACE (a symbol) to the *New Custom Theme* buffer.
261 SPEC, if non-nil, should be a face spec to which to set the widget."
262 (interactive (list (read-face-name "Face name" nil nil
) nil
))
263 (unless (or (facep face
) spec
)
264 (error "`%s' has no face definition" face
))
265 (let ((entry (assq face custom-theme-faces
)))
267 ;; If FACE is not yet in the buffer, add it.
269 (goto-char custom-theme-insert-face-marker
)
270 (custom-theme-add-face-1 face spec
)
271 (move-marker custom-theme-insert-face-marker
(point))
273 ;; Otherwise, if SPEC is supplied, alter that face widget.
275 (widget-value-set (nth 1 entry
) t
)
276 (let ((widget (nth 2 entry
)))
277 (widget-put widget
:shown-value spec
)
278 (custom-redraw widget
)))
279 ((called-interactively-p 'interactive
)
280 (error "`%s' is already present" face
)))))
282 (defun custom-theme-add-face-1 (symbol spec
)
286 (widget-create 'checkbox
288 :help-echo
"Enable/disable this face.")
290 (widget-create 'custom-face
291 :tag
(custom-unlispify-tag-name symbol
)
292 :documentation-shown t
294 :custom-state
'hidden
295 :custom-style
'simple
301 ;;; Reading and writing
304 (defun custom-theme-visit-theme (theme)
305 "Set up a Custom buffer to edit custom theme THEME."
308 (intern (completing-read "Find custom theme: "
310 (custom-available-themes))))))
311 (unless (custom-theme-name-valid-p theme
)
312 (error "No valid theme named `%s'" theme
))
313 (cond ((not (eq major-mode
'custom-new-theme-mode
))
314 (customize-create-theme theme
))
315 ((y-or-n-p "Discard current changes? ")
316 (setq custom-theme--save-name theme
)
317 (custom-theme-revert nil t
))))
319 (defun custom-theme-merge-theme (theme)
320 "Merge the custom theme THEME's settings into the current buffer."
323 (intern (completing-read "Merge custom theme: "
325 (custom-available-themes))))))
326 (unless (eq theme
'user
)
327 (unless (custom-theme-name-valid-p theme
)
328 (error "Invalid theme name `%s'" theme
))
329 (load-theme theme nil t
))
330 (let ((settings (reverse (get theme
'theme-settings
))))
331 (dolist (setting settings
)
332 (let ((option (eq (car setting
) 'theme-value
))
333 (name (nth 1 setting
))
334 (value (nth 3 setting
)))
336 (memq name
'(custom-enabled-themes
337 custom-safe-themes
)))
339 'custom-theme-add-variable
340 'custom-theme-add-face
)
345 (defvar custom-reset-standard-faces-list
)
346 (defvar custom-reset-standard-variables-list
)
348 (defun custom-theme-write (&rest _ignore
)
349 "Write the current custom theme to its theme file."
351 (let* ((name (widget-value custom-theme-name
))
352 (doc (widget-value custom-theme-description
))
353 (vars custom-theme-variables
)
354 (faces custom-theme-faces
)
356 (when (string-equal name
"")
357 (setq name
(read-from-minibuffer "Theme name: " (user-login-name)))
358 (widget-value-set custom-theme-name name
))
359 (unless (custom-theme-name-valid-p (intern name
))
360 (error "Custom themes cannot be named `%s'" name
))
362 (setq filename
(expand-file-name (concat name
"-theme.el")
363 custom-theme-directory
))
364 (and (file-exists-p filename
)
365 (not (y-or-n-p (format "File %s exists. Overwrite? " filename
)))
370 (unless (file-directory-p custom-theme-directory
)
371 (make-directory (file-name-as-directory custom-theme-directory
) t
))
372 (setq buffer-file-name filename
)
374 (insert "(deftheme " name
)
375 (if doc
(insert "\n \"" doc
"\""))
377 (custom-theme-write-variables name
(reverse vars
))
378 (custom-theme-write-faces name
(reverse faces
))
379 (insert "\n(provide-theme '" name
")\n")
381 (message "Theme written to %s" filename
)
383 (when custom-theme--migrate-settings
384 ;; Remove these settings from the Custom file.
385 (let ((custom-reset-standard-variables-list '(t))
386 (custom-reset-standard-faces-list '(t)))
388 (when (and (not (eq (car var
) 'custom-enabled-themes
))
389 (widget-get (nth 1 var
) :value
))
390 (widget-apply (nth 2 var
) :custom-mark-to-reset-standard
)))
392 (when (widget-get (nth 1 face
) :value
)
393 (widget-apply (nth 2 face
) :custom-mark-to-reset-standard
)))
395 (let ((custom-theme-load-path (list 'custom-theme-directory
)))
396 (load-theme (intern name
))))))
398 (defun custom-theme-write-variables (theme vars
)
399 "Write a `custom-theme-set-variables' command for THEME.
400 It includes all variables in list VARS."
402 (let ((standard-output (current-buffer)))
403 (princ "\n(custom-theme-set-variables\n")
408 (when (widget-get (nth 1 spec
) :value
)
409 (let* ((symbol (nth 0 spec
))
410 (widget (nth 2 spec
))
411 (child (car-safe (widget-get widget
:children
)))
414 ;; Child is null if the widget is closed (hidden).
415 (car (widget-get widget
:shown-value
)))))
416 (when (boundp symbol
)
422 (prin1 (custom-quote value
))
427 (unless (looking-at "\n")
430 (defun custom-theme-write-faces (theme faces
)
431 "Write a `custom-theme-set-faces' command for THEME.
432 It includes all faces in list FACES."
434 (let ((standard-output (current-buffer)))
435 (princ "\n(custom-theme-set-faces\n")
440 ;; Insert the face iff the checkbox widget is checked.
441 (when (widget-get (nth 1 spec
) :value
)
442 (let* ((symbol (nth 0 spec
))
443 (widget (nth 2 spec
))
446 ((car-safe (widget-get widget
:children
))
447 (custom-face-widget-to-spec widget
))
448 ;; Child is null if the widget is closed (hidden).
449 ((widget-get widget
:shown-value
))
450 (t (custom-face-get-current-spec symbol
)))))
451 (when (and (facep symbol
) value
)
452 (princ (if (bolp) " '(" "\n '("))
457 (if (bolp) (princ " "))
459 (unless (looking-at "\n")
463 ;;; Describing Custom themes.
466 (defun describe-theme (theme)
467 "Display a description of the Custom theme THEME (a symbol)."
470 (intern (completing-read "Describe custom theme: "
472 (custom-available-themes))))))
473 (unless (custom-theme-name-valid-p theme
)
474 (error "Invalid theme name `%s'" theme
))
475 (help-setup-xref (list 'describe-theme theme
)
476 (called-interactively-p 'interactive
))
477 (with-help-window (help-buffer)
478 (with-current-buffer standard-output
479 (describe-theme-1 theme
))))
481 (defun describe-theme-1 (theme)
483 (princ " is a custom theme")
484 (let ((fn (locate-file (concat (symbol-name theme
) "-theme.el")
485 (custom-theme--load-path)
490 (help-insert-xref-button (file-name-nondirectory fn
)
494 (if (custom-theme-p theme
)
496 (if (custom-theme-enabled-p theme
)
497 (princ "It is loaded and enabled.")
498 (princ "It is loaded but disabled."))
499 (setq doc
(get theme
'theme-documentation
)))
500 (princ "It is not loaded.")
501 ;; Attempt to grab the theme documentation
504 (insert-file-contents fn
)
505 (let ((sexp (let ((read-circle nil
))
507 (read (current-buffer))
508 (end-of-file nil
)))))
509 (and sexp
(listp sexp
)
510 (eq (car sexp
) 'deftheme
)
511 (setq doc
(nth 2 sexp
)))))))
512 (princ "\n\nDocumentation:\n")
513 (princ (if (stringp doc
)
515 "No documentation available.")))
516 (princ "\n\nYou can ")
517 (help-insert-xref-button "customize" 'help-theme-edit theme
)
518 (princ " this theme."))
523 (defvar custom--listed-themes
)
525 (defcustom custom-theme-allow-multiple-selections nil
526 "Whether to allow multi-selections in the *Custom Themes* buffer."
529 :group
'custom-buffer
)
531 (defvar custom-theme-choose-mode-map
532 (let ((map (make-keymap)))
533 (set-keymap-parent map
(make-composed-keymap widget-keymap
535 (suppress-keymap map
)
536 (define-key map
"\C-x\C-s" 'custom-theme-save
)
537 (define-key map
"n" 'widget-forward
)
538 (define-key map
"p" 'widget-backward
)
539 (define-key map
"?" 'custom-describe-theme
)
541 "Keymap for `custom-theme-choose-mode'.")
543 (define-derived-mode custom-theme-choose-mode special-mode
"Themes"
544 "Major mode for selecting Custom themes.
545 Do not call this mode function yourself. It is meant for internal use."
546 (use-local-map custom-theme-choose-mode-map
)
547 (custom--initialize-widget-variables)
548 (set (make-local-variable 'revert-buffer-function
)
549 (lambda (_ignore-auto noconfirm
)
550 (when (or noconfirm
(y-or-n-p "Discard current choices? "))
551 (customize-themes (current-buffer))))))
552 (put 'custom-theme-choose-mode
'mode-class
'special
)
555 (defun customize-themes (&optional buffer
)
556 "Display a selectable list of Custom themes.
557 When called from Lisp, BUFFER should be the buffer to use; if
558 omitted, a buffer named *Custom Themes* is used."
560 (switch-to-buffer (get-buffer-create (or buffer
"*Custom Themes*")))
561 (let ((inhibit-read-only t
))
563 (custom-theme-choose-mode)
564 (set (make-local-variable 'custom--listed-themes
) nil
)
565 (make-local-variable 'custom-theme-allow-multiple-selections
)
566 (and (null custom-theme-allow-multiple-selections
)
567 (> (length custom-enabled-themes
) 1)
568 (setq custom-theme-allow-multiple-selections t
))
571 (substitute-command-keys
572 "Type RET or click to enable/disable listed custom themes.
573 Type \\[custom-describe-theme] to describe the theme at point.
574 Theme files are named *-theme.el in `"))
575 (widget-create 'link
:value
"custom-theme-load-path"
576 :button-face
'custom-link
577 :mouse-face
'highlight
578 :pressed-face
'highlight
579 :help-echo
"Describe `custom-theme-load-path'."
580 :keymap custom-mode-link-map
581 :follow-link
'mouse-face
582 :action
(lambda (_widget &rest _ignore
)
583 (describe-variable 'custom-theme-load-path
)))
584 (widget-insert "'.\n\n")
586 ;; If the user has made customizations, display a warning and
587 ;; provide buttons to disable or convert them.
588 (let ((user-settings (get 'user
'theme-settings
)))
589 (unless (or (null user-settings
)
590 (and (null (cdr user-settings
))
591 (eq (caar user-settings
) 'theme-value
)
592 (eq (cadr (car user-settings
)) 'custom-enabled-themes
)))
595 " Note: Your custom settings take precedence over theme settings.
596 To migrate your settings into a theme, click "
597 'face
'font-lock-warning-face
))
598 (widget-create 'link
:value
"here"
599 :button-face
'custom-link
600 :mouse-face
'highlight
601 :pressed-face
'highlight
602 :help-echo
"Migrate."
603 :keymap custom-mode-link-map
604 :follow-link
'mouse-face
605 :action
(lambda (_widget &rest _ignore
)
606 (customize-create-theme 'user
)))
607 (widget-insert ".\n\n")))
609 (widget-create 'push-button
610 :tag
" Save Theme Settings "
611 :help-echo
"Save the selected themes for future sessions."
612 :action
'custom-theme-save
)
614 (widget-create 'checkbox
615 :value custom-theme-allow-multiple-selections
616 :action
'custom-theme-selections-toggle
)
617 (widget-insert (propertize " Select more than one theme at a time"
618 'face
'(variable-pitch (:height
0.9))))
620 (widget-insert "\n\nAvailable Custom Themes:\n")
621 (let ((help-echo "mouse-2: Enable this theme for this session")
623 (dolist (theme (custom-available-themes))
624 (setq widget
(widget-create 'checkbox
625 :value
(custom-theme-enabled-p theme
)
628 :action
'custom-theme-checkbox-toggle
))
629 (push (cons theme widget
) custom--listed-themes
)
630 (widget-create-child-and-convert widget
'push-button
631 :button-face-get
'ignore
632 :mouse-face-get
'ignore
633 :value
(format " %s" theme
)
634 :action
'widget-parent-action
635 :help-echo help-echo
)
636 (widget-insert " -- "
637 (propertize (custom-theme-summary theme
)
640 (goto-char (point-min))
643 (defun custom-theme-summary (theme)
644 "Return the summary line of THEME."
646 (if (custom-theme-p theme
)
647 (setq doc
(get theme
'theme-documentation
))
648 (let ((fn (locate-file (concat (symbol-name theme
) "-theme.el")
649 (custom-theme--load-path)
653 (insert-file-contents fn
)
654 (let ((sexp (let ((read-circle nil
))
656 (read (current-buffer))
657 (end-of-file nil
)))))
658 (and sexp
(listp sexp
)
659 (eq (car sexp
) 'deftheme
)
660 (setq doc
(nth 2 sexp
))))))))
662 "(no documentation available)")
663 ((string-match ".*" doc
)
664 (match-string 0 doc
))
667 (defun custom-theme-checkbox-toggle (widget &optional event
)
668 (let ((this-theme (widget-get widget
:theme-name
)))
669 (if (widget-value widget
)
670 ;; Disable the theme.
672 (disable-theme this-theme
)
673 (widget-toggle-action widget event
))
675 (unless custom-theme-allow-multiple-selections
676 ;; If only one theme is allowed, disable all other themes and
677 ;; uncheck their boxes.
678 (dolist (theme custom-enabled-themes
)
679 (and (not (eq theme this-theme
))
680 (assq theme custom--listed-themes
)
681 (disable-theme theme
)))
682 (dolist (theme custom--listed-themes
)
683 (unless (eq (car theme
) this-theme
)
684 (widget-value-set (cdr theme
) nil
)
685 (widget-apply (cdr theme
) :notify
(cdr theme
) event
))))
686 (when (load-theme this-theme
)
687 (widget-toggle-action widget event
)))
688 ;; Mark `custom-enabled-themes' as "set for current session".
689 (put 'custom-enabled-themes
'customized-value
690 (list (custom-quote custom-enabled-themes
)))))
692 (defun custom-describe-theme ()
693 "Describe the Custom theme on the current line."
695 (let ((widget (widget-at (line-beginning-position))))
697 (describe-theme (widget-get widget
:theme-name
)))))
699 (defun custom-theme-save (&rest _ignore
)
701 (customize-save-variable 'custom-enabled-themes custom-enabled-themes
)
702 (message "Custom themes saved for future sessions."))
704 (defun custom-theme-selections-toggle (widget &optional event
)
705 (when (widget-value widget
)
706 ;; Deactivate multiple-selections.
707 (if (< 1 (length (delq nil
(mapcar (lambda (x) (widget-value (cdr x
)))
708 custom--listed-themes
))))
709 (error "More than one theme is currently selected")))
710 (widget-toggle-action widget event
)
711 (setq custom-theme-allow-multiple-selections
(widget-value widget
)))
715 ;;; cus-theme.el ends here