summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKjetil Orbekk <kj@orbekk.com>2023-02-01 11:35:41 -0500
committerKjetil Orbekk <kj@orbekk.com>2023-02-01 11:35:41 -0500
commit4e127dd2a1d4ffe23653ace247f251a55c477284 (patch)
treedc024c276a6a4d91430d3a809a0ebbd77ba42f4e
parent9b7176bde41b91a99ab388a3eec02a97de18a96e (diff)
Avy config
-rw-r--r--emacs/.config/emacs-kj/init.el41
1 files changed, 12 insertions, 29 deletions
diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index c2aef2b..52a5b82 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -99,7 +99,18 @@
("C-c n" . avy-goto-line))
:config
(setq avy-keys '(?a ?o ?e ?u ?i ?d ?h ?t ?n ?s))
+ (defun avy-action-embark (pt)
+ (unwind-protect
+ (save-excursion
+ (goto-char pt)
+ (embark-act))
+ (select-window
+ (cdr (ring-ref avy-ring 0))))
+ t)
+
+(setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark)
)
+(define-key isearch-mode-map (kbd "M-j") 'avy-isearch)
(winner-mode +1)
@@ -690,35 +701,6 @@
(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)
-;; ("k" "Kill buffer" kill-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/leader-repeat-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "@") 'er/expand-region)
@@ -788,6 +770,7 @@
(apply #'derived-mode-p
'(magit-mode
compilation-mode
+ comint-mode
fig-commit-mode)))
))
(setq transient-display-buffer-action