From 2fdfc43684595b6dc38ca60d2e5a42a1948dd8f3 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 27 Mar 2021 12:29:54 -0500 Subject: bleh --- init.el | 13 +++++++------ lisp/acdw.el | 28 ++++++++++++++-------------- 2 files changed, 21 insertions(+), 20 deletions(-) diff --git a/init.el b/init.el index c8b4404..8f2bc12 100644 --- a/init.el +++ b/init.el @@ -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 diff --git a/lisp/acdw.el b/lisp/acdw.el index bd6c02a..62778e3 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -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))) -- cgit 1.4.1-21-gabe81