diff options
| author | Case Duckworth | 2021-03-12 17:33:28 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-03-12 17:33:28 -0600 |
| commit | 1dad28285993c3aec35f6fb5f3e203896d1d2f71 (patch) | |
| tree | e8ce3d5cfc2bcb505cc051a34047d32082ae5c54 /lisp | |
| parent | Remove commented lines (diff) | |
| download | emacs-1dad28285993c3aec35f6fb5f3e203896d1d2f71.tar.gz emacs-1dad28285993c3aec35f6fb5f3e203896d1d2f71.zip | |
Whitespace
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw.el | 28 |
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." | |||
| 75 | ASSIGNMENTS is a list where each element is of the form | 75 | ASSIGNMENTS 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) |