From 4e127dd2a1d4ffe23653ace247f251a55c477284 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Wed, 1 Feb 2023 11:35:41 -0500
Subject: Avy config

---
 emacs/.config/emacs-kj/init.el | 41 ++++++++++++-----------------------------
 1 file changed, 12 insertions(+), 29 deletions(-)

(limited to 'emacs/.config')

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