From ec598a4841979028916989ceb907af3e6e0a1fe0 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 21 Feb 2017 00:46:24 -0500 Subject: [PATCH] tools/rotate-text: fix :rotate setting --- modules/tools/rotate-text/config.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/modules/tools/rotate-text/config.el b/modules/tools/rotate-text/config.el index ce25be6a4..23f945dc5 100644 --- a/modules/tools/rotate-text/config.el +++ b/modules/tools/rotate-text/config.el @@ -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))))))