Fix indentation for many autodef setters

This commit is contained in:
Henrik Lissner 2018-06-22 01:30:27 +02:00
parent 22c145105d
commit 5531d7115a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 9 additions and 3 deletions

View file

@ -17,6 +17,7 @@ Examples:
(set-company-backend! 'js2-mode (set-company-backend! 'js2-mode
'(:separate company-irony-c-headers company-irony)) '(:separate company-irony-c-headers company-irony))
(set-company-backend! 'sh-mode nil)" (set-company-backend! 'sh-mode nil)"
(declare (indent defun))
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode))) (let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+company|init-%s" mode)))) (fn (intern (format "+company|init-%s" mode))))

View file

@ -8,7 +8,7 @@
(cl-defun set-rotate-patterns! (modes &key symbols words patterns) (cl-defun set-rotate-patterns! (modes &key symbols words patterns)
"Declare :symbols, :words or :patterns (all lists of strings) that "Declare :symbols, :words or :patterns (all lists of strings) that
`rotate-text' will cycle through." `rotate-text' will cycle through."
(declare (indent 1)) (declare (indent defun))
(dolist (mode (doom-enlist modes)) (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 (fset fn-name

View file

@ -4,7 +4,7 @@
(defun set-electric! (modes &rest plist) (defun set-electric! (modes &rest plist)
"Declare :words (list of strings) or :chars (lists of chars) in MODES that "Declare :words (list of strings) or :chars (lists of chars) in MODES that
trigger electric indentation." trigger electric indentation."
(declare (indent 1)) (declare (indent defun))
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode))) (let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+electric|init-%s" mode)))) (fn (intern (format "+electric|init-%s" mode))))

View file

@ -42,6 +42,7 @@ function that creates and returns the REPL buffer."
(quickrun-add-command MODE COMMAND :mode MODE). (quickrun-add-command MODE COMMAND :mode MODE).
4. If MODE is not a string and COMMANd is a symbol, add it to 4. If MODE is not a string and COMMANd is a symbol, add it to
`+eval-runners', which is used by `+eval/region'." `+eval-runners', which is used by `+eval/region'."
(declare (indent defun))
(cond ((symbolp command) (cond ((symbolp command)
(push (cons mode command) +eval-runners)) (push (cons mode command) +eval-runners))
((stringp command) ((stringp command)

View file

@ -4,6 +4,7 @@
;;;###autodef ;;;###autodef
(defun set-evil-initial-state! (modes state) (defun set-evil-initial-state! (modes state)
"Set the initialize STATE of MODES using `evil-set-initial-state'." "Set the initialize STATE of MODES using `evil-set-initial-state'."
(declare (indent defun))
(after! evil (after! evil
(if (listp modes) (if (listp modes)
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))

View file

@ -27,6 +27,7 @@ these properties:
:ignore BOOL :ignore BOOL
If non-nil, don't expand any template for this file and don't test any other If non-nil, don't expand any template for this file and don't test any other
file template rule against this buffer." file template rule against this buffer."
(declare (indent defun))
(after! (:when (boundp '+file-templates-alist)) (after! (:when (boundp '+file-templates-alist))
(+file-templates--set pred plist))) (+file-templates--set pred plist)))

View file

@ -13,6 +13,7 @@
symbol or a list of them). symbol or a list of them).
Used by `+lookup/in-docsets' and `+lookup/documentation'." Used by `+lookup/in-docsets' and `+lookup/documentation'."
(declare (indent defun))
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(let ((fn (intern (format "+lookup|init-docsets--%s" mode))) (let ((fn (intern (format "+lookup|init-docsets--%s" mode)))
(hook (intern (format "%s-hook" mode)))) (hook (intern (format "%s-hook" mode))))

View file

@ -29,6 +29,7 @@ properties:
:xref-backend FN :xref-backend FN
Defines an xref backend for a major-mode. If you define :definition and Defines an xref backend for a major-mode. If you define :definition and
:references along with :xref-backend, those will have higher precedence." :references along with :xref-backend, those will have higher precedence."
(declare (indent defun))
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode))) (let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+lookup|init-%s" mode)))) (fn (intern (format "+lookup|init-%s" mode))))

View file

@ -319,7 +319,7 @@ assicated with :lambda in `+pretty-code-symbols'.
Pretty symbols can be unset for emacs-lisp-mode with: Pretty symbols can be unset for emacs-lisp-mode with:
(set-pretty-symbols! 'emacs-lisp-mode nil)" (set-pretty-symbols! 'emacs-lisp-mode nil)"
(declare (indent 1)) (declare (indent defun))
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode))) (let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+pretty-code|init-%s" mode)))) (fn (intern (format "+pretty-code|init-%s" mode))))