diff options
Diffstat (limited to 'lisp/acdw.el')
| -rw-r--r-- | lisp/acdw.el | 6 |
1 files changed, 6 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index f454570..4493275 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -21,6 +21,12 @@ | |||
| 21 | 21 | ||
| 22 | ;;; Utilities | 22 | ;;; Utilities |
| 23 | 23 | ||
| 24 | (defconst acdw/system (pcase system-type | ||
| 25 | ('gnu/linux :home) | ||
| 26 | ((or 'msdos 'windows-nt) :work) | ||
| 27 | (_ :other)) | ||
| 28 | "Which system is currently being used.") | ||
| 29 | |||
| 24 | (defun acdw/when-unfocused (func &rest args) | 30 | (defun acdw/when-unfocused (func &rest args) |
| 25 | "Call FUNC, with ARGS, iff all Emacs frames are out of focus. | 31 | "Call FUNC, with ARGS, iff all Emacs frames are out of focus. |
| 26 | 32 | ||