bleh

2 files changed, 21 insertions, 20 deletions

@@ -3,7 +3,7 @@
 ;; Created: Sometime during Covid-19, 2020
 ;; Keywords: configuration
 ;; URL: https://tildegit.org/acdw/emacs
-;; Bankruptcy: 5c
+;; Bankruptcy: 5d
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -402,11 +402,12 @@
   :set '((elpher-ipv4-always t)
          (elpher-certificate-directory
           (acdw/in-var "elpher/")))
-  :binds (("n" elpher-next-link :map elpher-mode-map)
-          ("p" elpher-prev-link :map elpher-mode-map)
-          ("o" elpher-follow-current-link :map elpher-mode-map)
-          ("G" elpher-go-current :map elpher-mode-map))
-  :now ((when (boundp 'god-exempt-major-modes)
+  :now ((acdw/bind-after-map "elpher" elpher-mode-map
+          (("n" elpher-next-link :map-after "elpher")
+           ("p" elpher-prev-link :map-after "elpher")
+           ("o" elpher-follow-current-link :map-after "elpher")
+           ("G" elpher-go-current :map-after "elpher")))
+        (when (boundp 'god-exempt-major-modes)
           (add-to-list 'god-exempt-major-modes 'elpher-mode))))
 
 (acdw/pkg (gemini-mode
@@ -161,25 +161,25 @@ The following keywords are recognized:
   defined in a different file than the command it binds (looking
   at you, `org-mode')."
   (let ((after (when-let (sym (plist-get args :after))
-         (if (not (listp sym))
-             (list sym)
-           sym)))
-    (map-after (plist-get args :map-after))
-    (keymap (or (plist-get args :map) acdw/bind-default-map))
-    (keycode (if (vectorp key) key (kbd key)))
-    (command-list))
+                 (if (not (listp sym))
+                     (list sym)
+                   sym)))
+        (map-after (plist-get args :map-after))
+        (keymap (or (plist-get args :map) acdw/bind-default-map))
+        (keycode (if (vectorp key) key (kbd key)))
+        (command-list))
     (let ((define-key-command `(define-key ,keymap ,keycode ',command)))
       (if map-after
-      (push `(with-eval-after-load ,map-after
-           ,define-key-command)
-        command-list)
-    (push define-key-command command-list)))
+          (push `(with-eval-after-load ,map-after
+                   ,define-key-command)
+                command-list)
+        (push define-key-command command-list)))
     (when after
       (unless (fboundp command)
-    (push `(autoload ',command ,@after) command-list))
+        (push `(autoload ',command ,@after) command-list))
       (unless (or map-after
-          (eq keymap acdw/bind-default-map))
-    (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list)))
+                  (eq keymap acdw/bind-default-map))
+        (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list)))
     `(progn
        ,@command-list)))