Commit f57c4de2 authored by Dave Love's avatar Dave Love

(custom-theme-create): Simplify slightly.

(custom-theme-write-variables, custom-theme-write-faces): Use
mapc.
parent 52158b67
......@@ -54,9 +54,7 @@ This will help you share your customizations with other people.\n\n")
(widget-insert "\n\nDocumentation:\n")
(setq custom-theme-description
(widget-create 'text
:value (concat "Created "
(format-time-string "%Y-%m-%d")
".")))
:value (format-time-string "Created %Y-%m-%d.")))
(widget-insert "\nVariables:\n\n")
(setq custom-theme-variables
(widget-create 'editable-list
......@@ -113,15 +111,15 @@ It includes all variables in list VARS."
(princ " '")
(princ theme)
(princ "\n")
(mapcar (lambda (symbol)
(when (boundp symbol)
(unless (bolp)
(princ "\n"))
(princ " '(")
(prin1 symbol)
(princ " ")
(prin1 (symbol-value symbol))
(princ ")")))
(mapc (lambda (symbol)
(when (boundp symbol)
(unless (bolp)
(princ "\n"))
(princ " '(")
(prin1 symbol)
(princ " ")
(prin1 (symbol-value symbol))
(princ ")")))
vars)
(if (bolp)
(princ " "))
......@@ -138,16 +136,16 @@ It includes all faces in list FACES."
(princ " '")
(princ theme)
(princ "\n")
(mapcar (lambda (symbol)
(when (facep symbol)
(unless (bolp)
(princ "\n"))
(princ " '(")
(prin1 symbol)
(princ " ")
(prin1 (or (get symbol 'customized-face)
(get symbol 'face-defface-spec)))
(princ ")")))
(mapc (lambda (symbol)
(when (facep symbol)
(unless (bolp)
(princ "\n"))
(princ " '(")
(prin1 symbol)
(princ " ")
(prin1 (or (get symbol 'customized-face)
(get symbol 'face-defface-spec)))
(princ ")")))
faces)
(if (bolp)
(princ " "))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment