From 4c9ca1c1d29309cdfbf3842bce28b467654a87c9 Mon Sep 17 00:00:00 2001
From: David Morgan <djm_uk@protonmail.com>
Date: Mon, 24 Oct 2022 16:38:23 +0100
Subject: cbm repeat bindings

---
 .emacs.d/lisp/init-windows.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/.emacs.d/lisp/init-windows.el b/.emacs.d/lisp/init-windows.el
index 44c75d3..1866726 100644
--- a/.emacs.d/lisp/init-windows.el
+++ b/.emacs.d/lisp/init-windows.el
@@ -126,9 +126,13 @@
   ("C-<" . buffer-ring-prev-buffer)
   ("C->" . buffer-ring-next-buffer))
 
-;; TODO C-c ./C-c , C-c >/C-c < , available (but the first two currently clash with other bindings)
-;; C-<left> and C-<right> can be used
 (use-package cbm
+  :config
+  (defvar cbm-repeat-map
+    (let ((map (make-sparse-keymap)))
+      (define-key map (kbd "<") #'cbm-cycle)
+      map))
+  (put 'cbm-cycle 'repeat-map 'cbm-repeat-map)
   :bind
   ("C-c C-b <" . cbm-cycle)
   ("C-c C-b C-b" . cbm-switch-buffer))
-- 
cgit 1.4.1-2-gfad0