2022-07-11

1 files changed, 6 insertions, 31 deletions

@@ -43,14 +43,13 @@
            read-file-name-completion-ignore-case t)
   ;; Bindings
   (:global "C-x C-k" #'kill-current-buffer
-           "C-x 4 n" #'clone-buffer
+           "C-M--" #'+goto-matching-paren
            "C-c v" #'visible-mode
            "C-M-;" #'+lisp-comment-or-uncomment-sexp
            "C-x C-o" #'+switch-to-last-buffer
            "C-x o" #'+switch-to-last-buffer
            "C-x C-l" #'+open-paragraph  ; original: downcase-region
            "C-w" #'+kill-word-backward-or-region
-           "C-x C-m" #'execute-extended-command  ; original: coding systems
            "C-<backspace>" #'+backward-kill-word
            "C-x TAB" #'+indent-rigidly
            "<f7>" #'flyspell-mode
@@ -60,8 +59,8 @@
   ;; Disable bindings
   (:global "M-j" nil
            "<Scroll_Lock>" nil)
-  (:+leader "C-t d" #'toggle-debug-on-error
-            "C-t q" #'toggle-debug-on-quit)
+  (:+leader "C-d e" #'toggle-debug-on-error
+            "C-d q" #'toggle-debug-on-quit)
   ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
   (global-set-key (kbd "C-h") 'delete-backward-char)
   (keyboard-translate ?\C-h ?\C-?)
@@ -131,31 +130,6 @@
       (global-goto-address-mode)
     (add-hook 'after-change-major-mode-hook #'goto-address-mode)))
 
-(setup (:require hide-cursor-mode)      ; In lisp/
-  (:hook-into view-mode
-              Info-mode
-              Man-mode
-              help-mode
-              helpful-mode
-              notmuch-show-mode
-              magit-log-mode
-              vc-log-mode
-              nov-mode
-              elfeed-show-mode
-              reading-mode)
-  (:bind-into (view
-               Info
-               help-mode
-               helpful
-               notmuch-show
-               magit-log
-               nov
-               elfeed-show
-               reading)
-    "<f7>" #'hide-cursor-mode)
-  (:with-mode Man-mode
-    (:bind "<f7>" #'hide-cursor-mode)))
-
 (setup (:require pulse)
   (:also-load +pulse)
   (:option pulse-flag nil
@@ -258,7 +232,7 @@
            (list
             (cons (rx bos (or "gemini:" "gopher:")) #'elpher-browse-url-elpher)
             (cons (rx                           ; images
-                   "." (or "jpeg" "jpg" "png" "bmp") eos)
+                   "." (or "jpeg" "jpg" "png" "bmp" "webp") eos)
                   (lambda (&rest args)
                     (apply
                      (cond ((executable-find "mpv") #'+browse-image-with-mpv)
@@ -513,7 +487,8 @@
     (+kmacro-block-undo-mode +1)))
 
 (setup midnight
-  (midnight-mode +1))
+  (midnight-mode +1)
+  (add-hook 'midnight-hook #'recentf-cleanup))
 
 (setup minibuffer
   (:require +minibuffer)