From 0383ed224a7708315f3da83d5e809c597b0e888a Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Sat, 14 Oct 2023 12:18:38 +1100
Subject: [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.
---
 emacs/.emacs.d/lisp/my/my-utils.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'emacs/.emacs.d/lisp/my/my-utils.el')

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)
-- 
cgit v1.2.3