about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw.el28
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 002f8f6..84fcb99 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -32,7 +32,7 @@ Ready for use with `after-focus-change-function'."
32 32
33(defun acdw/sunrise-sunset (sunrise-command sunset-command) 33(defun acdw/sunrise-sunset (sunrise-command sunset-command)
34 "Run commands at sunrise and sunset." 34 "Run commands at sunrise and sunset."
35 (let* ((times-regex (rx (* nonl) 35 (let* ((times-regex (rx (* nonl)
36 (: (any ?s ?S) "unrise") " " 36 (: (any ?s ?S) "unrise") " "
37 (group (repeat 1 2 digit) ":" 37 (group (repeat 1 2 digit) ":"
38 (repeat 1 2 digit) 38 (repeat 1 2 digit)
@@ -75,14 +75,14 @@ directory."
75ASSIGNMENTS is a list where each element is of the form 75ASSIGNMENTS is a list where each element is of the form
76(VARIABLE VALUE [COMMENT])." 76(VARIABLE VALUE [COMMENT])."
77 (let (setting) ; for return value 77 (let (setting) ; for return value
78 (dolist (assignment assignments setting) 78 (dolist (assignment assignments setting)
79 (customize-set-variable (car assignment) 79 (customize-set-variable (car assignment)
80 (cadr assignment) 80 (cadr assignment)
81 (if (and (caddr assignment) 81 (if (and (caddr assignment)
82 (stringp (caddr assignment))) 82 (stringp (caddr assignment)))
83 (caddr assignment) 83 (caddr assignment)
84 "Customized by `acdw/set'.")) 84 "Customized by `acdw/set'."))
85 (setq setting (car assignment))))) 85 (setq setting (car assignment)))))
86 86
87;;; Faces 87;;; Faces
88 88
@@ -150,9 +150,9 @@ The following keywords are recognized:
150:map KEYMAP .. define KEY in KEYMAP instead of the 150:map KEYMAP .. define KEY in KEYMAP instead of the
151 default `acdw/bind-default-map'." 151 default `acdw/bind-default-map'."
152 (let ((after (when-let (sym (plist-get args :after)) 152 (let ((after (when-let (sym (plist-get args :after))
153 (if (not (listp sym)) 153 (if (not (listp sym))
154 (list sym) 154 (list sym)
155 sym))) 155 sym)))
156 (keymap (or (plist-get args :map) acdw/bind-default-map)) 156 (keymap (or (plist-get args :map) acdw/bind-default-map))
157 (keycode (if (vectorp key) key (kbd key))) 157 (keycode (if (vectorp key) key (kbd key)))
158 (command-list)) 158 (command-list))
@@ -180,7 +180,7 @@ KEYMAP can be nil."
180 `(:after ,file :map ,keymap) 180 `(:after ,file :map ,keymap)
181 `(:after ,file)))) 181 `(:after ,file))))
182 (dolist (binding bindings) 182 (dolist (binding bindings)
183 (push `(acdw/bind ,@binding ,@extra-args) bind-list)) 183 (push `(acdw/bind ,@binding ,@extra-args) bind-list))
184 `(progn 184 `(progn
185 ,@bind-list))) 185 ,@bind-list)))
186 186
@@ -237,7 +237,7 @@ ARGS can include the following keywords:
237 "A keymap for my custom bindings.") 237 "A keymap for my custom bindings.")
238 238
239(define-minor-mode acdw/mode 239(define-minor-mode acdw/mode
240 "A mode for `acdw/map'." 240 "A mode for `acdw/map'."
241 :init-value t 241 :init-value t
242 :lighter " acdw" 242 :lighter " acdw"
243 :keymap acdw/map) 243 :keymap acdw/map)