;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require widget cus-edit] 2)
#@37 Keymap for `custom-new-theme-mode'.
(defvar custom-new-theme-mode-map (byte-code "\303 \304\305 \n\"\"\210\306!\210\307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210)\207" [map widget-keymap special-mode-map make-keymap set-keymap-parent make-composed-keymap suppress-keymap define-key "" custom-theme-write "q" Custom-buffer-done "n" widget-forward "p" widget-backward] 5) (#$ . 477))
(defvar custom-new-theme-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [custom-new-theme-mode-hook variable-documentation put "Hook run after entering Custom-Theme mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp custom-new-theme-mode-map definition-name custom-new-theme-mode] 4)
(defvar custom-new-theme-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [custom-new-theme-mode-abbrev-table custom-new-theme-mode-map variable-documentation put purecopy "Keymap for `custom-new-theme-mode'." boundp custom-new-theme-mode-syntax-table definition-name custom-new-theme-mode (lambda (#1=#:def-tmp-var) (defvar custom-new-theme-mode-syntax-table #1#)) make-syntax-table "Syntax table for `custom-new-theme-mode'." (lambda (#1#) (defvar custom-new-theme-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `custom-new-theme-mode'." derived-mode-parent] 5)
#@252 Major mode for editing Custom themes.
Do not call this mode function yourself. It is meant for internal use.
This mode runs the hook `custom-new-theme-mode-hook', as the final or penultimate step
during initialization.
\{custom-new-theme-mode-map}
(defalias 'custom-new-theme-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\313 !\210\315 \210\306\316!\210\317)\320\321!\207" [delay-mode-hooks major-mode mode-name custom-new-theme-mode-map custom-new-theme-mode-syntax-table custom-new-theme-mode-abbrev-table make-local-variable t kill-all-local-variables custom-new-theme-mode "Custom-Theme" use-local-map set-syntax-table custom--initialize-widget-variables revert-buffer-function custom-theme-revert run-mode-hooks custom-new-theme-mode-hook local-abbrev-table] 2 (#$ . 2172) nil])
(put 'custom-new-theme-mode 'mode-class 'special)
(defvar custom-theme-name nil)
(defvar custom-theme-variables nil)
(defvar custom-theme-faces nil)
(defvar custom-theme-description nil)
(defvar custom-theme--migrate-settings nil)
(defvar custom-theme-insert-variable-marker nil)
(defvar custom-theme-insert-face-marker nil)
#@55 Faces listed by default in the *Custom Theme* buffer.
(defvar custom-theme--listed-faces '(default cursor fixed-pitch variable-pitch escape-glyph homoglyph minibuffer-prompt highlight region shadow secondary-selection trailing-whitespace font-lock-builtin-face font-lock-comment-delimiter-face font-lock-comment-face font-lock-constant-face font-lock-doc-face font-lock-function-name-face font-lock-keyword-face font-lock-negation-char-face font-lock-preprocessor-face font-lock-regexp-grouping-backslash font-lock-regexp-grouping-construct font-lock-string-face font-lock-type-face font-lock-variable-name-face font-lock-warning-face button link link-visited fringe header-line tooltip mode-line mode-line-buffer-id mode-line-emphasis mode-line-highlight mode-line-inactive isearch isearch-fail lazy-highlight match next-error query-replace) (#$ . 3320))
#@337 Create or edit a custom theme.
THEME, if non-nil, should be an existing theme to edit. If THEME
is `user', the resulting *Custom Theme* buffer also contains a
checkbox for removing the theme settings specified in the buffer
from the Custom save file.
BUFFER, if non-nil, should be a buffer to use; the default is
named *Custom Theme*.
(defalias 'customize-create-theme #[(&optional theme buffer) "\306\307\206 \310!!\210\311\312 \210\313ed\"\314\211\203( @\315\n!\210 A\211\204 +\316 \210\317\320!\210\317\305!\210\f\317\321!\210\314\317\322!\210\314\317\323!\210\324\317\325!\210\314\317\326!\210\317\327!\210\317\330!\210\331\332!\203m \333\334!\204m \314\f\335=\203w \336\337!\210\340\341\342\343\344\345\346\347&\210\336\350!\210\340\341\342\351\344\352\346\353&\210\336\350!\210\340\341\342\354\344\355\346\356&\210\336\357!\210\340\360\361\f\203\267 \f\335=\204\267 \362\f!\202\270 \324#\336\363!\210\340\364\361\365\366!#\340\341\367\370\371$\210\f\335=\203\355 \311\336\350!\210\340\372\361\346\373%\210\336\374\375\376\377#!\210\314\211\211\211 @ A B C\f\203X\f\335=\204 \201E \f\314\311#\210\f\201F N\314 D\211\203W @\211D@\201G =\203<DA@CBC\201H D8BBB\202PDA@ABA\201H D8@B@ A\211\204*\336\201I !\210\f\203}A\203\233\201J A\211AA\242@\211A@\242\"\210\202b\314 >\211\203\232 @>\201J >\314\"\210 A\211\204\207*\201K \336\201L !\210\340\341\342\201M \344\201N \201O \201P \201Q \201R \201S \201T \201U \201T \346\201V &\210\336\201W !\210\f\203C\203C@\201X =\203\373C\210CACB\211AB\210\202\332\201Y C\211AC\242\201Z B\211AB\242!\"\210\202\332\201K \336\201L !\210\340\341\342\201[ \344\201\\ \201O \201P \201Q \201R \201S \201T \201U \201T \346\201] &\210\336\201^ !\210\201_ \210eb\210\201` \324!,\207" [buffer inhibit-read-only ov --dolist-tail-- theme custom-theme--save-name switch-to-buffer get-buffer-create "*Custom Theme*" t erase-buffer overlays-in nil delete-overlay custom-new-theme-mode make-local-variable custom-theme-name custom-theme-faces custom-theme-variables custom-theme-description "" custom-theme--migrate-settings custom-theme-insert-face-marker custom-theme-insert-variable-marker custom-theme--listed-faces called-interactively-p interactive y-or-n-p "Include basic face customizations in this theme? " user widget-insert "This buffer contains all the Custom settings you have made.\nYou can convert them into a new custom theme, and optionally\nremove them from your saved Custom file.\n\n" widget-create push-button :tag " Visit Theme " :help-echo "Insert the settings of a pre-defined theme." :action #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-visit-theme] 2] " " " Merge Theme " "Merge in the settings of a pre-defined theme." #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-merge-theme] 2] " Revert " "Revert this buffer to its original state." #[(&rest ignored) "\300 \207" [revert-buffer] 1] "\n\nTheme name : " editable-field :value symbol-name "Description: " text format-time-string "Created %Y-%m-%d." :notify custom-theme-write " Save Theme " checkbox #[(widget &optional event) "\303!\205 \304 \"\210\303!\211\207" [widget event custom-theme--migrate-settings widget-value widget-toggle-action] 3] propertize " Remove saved theme settings from Custom save file." face (variable-pitch (:height 0.9)) face-specs faces values vars setting load-theme theme-settings theme-value 3 "\n\n Theme faces:\n " custom-theme-add-face-1 point-marker " " "Insert Additional Face" "Add another face to this theme." :follow-link mouse-face :button-face custom-link :mouse-face highlight :pressed-face #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-add-face] 2] "\n\n Theme variables:\n " custom-enabled-themes custom-theme-add-var-1 eval "Insert Variable" "Add another variable to this theme." #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-add-variable] 2] 10 widget-setup message] 17 (#$ . 4183) nil])
#@109 Revert the current *Custom Theme* buffer.
This is the `revert-buffer-function' for `custom-new-theme-mode'.
(defalias 'custom-theme-revert #[(_ignore-auto noconfirm) "\204\n \302\303!\205 \304 p\"\207" [noconfirm custom-theme--save-name y-or-n-p "Discard current changes? " customize-create-theme] 3 (#$ . 8255)])
#@189 Add a widget for VAR (a symbol) to the *New Custom Theme* buffer.
VALUE should be a value to which to set the widget; when called
interactively, this defaults to the current value of VAR.
(defalias 'custom-theme-add-variable #[(var value) " \236\211\204 \212 b\210\306\f\"\210 `\307\223\210\310 )\2022 \311\nA@\312\"\210\313\n8 \314
\315\fC#\210\316
!))\207" [var custom-theme-variables entry custom-theme-insert-variable-marker value widget custom-theme-add-var-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw] 5 (#$ . 8578) (let ((v (read-variable "Variable name: "))) (list v (symbol-value v)))])
(defalias 'custom-theme-add-var-1 #[(symbol val) "\303\304!\210\305\306\307\310\311\312%\303\304!\210\305\313\314\315!\307\316 C\317\320\321\322\323\324\325\326&E\nB\303\304!\207" [symbol val custom-theme-variables widget-insert " " widget-create checkbox :value t :help-echo "Enable/disable this variable." custom-variable :tag custom-unlispify-tag-name :shown-value :notify ignore :custom-level 0 :custom-state hidden :custom-style simple] 18])
#@136 Add a widget for FACE (a symbol) to the *New Custom Theme* buffer.
SPEC, if non-nil, should be a face spec to which to set the widget.
(defalias 'custom-theme-add-face #[(face &optional spec) "\306!\204 \204 \307\310\"\210\n\236\211\204+ \212\fb\210\311 \"\210\f`\312\223\210\313 )\202Q \203G \314 A@\315\"\210\316 8 \317
\320 #\210\321
!)\202Q \322\323!\205Q \307\324\")\207" [face spec custom-theme-faces entry custom-theme-insert-face-marker widget facep error "`%s' has no face definition" custom-theme-add-face-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw called-interactively-p interactive "`%s' is already present"] 5 (#$ . 9671) (list (read-face-name "Face name" (face-at-point t)))])
(defalias 'custom-theme-add-face-1 #[(symbol spec) "\303\304!\210\305\306\307\310\311\312%\303\304!\210\305\313\314\315!\316\310\307\317\320\321\322\323 \324\325&E\nB\303\304!\207" [symbol spec custom-theme-faces widget-insert " " widget-create checkbox :value t :help-echo "Enable/disable this face." custom-face :tag custom-unlispify-tag-name :documentation-shown :custom-state hidden :custom-style simple :shown-value :sample-indent 34] 18])
#@52 Set up a Custom buffer to edit custom theme THEME.
(defalias 'custom-theme-visit-theme #[(theme) "\303!\204 \304\305\"\210 \306=\204 \307!\207\310\311!\205! \312\313\314\"\207" [theme major-mode custom-theme--save-name custom-theme-name-valid-p error "No valid theme named `%s'" custom-new-theme-mode customize-create-theme y-or-n-p "Discard current changes? " custom-theme-revert nil t] 3 (#$ . 10863) (list (intern (completing-read "Find custom theme: " (mapcar 'symbol-name (custom-available-themes)))))])
#@66 Merge the custom theme THEME's settings into the current buffer.
(defalias 'custom-theme-merge-theme #[(theme) "\306=\204 \307!\204 \310\311\"\210\312\313\314#\210\315\316N!\211\313\211\203V @\211@\317=\nA@\320\n8 \211 \203@
\321>\204N \203I \322\202J \323
\f\"\210+ A\211\204% +\207" [theme settings setting --dolist-tail-- value name user custom-theme-name-valid-p error "Invalid theme name `%s'" load-theme nil t reverse theme-settings theme-value 3 (custom-enabled-themes custom-safe-themes) custom-theme-add-variable custom-theme-add-face option] 5 (#$ . 11385) (list (intern (completing-read "Merge custom theme: " (mapcar 'symbol-name (custom-available-themes)))))])
#@51 Write the current custom theme to its theme file.
(defalias 'custom-theme-write #[(&rest _ignore) "\306!\306\n!\f 7 8\307 9 \310\230\203\" \311\312\313 \"\314 \"\210\315\316 !!\204/ \317\320 \"\210\321 \322P5\"9\3239!\203M \324\325\3269\"!\204M \317\327!\210\330\331! :r:q\210\332\216\333 \210\3345!\204k \335\3365!\337\"\2109;\340 \210\341 \261\210 \203\201 \342 \343\261\210\344c\210\345 \346
!\"\210\347 \3468!\"\210\350 \344\261\210\351 \210+\352\3539\"\210<\205\354\355 = >
\307 ?\211 @\203\337 @@\211?@\356=\204\326 \357?A@\360\"\203\326 \361\362?8\363\"\210@A\211@\204\270 *8\307 A\211 @\203 @@A\357AA@\360\"\203\361\362A8\363\"\210@A\211@\204\353 *\364 \210*\365C B\366\316 !!)-\207" [custom-theme-name name custom-theme-description doc custom-theme-variables vars widget-value nil "" read-from-minibuffer "Theme name: " user-login-name widget-value-set custom-theme-name-valid-p intern error "Custom themes cannot be named `%s'" expand-file-name "-theme.el" file-exists-p y-or-n-p format "File %s exists. Overwrite? " "Aborted" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] emacs-lisp-mode file-directory-p make-directory file-name-as-directory t erase-buffer "(deftheme " "\n \"" "\"" ")\n" custom-theme-write-variables reverse custom-theme-write-faces "\n(provide-theme '" save-buffer message "Theme written to %s" (t) (t) custom-enabled-themes widget-get :value widget-apply 2 :custom-mark-to-reset-standard custom-save-all custom-theme-directory load-theme custom-theme-faces faces filename #1# buffer-file-name custom-theme--migrate-settings custom-reset-standard-faces-list custom-reset-standard-variables-list var --dolist-tail-- face custom-theme-load-path] 5 (#$ . 12084) nil])
#@97 Write a `custom-theme-set-variables' command for THEME.
It includes all variables in list VARS.
(defalias 'custom-theme-write-variables #[(theme vars) "\205\222 p\306\307!\210\306\310!\210\306\n!\210\306\311!\210\312\211 \203z \f@\313 A@\314\"\203s @ \315 8 \313\316\"\242\211 \203E \317!\202K \313\320\"@ \321
!\203r n\204[ \306\311!\210\306\322!\210\323
!\210\306\324!\210\323\325!!\210\306\326!\210,\fA\211\204 *n\203\203 \306\324!\210\306\326!\210g\327U?\205\221 \306\311!)\207" [vars standard-output theme spec --dolist-tail-- symbol princ "\n(custom-theme-set-variables\n" " '" "\n" nil widget-get :value 2 :children widget-value :shown-value boundp " '(" prin1 " " custom-quote ")" 10 widget child value] 4 (#$ . 13888)])
#@90 Write a `custom-theme-set-faces' command for THEME.
It includes all faces in list FACES.
(defalias 'custom-theme-write-faces #[(theme faces) "\205\227 p\306\307!\210\306\310!\210\306\n!\210\306\311!\210\312\211 \203 \f@\313 A@\314\"\203x @ \315 8 \313\316\"\242\203B \317!\202M \313\320\"\206M \321
! \322
!\203w \203w \306n\203c \323\202d \324!\210\325
!\210\306\326!\210\325!\210\306\327!\210+\fA\211\204 *n\203\210 \306\326!\210\306\327!\210g\330U?\205\226 \306\311!)\207" [faces standard-output theme spec --dolist-tail-- symbol princ "\n(custom-theme-set-faces\n" " '" "\n" nil widget-get :value 2 :children custom-face-widget-to-spec :shown-value custom-face-get-current-spec facep " '(" "\n '(" prin1 " " ")" 10 widget value] 4 (#$ . 14642)])
#@61 Display a description of the Custom theme THEME (a symbol).
(defalias 'describe-theme #[(theme) "\306!\204 \307\310\"\210\311\312D\313\314!\"\210 \315\211\223\210\316\nB\317 B\320 \321 \322
!\211 \315\211 rq\210\323!)rq\210\324\315\")\325\326!\203\\ \326\"\202^ .\207" [theme help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name custom-theme-name-valid-p error "Invalid theme name `%s'" help-setup-xref describe-theme called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup describe-theme-1 temp-buffer-window-show functionp help-window-setup #2=#:buffer standard-output #3=#:window #4=#:value] 5 (#$ . 15419) (list (intern (completing-read "Describe custom theme: " (mapcar 'symbol-name (custom-available-themes)))))])
(defalias 'describe-theme-1 #[(theme) "\306!\210\307\310!\210\311\312!\313P\314 \315#\316\211\203- \307\317\320!!\210\321\322\n!\323\n#\210\307\317\324!!\210\307\325!\210\211 >)\203U \211\f>)\203J \307\326!\210\202N \307\327!\210\330N\202\226 \307\331!\210\n\203\226 \332\333! r
q\210\334\216\335\n!\210\316 (\3361y \337p!0\202{ \210\316)\211 )\203\225 )<\203\225 )@\340=\203\225 \341)8,\307\342!\210\307 ;\203\246 \317 !\202\247 \343!\210*\307\344!\210\321\345\346#\210\307\347!\207" [theme doc fn custom-known-themes custom-enabled-themes #1=#:temp-buffer prin1 princ " is a custom theme" locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") nil substitute-command-keys " in `" help-insert-xref-button file-name-nondirectory help-theme-def "'" ".\n" "It is loaded and enabled." "It is loaded but disabled." theme-documentation "It is not loaded." generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents (end-of-file) read deftheme 2 "\n\nDocumentation:\n" "No documentation available." "\n\nYou can " "customize" help-theme-edit " this theme." read-circle sexp] 5])
#@66 Whether to allow multi-selections in the *Custom Themes* buffer.
(custom-declare-variable 'custom-theme-allow-multiple-selections nil '(#$ . 17477) :version "24.1" :type 'boolean :group 'custom-buffer)
#@40 Keymap for `custom-theme-choose-mode'.
(defvar custom-theme-choose-mode-map (byte-code "\303 \304\305 \n\"\"\210\306!\210\307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210)\207" [map widget-keymap special-mode-map make-keymap set-keymap-parent make-composed-keymap suppress-keymap define-key "" custom-theme-save "n" widget-forward "p" widget-backward "?" custom-describe-theme] 5) (#$ . 17685))
(defvar custom-theme-choose-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [custom-theme-choose-mode-hook variable-documentation put "Hook run after entering Themes mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp custom-theme-choose-mode-map definition-name custom-theme-choose-mode] 4)
(defvar custom-theme-choose-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [custom-theme-choose-mode-abbrev-table custom-theme-choose-mode-map variable-documentation put purecopy "Keymap for `custom-theme-choose-mode'." boundp custom-theme-choose-mode-syntax-table definition-name custom-theme-choose-mode (lambda (#1=#:def-tmp-var) (defvar custom-theme-choose-mode-syntax-table #1#)) make-syntax-table "Syntax table for `custom-theme-choose-mode'." (lambda (#1#) (defvar custom-theme-choose-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `custom-theme-choose-mode'." derived-mode-parent special-mode] 5)
#@332 Major mode for selecting Custom themes.
Do not call this mode function yourself. It is meant for internal use.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `custom-theme-choose-mode-hook', as the final or penultimate step
during initialization.
\{custom-theme-choose-mode-map}
(defalias 'custom-theme-choose-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\210\327 !\210\330\f!\210 \327 !\210\331 \210\306\332!\210\333)\334\335!\207" [delay-mode-hooks major-mode mode-name custom-theme-choose-mode-map custom-theme-choose-mode-syntax-table parent make-local-variable t special-mode custom-theme-choose-mode "Themes" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table custom--initialize-widget-variables revert-buffer-function #[(_ignore-auto noconfirm) "\204\n \301\302!\205
\303p!\207" [noconfirm y-or-n-p "Discard current choices? " customize-themes] 2] run-mode-hooks custom-theme-choose-mode-hook custom-theme-choose-mode-abbrev-table local-abbrev-table] 6 (#$ . 19439) nil])
(put 'custom-theme-choose-mode 'mode-class 'special)
#@156 Display a selectable list of Custom themes.
When called from Lisp, BUFFER should be the buffer to use; if
omitted, a buffer named *Custom Themes* is used.
(defalias 'customize-themes #[(&optional buffer) "\306\307\206 \310!!\210\311\312 \210)\313 \210\314\302!\210\315\314\303!\210 \204* \fG\316V\203* \311\317\320\321!!\210\322\323\324\325\326\327\330\331\332\331\333\334\335
\336\337\340\341&\210\317\320\342!!\210\343\344N\211 @\203\216 @A\204m @@@\345=\203m @@A@\304=\204\216 \317\346\347\350\351#!\210\322\323\324\352\326\327\330\331\332\331\333\353\335
\336\337\340\354&\210\317\355!\210)\322\356\357\360\333\361\340\362&\210\317\363!\210\322\364\324 \340\365%\210\317\346\366\350\367#!\210\317\370!\210\371\315 A B\372 \315 C\211 D\203!D@C\322\364\324C\211 C\f>)\373C\333B\340\374& ACAB\nB\375A\356\376\377\201E \377\324\201F \201G C\"\340\201H \333B&\f\210\317\201I \346\201J C!\350\201K #\363#\210DA\211D\204\303 ,eb\210\201L \207" [buffer inhibit-read-only custom--listed-themes custom-theme-allow-multiple-selections custom-enabled-themes custom-mode-link-map switch-to-buffer get-buffer-create "*Custom Themes*" t erase-buffer custom-theme-choose-mode make-local-variable nil 1 widget-insert substitute-command-keys "Type RET or click to enable/disable listed custom themes.\nType \\[custom-describe-theme] to describe the theme at point.\nTheme files are named *-theme.el in `" widget-create link :value "custom-theme-load-path" :button-face custom-link :mouse-face highlight :pressed-face :help-echo "Describe `custom-theme-load-path'." :keymap :follow-link mouse-face :action #[(_widget &rest _ignore) "\300\301!\207" [describe-variable custom-theme-load-path] 2] "'.\n\n" user theme-settings theme-value propertize " Note: Your custom settings take precedence over theme settings.\n To migrate your settings into a theme, click " face font-lock-warning-face "here" "Migrate." #[(_widget &rest _ignore) "\300\301!\207" [customize-create-theme user] 2] ".\n\n" push-button :tag " Save Theme Settings " "Save the selected themes for future sessions." custom-theme-save 10 checkbox custom-theme-selections-toggle " Select more than one theme at a time" (variable-pitch (:height 0.9)) "\n\nAvailable Custom Themes:\n" "mouse-2: Enable this theme for this session" custom-available-themes :theme-name custom-theme-checkbox-toggle widget-create-child-and-convert :button-face-get ignore user-settings widget help-echo theme --dolist-tail-- :mouse-face-get format " %s" widget-parent-action " -- " custom-theme-summary shadow widget-setup] 19 (#$ . 20865) nil])
#@35 Return the summary line of THEME.
(defalias 'custom-theme-summary #[(theme) "\306 \211\n>)\203 \307N\202Z \310\311 !\312P\313 \314#\211\203Y \315\316! r\fq\210\317\216\320 !\210\306 \3211< \322p!0\202> \210\306)\211 \203X <\203X @\323=\203X \3248,)\204b \325\202q \326\327\"\203p \330\331\"\202q )\207" [doc theme custom-known-themes fn #1=#:temp-buffer read-circle nil theme-documentation locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents (end-of-file) read deftheme 2 "(no documentation available)" string-match ".*" match-string 0 sexp] 5 (#$ . 23475)])
(defalias 'custom-theme-checkbox-toggle #[(widget &optional event) "\306\307\"\310!\203 \311 !\210\312\n\"\210\202| \204q \f\313 \211 \203B @\211 =\2049
\236\2039 \311
!\210A\211\204$ *\313 \211 \203p @\211@ =\204g \314
A\313\"\210\315
A\316
A\n$\210A\211\204M *\317 !\203| \312\n\"\210\320\304\321\322\f!C#)\207" [widget this-theme event custom-theme-allow-multiple-selections custom-enabled-themes theme widget-get :theme-name widget-value disable-theme widget-toggle-action nil widget-value-set widget-apply :notify load-theme put customized-value custom-quote --dolist-tail-- custom--listed-themes] 6])
#@48 Describe the Custom theme on the current line.
(defalias 'custom-describe-theme #[nil "\301\302 !\211\205 \303\304\305\"!)\207" [widget widget-at line-beginning-position describe-theme widget-get :theme-name] 5 (#$ . 24825) nil])
(defalias 'custom-theme-save #[(&rest _ignore) "\301\300\"\210\302\303!\207" [custom-enabled-themes customize-save-variable message "Custom themes saved for future sessions."] 3 nil nil])
(defalias 'custom-theme-selections-toggle #[(widget &optional event) "\304!\203 \305\306\307\310\311 \"\"GW\203 \312\313!\210\314\n\"\210\304!\211\207" [widget custom--listed-themes event custom-theme-allow-multiple-selections widget-value 1 delq nil mapcar #[(x) "\301A!\207" [x widget-value] 2] error "More than one theme is currently selected" widget-toggle-action] 6])
(provide 'cus-theme)
|