gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
Show Stats 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
(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 (indent 1))
(let ((modes (if (listp modes) modes (list modes)))
@ -14,10 +15,11 @@
(patterns (plist-get plist :patterns)))
(when (or symbols words patterns)
(let ((fn-name (intern (format "doom--rotate-%s" (s-join "-" (mapcar 'symbol-name modes))))))
`(@after rotate-text
`(progn
(defun ,fn-name ()
,(if symbols `(setq-local rotate-text-local-symbols ',symbols))
,(if words `(setq-local rotate-text-local-words ',words))
,(if patterns `(setq-local rotate-text-local-patterns ',patterns)))
(require 'rotate-text)
,(if symbols `(setq rotate-text-local-symbols ',symbols))
,(if words `(setq rotate-text-local-words ',words))
,(if patterns `(setq rotate-text-local-patterns ',patterns)))
(@add-hook ,modes ',fn-name))))))