diff options
| author | Case Duckworth | 2022-01-05 17:12:03 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-05 17:12:03 -0600 |
| commit | 084618a930ddbe57903924e0635e5ca83c7dcb5c (patch) | |
| tree | a5edc8b2fc10e0758b585ffcaadbd114ead9184e | |
| parent | Add form-feed (diff) | |
| download | emacs-084618a930ddbe57903924e0635e5ca83c7dcb5c.tar.gz emacs-084618a930ddbe57903924e0635e5ca83c7dcb5c.zip | |
Break function into library
| -rw-r--r-- | init.el | 8 | ||||
| -rw-r--r-- | lisp/+zzz-to-char.el | 16 |
2 files changed, 19 insertions, 5 deletions
| diff --git a/init.el b/init.el index 84dfceb..51bcf31 100644 --- a/init.el +++ b/init.el | |||
| @@ -1320,8 +1320,6 @@ See also `crux-reopen-as-root-mode'." | |||
| 1320 | (setup (:straight zoom-frm)) | 1320 | (setup (:straight zoom-frm)) |
| 1321 | 1321 | ||
| 1322 | (setup (:straight zzz-to-char) | 1322 | (setup (:straight zzz-to-char) |
| 1323 | (:+key "M-z" (lambda (prefix) | 1323 | (:require +zzz-to-char) |
| 1324 | "Call `zzz-to-char' or `zzz-up-to-char' with PREFIX arg." | 1324 | (:option zzz-to-char-reach 1024) |
| 1325 | (interactive "P") | 1325 | (:global "M-z" #'+zzz-to-char)) |
| 1326 | (call-interactively | ||
| 1327 | (if prefix #'zzz-up-to-char #'zzz-to-char))))) | ||
| diff --git a/lisp/+zzz-to-char.el b/lisp/+zzz-to-char.el new file mode 100644 index 0000000..b3f27f7 --- /dev/null +++ b/lisp/+zzz-to-char.el | |||
| @@ -0,0 +1,16 @@ | |||
| 1 | ;;; +zzz-to-char.el -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;;; Commentary: | ||
| 4 | |||
| 5 | ;; | ||
| 6 | |||
| 7 | ;;; Code: | ||
| 8 | |||
| 9 | (defun +zzz-to-char (prefix) | ||
| 10 | "Call `zzz-to-char' or `zzz-up-to-char' with PREFIX arg." | ||
| 11 | (interactive "P") | ||
| 12 | (call-interactively | ||
| 13 | (if prefix #'zzz-up-to-char #'zzz-to-char))) | ||
| 14 | |||
| 15 | (provide '+zzz-to-char) | ||
| 16 | ;;; +zzz-to-char.el ends here | ||