Correct last inline hook defuns

See a3e262c7 for rationale
This commit is contained in:
Henrik Lissner 2019-07-28 14:52:59 +02:00
parent a354bba261
commit 19ecf8e46a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
25 changed files with 39 additions and 39 deletions

View file

@ -46,7 +46,7 @@
;; rather than the *cider-repl* buffer. How silly. We might want to see that
;; stuff and who's going to check *nrepl-server* on every startup? I've got a
;; better idea: we copy these errors into the *cider-repl* buffer.
(add-hook 'cider-connected-hook
(add-hook! 'cider-connected-hook
(defun +clojure--cider-dump-nrepl-server-log-h ()
"Copy contents of *nrepl-server* to beginning of *cider-repl*."
(save-excursion

View file

@ -53,7 +53,7 @@
if (buffer-local-value 'sly-mode buf)
collect buf)))))
(add-hook 'sly-mode-hook
(add-hook! 'sly-mode-hook
(defun +common-lisp-init-sly-h ()
"Attempt to auto-start sly when opening a lisp buffer."
(cond ((or (doom-temp-buffer-p (current-buffer))

View file

@ -4,7 +4,7 @@
(use-package! intero
:commands intero-mode
:init
(add-hook 'haskell-mode-local-vars-hook
(add-hook! 'haskell-mode-local-vars-hook
(defun +haskell-init-intero-h ()
"Initializes `intero-mode' in haskell-mode, unless stack isn't installed.
This is necessary because `intero-mode' doesn't do its own error checks."

View file

@ -10,7 +10,7 @@
;; happen once.
;;
;; rust-mode is still required for `racer'.
(add-hook 'rust-mode-hook
(add-hook! 'rust-mode-hook
(defun +rust-init-h ()
"Switch to `rustic-mode', if it's available."
(when (require 'rustic nil t)

View file

@ -35,7 +35,7 @@
;; 1. Fontifies variables in double quotes
;; 2. Fontify command substitution in double quotes
;; 3. Fontify built-in/common commands (see `+sh-builtin-keywords')
(add-hook 'sh-mode-hook
(add-hook! 'sh-mode-hook
(defun +sh-init-extra-fontification-h ()
(font-lock-add-keywords
nil `((+sh--match-variables-in-quotes
@ -52,7 +52,7 @@
(sp-local-pair 'sh-mode "`" "`" :unless '(sp-point-before-word-p sp-point-before-same-p))
;; sh-mode has file extensions checks for other shells, but not zsh, so...
(add-hook 'sh-mode-hook
(add-hook! 'sh-mode-hook
(defun +sh-detect-zsh-h ()
(when (or (and buffer-file-name
(string-match-p "\\.zsh\\'" buffer-file-name))