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

Whitespace

This commit is contained in:
Case Duckworth 2021-03-12 17:33:28 -06:00
parent fe2e1dee76
commit 1dad282859
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/acdw.el
View File

@ -32,7 +32,7 @@ Ready for use with `after-focus-change-function'."
(defun acdw/sunrise-sunset (sunrise-command sunset-command)
"Run commands at sunrise and sunset."
(let* ((times-regex (rx (* nonl)
(let* ((times-regex (rx (* nonl)
(: (any ?s ?S) "unrise") " "
(group (repeat 1 2 digit) ":"
(repeat 1 2 digit)
@ -75,14 +75,14 @@ directory."
ASSIGNMENTS is a list where each element is of the form
(VARIABLE VALUE [COMMENT])."
(let (setting) ; for return value
(dolist (assignment assignments setting)
(customize-set-variable (car assignment)
(cadr assignment)
(if (and (caddr assignment)
(stringp (caddr assignment)))
(caddr assignment)
"Customized by `acdw/set'."))
(setq setting (car assignment)))))
(dolist (assignment assignments setting)
(customize-set-variable (car assignment)
(cadr assignment)
(if (and (caddr assignment)
(stringp (caddr assignment)))
(caddr assignment)
"Customized by `acdw/set'."))
(setq setting (car assignment)))))
;;; Faces
@ -150,9 +150,9 @@ The following keywords are recognized:
:map KEYMAP .. define KEY in KEYMAP instead of the
default `acdw/bind-default-map'."
(let ((after (when-let (sym (plist-get args :after))
(if (not (listp sym))
(list sym)
sym)))
(if (not (listp sym))
(list sym)
sym)))
(keymap (or (plist-get args :map) acdw/bind-default-map))
(keycode (if (vectorp key) key (kbd key)))
(command-list))
@ -180,7 +180,7 @@ KEYMAP can be nil."
`(:after ,file :map ,keymap)
`(:after ,file))))
(dolist (binding bindings)
(push `(acdw/bind ,@binding ,@extra-args) bind-list))
(push `(acdw/bind ,@binding ,@extra-args) bind-list))
`(progn
,@bind-list)))
@ -237,7 +237,7 @@ ARGS can include the following keywords:
"A keymap for my custom bindings.")
(define-minor-mode acdw/mode
"A mode for `acdw/map'."
"A mode for `acdw/map'."
:init-value t
:lighter " acdw"
:keymap acdw/map)