diff options
| author | Case Duckworth | 2021-03-25 12:02:28 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-03-25 12:03:14 -0500 |
| commit | 46f53399d54cb05fe140e0821278cc5c4fca1c09 (patch) | |
| tree | 996bcb5cb82d526060ee62a42be579ad92a0d874 /lisp/acdw.el | |
| parent | Truncate lines (diff) | |
| download | emacs-46f53399d54cb05fe140e0821278cc5c4fca1c09.tar.gz emacs-46f53399d54cb05fe140e0821278cc5c4fca1c09.zip | |
Require `acdw' in `early-init.el'
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 | ||