emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/rotate-text: fix :rotate setting

Browse source
This commit is contained in:
Henrik Lissner 2017-02-21 00:46:24 -05:00
parent 22a1b2b41a
commit ec598a4841
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/tools/rotate-text/config.el
View file

@ -5,7 +5,8 @@
:config :config
(push '("true" "false") rotate-text-words)) (push '("true" "false") rotate-text-words))
(@def-setting :rotate (mode &rest plist)
(@def-setting :rotate (modes &rest plist)
"Declare :symbols, :words or :patterns that `rotate-text' will cycle through." "Declare :symbols, :words or :patterns that `rotate-text' will cycle through."
(declare (indent 1)) (declare (indent 1))
(let ((modes (if (listp modes) modes (list modes))) (let ((modes (if (listp modes) modes (list modes)))
@ -14,10 +15,11 @@
(patterns (plist-get plist :patterns))) (patterns (plist-get plist :patterns)))
(when (or symbols words patterns) (when (or symbols words patterns)
(let ((fn-name (intern (format "doom--rotate-%s" (s-join "-" (mapcar 'symbol-name modes)))))) (let ((fn-name (intern (format "doom--rotate-%s" (s-join "-" (mapcar 'symbol-name modes))))))
`(@after rotate-text `(progn
(defun ,fn-name () (defun ,fn-name ()
,(if symbols `(setq-local rotate-text-local-symbols ',symbols)) (require 'rotate-text)
,(if words `(setq-local rotate-text-local-words ',words)) ,(if symbols `(setq rotate-text-local-symbols ',symbols))
,(if patterns `(setq-local rotate-text-local-patterns ',patterns))) ,(if words `(setq rotate-text-local-words ',words))
,(if patterns `(setq rotate-text-local-patterns ',patterns)))
(@add-hook ,modes ',fn-name)))))) (@add-hook ,modes ',fn-name))))))