How to use variables in custom theme file? reddit / emacs ---------------------------------------------------------------------- ricardo_manar · 2022-08-03 00:02 Hello! I'm using this link https://old.reddit.com/r/emacs/comments/aew3yg/new _to_emacslisp_attempting_to_make_a_personal/ to define my set of colors to use across all theme file but it does not work my custom theme file: (deftheme test-theme "Created 2022-08-02.") (let ((red "#ff005f") (green "#00ff87") (cyan "#00ffff") (purple "#af5fff")) ) (custom-theme-set-faces 'test-theme `(cursor ((t (:background ,red)))) '(fixed-pitch ((t (:height 150 :family "Terminus")))) '(variable-pitch ((t (:height 150 :family "Sans serif")))) '(escape-glyph ((t (:foreground "cyan")))) '(homoglyph ((t (:foreground "cyan")))) '(minibuffer-prompt ((t (:background "black" :foreground "cyan" :weight bold)))) '(highlight ((t (:background "#454545")))) '(region ((t (:extend t :background "#ff8700" :foreground "black")))) '(shadow ((t (:foreground "grey70")))) '(secondary-selection ((t (:extend t :background "SkyBlue4")))) '(trailing-whitespace ((t (:background "#ff0000" :foreground "black")))) '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) '(font-lock-comment-delimiter-face ((t (:inherit font-lock- comment-face)))) '(font-lock-comment-face ((t (:foreground "chocolate1")))) '(font-lock-constant-face ((((class color) (min-colors 256) (background dark)) (:foreground "Aquamarine")) (t (:underline (:color foreground-color :style line) :weight bold)))) '(font-lock-doc-face ((t (:inherit font-lock-string-face)))) '(font-lock-function-name-face ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold :inverse-video t)))) '(font-lock-keyword-face ((t (:foreground "Cyan1")))) '(font-lock-negation-char-face ((t nil))) '(font-lock-preprocessor-face ((t (:inherit font-lock-builtin- face)))) '(font-lock-regexp-grouping-backslash ((t (:inherit bold)))) '(font-lock-regexp-grouping-construct ((t (:inherit bold)))) '(font-lock-string-face ((t (:foreground "LightSalmon")))) '(font-lock-type-face ((t (:foreground "PaleGreen")))) '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) '(font-lock-warning-face ((t (:inherit error)))) '(button ((t (:inherit link)))) '(link ((t (:foreground "cyan1" :underline t)))) '(link-visited ((t (:inherit link :foreground "violet")))) '(header-line ((t (:inherit mode-line :background "grey20" :foreground "grey90" :box nil)))) '(tooltip ((t (:inherit variable-pitch :background "lightyellow" :foreground "black")))) '(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) '(mode-line-buffer-id ((t (:weight bold)))) '(mode-line-emphasis ((t (:weight bold)))) '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button))))) '(mode-line-inactive ((t (:inherit mode-line :background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40") :weight light)))) '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) '(isearch-fail ((t (:background "red4")))) '(lazy-highlight ((t (:background "paleturquoise4")))) '(match ((t (:background "RoyalBlue3")))) '(next-error ((t (:inherit region)))) '(query-replace ((t (:inherit isearch)))) '(default ((t (:inherit nil :extend nil :stipple nil :background "#282828" :foreground "#ababab" :inverse-video nil :box nil :strike- through nil :overline nil :underline nil :slant normal :weight normal :height 150 :width normal :foundry "nil" :family "Unifont"))))) (provide-theme 'test-theme) error after calling M-x load theme RET test-theme Debugger entered--Lisp error: (void-variable red) (list ':background red) (list t (list ':background red)) (list (list t (list ':background red))) (list 'cursor (list (list t (list ':background red)))) (custom-theme-set-faces 'test-theme (list 'cursor (list (list t (list ':background red)))) '(fixed-pitch ((t (:height 150 :family "Terminus")))) '(variable-pitch ((t (:height 150 :family "Sans serif")))) '(escape-glyph ((t (:foreground "cyan")))) '(homoglyph ((t (:foreground "cyan")))) '(minibuffer-prompt ((t (:background "black" :foreground "cyan" :weight bold)))) '(highlight ((t (:background "#454545")))) '(region ((t (:extend t :background "#ff8700" :foreground "black")))) '(shadow ((t (:foreground "grey70")))) '(secondary-selection ((t (:extend t :background "SkyBlue4")))) '(trailing-whitespace ((t (:background "#ff0000" :foreground "black")))) '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) '(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face)))) '(font-lock-comment-face ((t (:foreground "chocolate1")))) '(font-lock-constant-face ((((class color) (min- colors 256) (background dark)) (:foreground "Aquamarine")) (t (:underline (:color foreground-color :style line) :weight bold)))) '(font-lock-doc-face ((t (:inherit font-lock-string-face)))) '(font- lock-function-name-face ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min- colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold :inverse-video t)))) '(font-lock-keyword-face ((t (:foreground "Cyan1")))) '(font-lock-negation-char-face ((t nil))) '(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face)))) '(font-lock-regexp-grouping-backslash ((t (:inherit bold)))) '(font- lock-regexp-grouping-construct ((t (:inherit bold)))) '(font-lock- string-face ((t (:foreground "LightSalmon")))) '(font-lock-type-face ((t (:foreground "PaleGreen")))) '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) '(font-lock-warning-face ((t (:inherit error)))) '(button ((t (:inherit link)))) '(link ((t (:foreground "cyan1" :underline t)))) '(link-visited ((t (:inherit link :foreground "violet")))) '(header-line ((t (:inherit mode-line :background "grey20" :foreground "grey90" :box nil)))) '(tooltip ((t (:inherit variable-pitch :background "lightyellow" :foreground "black")))) '(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) '(mode-line-buffer-id ((t (:weight bold)))) '(mode-line-emphasis ((t (:weight bold)))) '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button))))) '(mode-line-inactive ((t (:inherit mode-line :background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40") :weight light)))) '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) '(isearch-fail ((t (:background "red4")))) '(lazy-highlight ((t (:background "paleturquoise4")))) '(match ((t (:background "RoyalBlue3")))) '(next- error ((t (:inherit region)))) '(query-replace ((t (:inherit isearch)))) '(default ((t (:inherit nil :extend nil :stipple nil :background "#282828" :foreground "#ababab" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 150 :width normal :foundry "nil" :family "Unifont"))))) eval-buffer(nil nil "/Users/user/.emacs.d/test-theme-theme.el") ; Reading at buffer position 3603 load-theme(test-theme nil nil) funcall-interactively(load-theme test-theme nil nil) call-interactively(load-theme record nil) command-execute(load-theme record) helm-M-x-execute-command(load-theme) helm-execute-selection-action-1() helm-execute-selection-action() helm-internal((((name . "Emacs Commands history") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap (keymap ...) keymap (29 . helm-M-x-toggle-short-doc) (21 . helm-M-x-universal-argument) keymap (127 . helm-mode-delete-char- backward-maybe) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (f12 . #f(compiled-function () ... #)) (f11 . #f(compiled-function () ... #)) (f10 . #f(compiled-function () ... #)) (f9 . #f(compiled-function () ... #)) (f8 . #f(compiled-function () ... #)) (f7 . #f(compiled-function () ... #)) (f6 . #f(compiled-function () ... #)) (f5 . #f(compiled-function () ... #)) (f4 . #f(compiled-function () ... #)) (f3 . #f(compiled-function () ... #)) (f2 . #f(compiled-function () ... #)) (menu-bar keymap ...) (help keymap ...) (23 . helm-helm-yank-text-at-point-with- subkeys) (f1 . #f(compiled-function () ... #)) (8 keymap ... ... ... ... ...) (20 . helm-toggle- resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle- suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search)) ((name . "Emacs Commands") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap (keymap ...) keymap (29 . helm-M-x-toggle-short-doc) (21 . helm-M-x-universal-argument) keymap (127 . helm-mode-delete-char- backward-maybe) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (f12 . #f(compiled-function () ... #)) (f11 . #f(compiled-function () ... #)) (f10 . #f(compiled-function () ... #)) (f9 . #f(compiled-function () ... #)) (f8 . #f(compiled-function () ... #)) (f7 . #f(compiled-function () ... #)) (f6 . #f(compiled-function () ... #)) (f5 . #f(compiled-function () ... #)) (f4 . #f(compiled-function () ... #)) (f3 . #f(compiled-function () ... #)) (f2 . #f(compiled-function () ... #)) (menu-bar keymap ...) (help keymap ...) (23 . helm-helm-yank-text-at-point-with- subkeys) (f1 . #f(compiled-function () ... #)) (8 keymap ... ... ... ... ...) (20 . helm-toggle- resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle- suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history) apply(helm-internal ((((name . "Emacs Commands history") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap ... keymap ... ... keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search)) ((name . "Emacs Commands") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap ... keymap ... ... keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history)) helm((((name . "Emacs Commands history") (init #f(compiled- function () #)) (candidates . helm- candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap (keymap ...) keymap (29 . helm-M-x-toggle-short-doc) (21 . helm-M-x-universal-argument) keymap (127 . helm-mode-delete-char- backward-maybe) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (f12 . #f(compiled-function () ... #)) (f11 . #f(compiled-function () ... #)) (f10 . #f(compiled-function () ... #)) (f9 . #f(compiled-function () ... #)) (f8 . #f(compiled-function () ... #)) (f7 . #f(compiled-function () ... #)) (f6 . #f(compiled-function () ... #)) (f5 . #f(compiled-function () ... #)) (f4 . #f(compiled-function () ... #)) (f3 . #f(compiled-function () ... #)) (f2 . #f(compiled-function () ... #)) (menu-bar keymap ...) (help keymap ...) (23 . helm-helm-yank-text-at-point-with- subkeys) (f1 . #f(compiled-function () ... #)) (8 keymap ... ... ... ... ...) (20 . helm-toggle- resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle- suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search)) ((name . "Emacs Commands") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap (keymap ...) keymap (29 . helm-M-x-toggle-short-doc) (21 . helm-M-x-universal-argument) keymap (127 . helm-mode-delete-char- backward-maybe) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (f12 . #f(compiled-function () ... #)) (f11 . #f(compiled-function () ... #)) (f10 . #f(compiled-function () ... #)) (f9 . #f(compiled-function () ... #)) (f8 . #f(compiled-function () ... #)) (f7 . #f(compiled-function () ... #)) (f6 . #f(compiled-function () ... #)) (f5 . #f(compiled-function () ... #)) (f4 . #f(compiled-function () ... #)) (f3 . #f(compiled-function () ... #)) (f2 . #f(compiled-function () ... #)) (menu-bar keymap ...) (help keymap ...) (23 . helm-helm-yank-text-at-point-with- subkeys) (f1 . #f(compiled-function () ... #)) (8 keymap ... ... ... ... ...) (20 . helm-toggle- resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle- suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history) apply(helm ((((name . "Emacs Commands history") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap ... keymap ... ... keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search)) ((name . "Emacs Commands") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap ... keymap ... ... keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history)) helm(:sources (((name . "Emacs Commands history") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap (keymap ...) keymap (29 . helm-M-x-toggle-short-doc) (21 . helm-M-x-universal-argument) keymap (127 . helm-mode-delete-char- backward-maybe) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (f12 . #f(compiled-function () ... #)) (f11 . #f(compiled-function () ... #)) (f10 . #f(compiled-function () ... #)) (f9 . #f(compiled-function () ... #)) (f8 . #f(compiled-function () ... #)) (f7 . #f(compiled-function () ... #)) (f6 . #f(compiled-function () ... #)) (f5 . #f(compiled-function () ... #)) (f4 . #f(compiled-function () ... #)) (f3 . #f(compiled-function () ... #)) (f2 . #f(compiled-function () ... #)) (menu-bar keymap ...) (help keymap ...) (23 . helm-helm-yank-text-at-point-with- subkeys) (f1 . #f(compiled-function () ... #)) (8 keymap ... ... ... ... ...) (20 . helm-toggle- resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle- suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search)) ((name . "Emacs Commands") (init #f(compiled-function () #)) (candidates . helm-candidates-in-buffer) (cleanup . helm-M-x--unwind-forms) (keymap keymap (keymap ...) keymap (29 . helm-M-x-toggle-short-doc) (21 . helm-M-x-universal-argument) keymap (127 . helm-mode-delete-char- backward-maybe) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (f12 . #f(compiled-function () ... #)) (f11 . #f(compiled-function () ... #)) (f10 . #f(compiled-function () ... #)) (f9 . #f(compiled-function () ... #)) (f8 . #f(compiled-function () ... #)) (f7 . #f(compiled-function () ... #)) (f6 . #f(compiled-function () ... #)) (f5 . #f(compiled-function () ... #)) (f4 . #f(compiled-function () ... #)) (f3 . #f(compiled-function () ... #)) (f2 . #f(compiled-function () ... #)) (menu-bar keymap ...) (help keymap ...) (23 . helm-helm-yank-text-at-point-with- subkeys) (f1 . #f(compiled-function () ... #)) (8 keymap ... ... ... ... ...) (20 . helm-toggle- resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle- suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) ...) (action . helm-type-command-actions) (persistent-action . helm-M- x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort #f(compiled-function (candidates source) #) helm-fuzzy-highlight-matches) (volatile . t) (match identity) (fuzzy- match . t) (redisplay . identity) (nomark . t) (coerce . helm- symbolify) (header-line . "C-j: Describe this command (keep...") (resume . helm-M-x-resume-fn) (multimatch . t) (must-match . t) (group . helm-command) (data . #f(compiled-function () #)) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search- default-fn helm-fuzzy-search))) :prompt "M-x " :buffer "*helm M-x*" :history helm-M-x-input-history :truncate-lines t) helm-M-x-read-extended-command([0 olc wand isearch--state-pop- fun--cmacro locals 0 winring xselect--int-to-cons input-method- verbose-flag custom-face-menu guix tramp-find-user help-variable 0 evil-replace-alist 0 tramp-gvfs-handle-copy-file biblio-core adwaita defun-prompt-regexp winnow mixal encourage-mode tidal cl-print-- preprocess charset-id-internal selinux-context edebug-clear-frequency- count tab-bar-select-tab DXT1 0 0 ---- evil-visual-exchange-corners docker-tramp 0 Edebug\ All\ Defs helm-kill-regexp-as-sexp helm-browse- project-build-buffers-source \' tramp-rename-files osx-org-clock- menubar tramp-cache-data + evil-echo-area-message tramp-gvfs-unmount calc-embedded-mode-hook helm-buffers--get-tab-from-name evil-replace- state-local-map 0 ...]) helm-M-x(nil) funcall-interactively(helm-M-x nil) call-interactively(helm-M-x nil nil) command-execute(helm-M-x) What i did wrong? my env: mac os 10-15-5, emacs 27.2 ---------------------------------------------------------------------- flexibeast · 2022-08-03 01:11 `custom-theme-set-faces` needs to be *inside* the `let`, but you've put a closing parenthesis just before the call to `custom-theme-set- faces`. Instead, it should go *after* that call. ---------------------------------------------------------------------- ricardo_manar · 2022-08-03 14:44 Thank you so much! It solves my problem