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

Add modules/tools/{electric-indent,rotate-text}

Browse source
This commit is contained in:
Henrik Lissner 2017-02-20 20:42:37 -05:00
parent cb92f96739
commit d18a39924d
6 changed files with 68 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

23
modules/tools/rotate-text/config.el Normal file
View file

@ -0,0 +1,23 @@
;;; tools/rotate-text/config.el
(@def-package rotate-text
:commands (rotate-text rotate-text-backward)
:config
(push '("true" "false") rotate-text-words))
(@def-setting :rotate (mode &rest plist)
"Declare :symbols, :words or :patterns that `rotate-text' will cycle through."
(declare (indent 1))
(let ((modes (if (listp modes) modes (list modes)))
(symbols (plist-get plist :symbols))
(words (plist-get plist :words))
(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
(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)))
(@add-hook ,modes ',fn-name))))))

4
modules/tools/rotate-text/packages.el Normal file
View file

@ -0,0 +1,4 @@
;; -*- no-byte-compile: t; -*-
;;; tools/rotate-text/packages.el
(@package rotate-text :recipe (:fetcher github :repo "debug-ito/rotate-text.el"))