diff options
| -rw-r--r-- | lisp/acdw.el | 3 |
1 files changed, 3 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index e1d4b48..6409f89 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -21,12 +21,14 @@ | |||
| 21 | 21 | ||
| 22 | ;;; Utilities | 22 | ;;; Utilities |
| 23 | 23 | ||
| 24 | ;;;; Determine the system I'm on | ||
| 24 | (defconst acdw/system (pcase system-type | 25 | (defconst acdw/system (pcase system-type |
| 25 | ('gnu/linux :home) | 26 | ('gnu/linux :home) |
| 26 | ((or 'msdos 'windows-nt) :work) | 27 | ((or 'msdos 'windows-nt) :work) |
| 27 | (_ :other)) | 28 | (_ :other)) |
| 28 | "Which system is currently being used.") | 29 | "Which system is currently being used.") |
| 29 | 30 | ||
| 31 | ;;;; Run commands only when unfocused | ||
| 30 | (defun acdw/when-unfocused (func &rest args) | 32 | (defun acdw/when-unfocused (func &rest args) |
| 31 | "Call FUNC, with ARGS, iff all Emacs frames are out of focus. | 33 | "Call FUNC, with ARGS, iff all Emacs frames are out of focus. |
| 32 | 34 | ||
| @@ -34,6 +36,7 @@ Ready for use with `after-focus-change-function'." | |||
| 34 | (when (seq-every-p #'null (mapcar #'frame-focus-state (frame-list))) | 36 | (when (seq-every-p #'null (mapcar #'frame-focus-state (frame-list))) |
| 35 | (apply func args))) | 37 | (apply func args))) |
| 36 | 38 | ||
| 39 | ;;;; Run commands at sunrise and sunset | ||
| 37 | (defun acdw/sunrise-sunset (sunrise-command sunset-command) | 40 | (defun acdw/sunrise-sunset (sunrise-command sunset-command) |
| 38 | "Run commands at sunrise and sunset." | 41 | "Run commands at sunrise and sunset." |
| 39 | (let* ((times-regex (rx (* nonl) | 42 | (let* ((times-regex (rx (* nonl) |