From 78d62f9503e9fbf407248ac15802c8bc7faf5b77 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Fri, 1 Nov 2024 14:34:22 +0200
Subject: .

---
 home/dots/.emacs | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/home/dots/.emacs b/home/dots/.emacs
index 92920e2..2e10b92 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -201,7 +201,8 @@
    ("C-p" . nil)
    ("M-<ret>" . company-complete-selection)
    ("M-<tab>" . company-complete-common-or-cycle)
-   ("M-<backtab>" . (lambda ()
+   ("<tab>" . company-complete-common-or-cycle)   
+   ("<backtab>" . (lambda ()
 		    (interactive)
 		    (company-complete-common-or-cycle -1)))))
 
@@ -324,10 +325,6 @@
     ("M-e" . forward-sentence)    
     ("a" . move-beginning-of-line)
     :repeat-map
-    repeat-isearch-map
-    ("s" . isearch-repeat-forward)
-    ("r" . isearch-repeat-backward)
-    :repeat-map
     repeat-repeat-map
     ("z" . repeat)
     :repeat-map
@@ -407,6 +404,15 @@
   :hook
   ((server-after-make-frame . exwm-mff-mode)))
 
+(use-package isearch
+  :defer t
+  :bind
+  ((:repeat-map
+    repeat-isearch-map
+    ("o" . avy-isearch)
+    ("s" . isearch-repeat-forward)
+    ("r" . isearch-repeat-backward))))
+
 (use-package avy
   :ensure t
   :config
@@ -506,13 +512,13 @@
   (global-set-key (kbd "C-h D") 'devdocs-lookup))
 
 (use-package custom-keymaps
+  :load-path "elisp"
   :ensure nil
   :config
   (keymaps-mode)
   :bind
   (:map keymaps-mode-map
-	("C-." . er/expand-region))
-  :load-path "elisp")
+	("C-." . er/expand-region)))
 
 (use-package guix
   :ensure t
@@ -936,7 +942,7 @@
   (emms-all)
   (emms-default-players))
 
-(set-cursor-color "red")
+
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
@@ -950,6 +956,7 @@
  '(eglot-highlight-symbol-face ((t (:weight bold))))
  '(eglot-mode-line ((t (:weight regular))))
  '(erc-timestamp-face ((t (:foreground "blue" :weight bold))))
+ '(hbut-flash ((t (:background "blue" :foreground "white")))) 
  '(eshell-prompt ((t (:weight bold))))
  '(eww-valid-certificate ((t (:foreground "black" :weight bold))))
  '(fixed-pitch ((t (:family "Iosevka SS13 Extended"))))
@@ -1033,3 +1040,4 @@
  '(window-divider-default-right-width 2)
  '(yank-from-kill-ring-rotate t))
 (put 'secrets-mode 'disabled nil)
+
-- 
cgit v1.2.3