transient experiments

1 files changed, 43 insertions, 0 deletions

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index 8358354..2bc4ae2 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -686,8 +686,51 @@
 (use-package expand-region
   :bind (("C-@" . #'er/expand-region)))
 
+(use-package multiple-cursors)
+
 ;; Disable VC over tramp.
 (defun kj/vc-off-if-remote ()
   (if (file-remote-p (buffer-file-name))
       (setq-local vc-handled-backends nil)))
 (add-hook 'find-file-hook 'kj/vc-off-if-remote)
+
+;; KJ menu
+(use-package transient
+  :commands
+  transient-define-prefix)
+
+(defun kj/test (&rest args) (interactive) (message "test %s" args))
+
+(add-to-list 'mc/cmds-to-run-once 'transient-quit-all)
+
+(transient-define-prefix kj/transient ()
+  "KJ transient command"
+  ["Applications"
+   ("g" "Magit" magit-status)
+   ]
+  ["Buffers"
+   ("b" "Switch buffer" consult-buffer)]
+  ["Test"
+   ("t" "run test" kj/test :transient t)
+   ]
+  ["Cursors"
+   ("." "Next like this" mc/mark-next-like-this :transient t)
+   ("," "Previous like this" mc/mark-previous-like-this :transient t)
+   ("C-." "Skip to next like this" mc/skip-to-next-like-this :transient t)
+   ("C-," "Skip to previous like this" mc/skip-to-previous-like-this :transient t)]
+ ["Transient"
+   ("SPC" "Quit" transient-quit-all)]
+  )
+
+(defvar kj/keys-minor-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-t") 'kj/transient)
+    map)
+  "kj/keys-minor-mode keymap.")
+
+(define-minor-mode kj/keys-minor-mode
+  "A minor mode so that my key settings override annoying major modes."
+  :init-value t
+  :lighter " kj-keys")
+
+(kj/keys-minor-mode 1)