From a7b87fe3dede26c35f26047018be0e52bbdb9beb Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 30 Aug 2018 20:41:54 +0200 Subject: [PATCH] Add +emacs-lisp-enable-extra-fontification option --- modules/lang/emacs-lisp/config.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/modules/lang/emacs-lisp/config.el b/modules/lang/emacs-lisp/config.el index 4449dd255..2b9b4a854 100644 --- a/modules/lang/emacs-lisp/config.el +++ b/modules/lang/emacs-lisp/config.el @@ -1,5 +1,8 @@ ;;; lang/emacs-lisp/config.el -*- lexical-binding: t; -*- +(defvar +emacs-lisp-enable-extra-fontification t + "If non-nil, highlight special forms, and defined functions and variables.") + ;; ;; elisp-mode deferral hack ;; @@ -51,8 +54,6 @@ (add-hook! 'emacs-lisp-mode-hook #'(;; 3rd-party functionality auto-compile-on-save-mode - ;; fontification - rainbow-delimiters-mode highlight-quoted-mode ;; initialization +emacs-lisp|extend-imenu)) @@ -60,13 +61,16 @@ ;; it when you're editing them (add-hook 'flycheck-mode-hook #'+emacs-lisp|disable-flycheck-maybe) - ;; Special fontification for doom + ;; Special fontification for elisp (font-lock-add-keywords 'emacs-lisp-mode (append `(;; custom Doom cookies - ("^;;;###\\(autodef\\|if\\)[ \n]" (1 font-lock-warning-face t)) - ;; highlight defined, special variables & functions - (+emacs-lisp-highlight-vars-and-faces . +emacs-lisp--face)))) + ("^;;;###\\(autodef\\|if\\)[ \n]" (1 font-lock-warning-face t))) + ;; highlight defined, special variables & functions + (when +emacs-lisp-enable-extra-fontification + `((+emacs-lisp-highlight-vars-and-faces . +emacs-lisp--face))))) + + (add-hook! 'emacs-lisp-mode-hook #'(rainbow-delimiters-mode highlight-quoted-mode)) ;; Recenter window after following definition (advice-add #'elisp-def :after #'doom*recenter))