diff options
author | Kjetil Orbekk <kj@orbekk.com> | 2023-01-29 19:36:46 -0500 |
---|---|---|
committer | Kjetil Orbekk <kj@orbekk.com> | 2023-01-29 19:36:46 -0500 |
commit | 0f7983936958e137b377d26a13b0650670b8347a (patch) | |
tree | eed433a06cbaf29fd468d1cc30c86159f30549ca /emacs/.config/emacs-kj | |
parent | 0d99e7bb4969187592de2a109a971a40f6fcc909 (diff) |
transient experiments
Diffstat (limited to 'emacs/.config/emacs-kj')
-rw-r--r-- | emacs/.config/emacs-kj/init.el | 43 |
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) |