cleanup

tungd · Nov 10, 2024 · 89705dd · 89705dd
1 parent c48a1fd
commit 89705dd
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 14 deletions.
diff --git a/emacs/custom.el b/emacs/custom.el
@@ -199,16 +199,14 @@
      "4fda8201465755b403a33e385cf0f75eeec31ca8893199266a6aeccb4adedfa4" default))
  '(epg-gpg-program "/usr/local/MacGPG2/bin/gpg2")
  '(package-selected-packages
-   '(avy consult copilot crux csv-mode d2-mode detached diff-hl dune earl
-         editorconfig eglot emmet-mode envrc exec-path-from-shell f gptel
-         gptel-anthropic highlight-indentation iedit indent-guide isearch-mb
-         kotlin-mode kotlin-ts-mode lua-mode magit markdown-mode
-         markdown-ts-mode meow meow-tree-sitter minions modus-theme
-         multiple-cursors ob-async ob-http ob-kotlin ob-plantuml ob-redis
-         ob-sql-mode orderless persp-mode protobuf-mode rainbow-mode reason-mode
-         redis rg scad-mode surround tempel terraform-mode tuareg
-         undo-fu-session vertico visual-regexp visual-replace vterm vundo
-         web-beautify web-mode))
+   '(avy consult copilot crux csv-mode d2-mode detached diff-hl dune
+         eglot emmet-mode envrc exec-path-from-shell f gptel gptel-anthropic
+         highlight-indentation iedit indent-guide isearch-mb kotlin-mode
+         kotlin-ts-mode lua-mode magit markdown-mode markdown-ts-mode meow
+         meow-tree-sitter minions modus-theme ob-async ob-http ob-kotlin
+         ob-plantuml orderless persp-mode protobuf-mode rainbow-mode reason-mode
+         rg scad-mode surround tempel terraform-mode tuareg undo-fu-session
+         visual-replace vterm vundo web-beautify web-mode))
  '(package-vc-selected-packages
    '((copilot :url "https://github.com/copilot-emacs/copilot.el.git" :branch "main")))
  '(safe-local-variable-values

diff --git a/emacs/init.org b/emacs/init.org
@@ -484,11 +484,19 @@ Make the file executable if starting with "shebang":
 #+end_src
 
 #+begin_src emacs-lisp
-  (use-package visual-regexp
+  (use-package visual-replace
     :ensure t
-    :bind (("M-r" . vr/query-replace)
-           ([remap query-replace] . vr/query-replace)
-           ("C-M-r" . vr/mc-mark)))
+    :bind (("M-r" . visual-replace)
+           ([remap query-replace] . visual-replace)
+           :map isearch-mode-map
+           ("M-r" . visual-replace-from-isearch))
+    :custom
+    (visual-replace-default-to-full-scope t)
+    (visual-replace-display-total t)
+    (visual-replace-keep-initial-position t)
+    :config
+    (define-key visual-replace-mode-map (kbd "M-r")
+                visual-replace-secondary-mode-map))
 #+end_src
 
 ** Long lines