acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

bleh

This commit is contained in:
Case Duckworth 2021-03-27 12:29:54 -05:00
parent 8dee3a66e6
commit 2fdfc43684
2 changed files with 21 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
init.el
View File

@ -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

28
lisp/acdw.el
View File

@ -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)))