Conform hook names to conventions
Also minor reformatting & comment corrections.
This commit is contained in:
parent
c1b8d6f508
commit
17981d6a61
7 changed files with 8 additions and 11 deletions
|
@ -6,7 +6,7 @@
|
|||
|
||||
MODES should be one major-mode symbol or a list of them."
|
||||
(dolist (mode (doom-enlist modes))
|
||||
(let ((def-name (intern (format "+company--init-%s" mode))))
|
||||
(let ((def-name (intern (format "+company|init-%s" mode))))
|
||||
(fset def-name
|
||||
(lambda () (when (or (eq major-mode mode)
|
||||
(and (boundp mode) (symbol-value mode)))
|
||||
|
|
|
@ -10,7 +10,7 @@ trigger electric indentation."
|
|||
(list '(:char :words) plist)))
|
||||
(cl-destructuring-bind (&key chars words) plist
|
||||
(dolist (mode (doom-enlist modes))
|
||||
(let ((fn (intern (format "+electric-indent--init-%s" mode))))
|
||||
(let ((fn (intern (format "+electric|init-%s" mode))))
|
||||
(fset fn
|
||||
(lambda ()
|
||||
(electric-indent-local-mode +1)
|
||||
|
|
|
@ -28,7 +28,7 @@ properties:
|
|||
Using this multiple times overwrites previous properties and unsets omitted
|
||||
ones."
|
||||
(dolist (mode (doom-enlist modes))
|
||||
(let ((def-name (intern (format "+lookup--init-%s" mode))))
|
||||
(let ((def-name (intern (format "+lookup|init-%s" mode))))
|
||||
(fset def-name
|
||||
(lambda ()
|
||||
(when (or (eq major-mode mode)
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
"Register a minor MODE with yasnippet so it can have its own snippets
|
||||
category, if the folder exists."
|
||||
(after! yasnippet
|
||||
(let ((fn (intern (format "+snippets--register-%s" mode))))
|
||||
(let ((fn (intern (format "+snippets|register-%s" mode))))
|
||||
(fset fn (lambda () (+snippets|enable-project-modes mode)))
|
||||
(add-hook (intern (format "%s-hook" mode)) fn))))
|
||||
|
||||
|
|
|
@ -7,10 +7,7 @@
|
|||
(set-eval-handler! 'emacs-lisp-mode #'+emacs-lisp-eval)
|
||||
(set-lookup-handlers! 'emacs-lisp-mode :documentation 'info-lookup-symbol)
|
||||
(set-docset! '(lisp-mode emacs-lisp-mode) "Emacs Lisp")
|
||||
|
||||
(set-pretty-symbols! 'emacs-lisp-mode
|
||||
:lambda "lambda")
|
||||
|
||||
(set-pretty-symbols! 'emacs-lisp-mode :lambda "lambda")
|
||||
(set-rotate-patterns! 'emacs-lisp-mode
|
||||
:symbols '(("t" "nil")
|
||||
("let" "let*")
|
||||
|
|
|
@ -202,9 +202,9 @@
|
|||
:when (featurep! :completion company)
|
||||
:commands (company-auctex-init)
|
||||
:init
|
||||
;; We can't use the (set-company-backend! ...) because Auctex reports its
|
||||
;; We can't use the `set-company-backend!' because Auctex reports its
|
||||
;; major-mode as `latex-mode', but uses LaTeX-mode-hook for its mode, which is
|
||||
;; not anticipated by :company-backend (and shouldn't have to!)
|
||||
;; not something `set-company-backend!' anticipates (and shouldn't have to!)
|
||||
(add-hook! LaTeX-mode
|
||||
(make-variable-buffer-local 'company-backends)
|
||||
(company-auctex-init)))
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
`rotate-text' will cycle through."
|
||||
(declare (indent 1))
|
||||
(dolist (mode (doom-enlist modes))
|
||||
(let ((fn-name (intern (format "+rotate-text--init-%s" mode))))
|
||||
(let ((fn-name (intern (format "+rotate-text|init-%s" mode))))
|
||||
(fset fn-name
|
||||
(lambda ()
|
||||
(setq-local rotate-text-local-symbols symbols)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue