doomemacs/modules/editor/rotate-text/autoload.el
Henrik Lissner 057e6c531c
refactor: replace doom-enlist with ensure-list
doom-enlist is now a deprecated alias for ensure-list, which is built
into Emacs 28.1+ and is its drop-in replacement. We've already
backported it for 27.x users in doom-lib (in 4bf4978).

Ref: 4bf49785fd
2022-08-07 19:43:13 +02:00

21 lines
816 B
EmacsLisp

;;; editor/rotate-text/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(with-eval-after-load 'rotate-text
(pushnew! rotate-text-words
'("true" "false")
'("enable" "disable")))
;;;###autodef
(cl-defun set-rotate-patterns! (modes &key symbols words patterns)
"Declare :symbols, :words or :patterns (all lists of strings) that
`rotate-text' will cycle through."
(declare (indent defun))
(dolist (mode (ensure-list modes))
(let ((fn-name (intern (format "+rotate-text-init-%s-h" mode))))
(fset fn-name
(lambda ()
(setq-local rotate-text-local-symbols symbols)
(setq-local rotate-text-local-words words)
(setq-local rotate-text-local-patterns patterns)))
(add-hook (intern (format "%s-hook" mode)) fn-name))))