diff options
| author | Yuchen Pei <id@ypei.org> | 2023-10-14 12:18:38 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-10-14 12:18:38 +1100 |
| commit | 0383ed224a7708315f3da83d5e809c597b0e888a (patch) | |
| tree | 8e2c180e2e9b41dc7c51b0bbe210d79c840944a5 /emacs/.emacs.d/lisp/my/my-utils.el | |
| parent | ad1cdc1f55bf90f635365b728b91888edf31fa6e (diff) | |
[emacs] Fix notes and shell cycle and creation.
One function to switch or cycle default notes indirect buffers.
One to switch or cycle shell mode buffers.
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-utils.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-utils.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-utils.el b/emacs/.emacs.d/lisp/my/my-utils.el index f80fb13..db7e804 100644 --- a/emacs/.emacs.d/lisp/my/my-utils.el +++ b/emacs/.emacs.d/lisp/my/my-utils.el @@ -45,6 +45,11 @@ (defun my-delete-http-header () (delete-region (point-min) (progn (my-skip-http-header) (point)))) +;; lists +(defun my-list-cycle (xs) + "Cycle a list." + (cdr (append xs (list (car xs))))) + (defun my-get-current-line-no-properties () (save-excursion (let ((beg (progn (beginning-of-line) |