23 lines
838 B
EmacsLisp
23 lines
838 B
EmacsLisp
;;; tools/rotate-text/config.el -*- lexical-binding: t; -*-
|
|
|
|
(def-package! rotate-text
|
|
:commands (rotate-text rotate-text-backward)
|
|
:config
|
|
(push '("true" "false") rotate-text-words))
|
|
|
|
|
|
(def-setting! :rotate (modes &rest plist)
|
|
"Declare :symbols, :words or :patterns (all lists of strings) that
|
|
`rotate-text' will cycle through."
|
|
(declare (indent 1))
|
|
(let* ((modes (doom-enlist (doom-unquote modes)))
|
|
(fn-name (intern (format "doom--rotate-%s" (mapconcat #'symbol-name modes "-")))))
|
|
`(progn
|
|
(defun ,fn-name ()
|
|
(let ((plist (list ,@plist)))
|
|
(setq rotate-text-local-symbols (plist-get plist :symbols)
|
|
rotate-text-local-words (plist-get plist :words)
|
|
rotate-text-local-patterns (plist-get plist :patterns))))
|
|
(add-hook! ,modes #',fn-name))))
|
|
|