Move :tools rotate-text to :editor rotate-text

This change was a long time coming.
This commit is contained in:
Henrik Lissner 2018-06-22 00:32:42 +02:00
parent be48751a45
commit 3a3eb92087
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 5 additions and 4 deletions

View file

@ -0,0 +1,25 @@
;;; editor/rotate-text/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(after! rotate-text
(add-to-list 'rotate-text-words '("true" "false")))
;;;###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 1))
(dolist (mode (doom-enlist modes))
(let ((fn-name (intern (format "+rotate-text|init-%s" 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))))
;; FIXME obsolete :rotate
;;;###autoload
(def-setting! :rotate (modes &rest plist)
:obsolete set-rotate-patterns!
`(set-rotate-patterns! ,modes ,@plist))

View file

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