Change avy and link-hint binds to use j

C-j link-hint-open-link
M-j avy-goto-char-timer

1 files changed, 10 insertions, 16 deletions

@@ -1632,23 +1632,14 @@ When PREFIX is non-nil, open links with
           (link-hint--multiple (if prefix :open-secondary :open))))
 
   (:option link-hint-avy-style 'post)
-  (:global "C-;"
+  (:global "C-j"
            (defun acdw/link-hint-open-link (arg)
              "Open a link using `link-hint-open-link', prefix-aware.
 That is, a prefix argument (\\[universal-argument]) will open the
 browser defined in `browse-url-secondary-browser-function'."
              (interactive "P")
              (avy-with link-hint-open-link
-                       (link-hint--one (if arg :open-secondary :open)))))
-
-  ;; Setup for different modes.
-  ;; There has /got/ to be an easier way here!
-  (dolist (key '(";" "o"))
-    (:with-mode special-mode (:bind key #'link-hint-open-link))
-    (:with-mode help-mode (:bind key #'link-hint-open-link))
-    (:with-feature helpful (:bind key #'link-hint-open-link))
-    (:with-mode Info-mode (:bind key #'link-hint-open-link))
-    (:with-feature reading (:bind key #'link-hint-open-link))))
+                       (link-hint--one (if arg :open-secondary :open))))))
 
 (setup (:straight lua-mode)
   (:file-match (rx ".lua" eos)))
@@ -1856,7 +1847,8 @@ browser defined in `browse-url-secondary-browser-function'."
          "C-c C-p" #'acdw/org-previous-heading-widen
          "C-x n t" #'org-narrow-to-task)
 
-  (:unbind "C-'")
+  (:unbind "C-j"                        ; org-return-and-maybe-indent
+           "M-j")
   
   (with-eval-after-load 'org-export
     (:option (append org-export-filter-final-output-functions)
@@ -1980,13 +1972,15 @@ the default is \"/\"."
   (global-page-break-lines-mode +1))
 
 (setup (:straight paredit)
-  ;; I don't use paredit-splice-sexp much, and it stomps on isearch.
-  (:unbind "M-s")
-
   (:bind "DEL" #'paredit-backward-delete
          "C-M-;" #'comment-or-uncomment-sexp
          "C-<backspace>" #'paredit-backward-kill-word
-         "M-w" #'paredit-copy-as-kill)
+         "M-w" #'paredit-copy-as-kill
+         "RET" #'paredit-newline)
+
+  (:unbind "M-s"                        ; paredit-splice-sexp
+           "C-j"                        ; paredit-newline (rebound to RET)
+           )
 
   (:hook-into emacs-lisp-mode
               ielm-mode sly-repl-mode