summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw.el3
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)