diff options
-rw-r--r-- | early-init.el | 15 | ||||
-rw-r--r-- | init.el | 5 | ||||
-rw-r--r-- | lisp/acdw.el | 6 |
3 files changed, 10 insertions, 16 deletions
diff --git a/early-init.el b/early-init.el index 9b3103a..d803c89 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -19,17 +19,10 @@ | |||
19 | 19 | ||
20 | ;;; Code: | 20 | ;;; Code: |
21 | 21 | ||
22 | ;;; Define personal-use constants | 22 | ;;; Add `acdw.el' |
23 | (defconst acdw/system (pcase system-type | 23 | (push (expand-file-name "lisp/" user-emacs-directory) |
24 | ('gnu/linux :home) | 24 | load-path) |
25 | ((or 'msdos 'windows-nt) :work) | 25 | (require 'acdw) |
26 | (_ :other)) | ||
27 | "Which system is currently being used.") | ||
28 | |||
29 | (defvar acdw/dir (expand-file-name | ||
30 | (convert-standard-filename "var/") | ||
31 | user-emacs-directory) | ||
32 | "A directory to hold extra configuration and emacs data.") | ||
33 | 26 | ||
34 | ;;; Speed up init | 27 | ;;; Speed up init |
35 | ;; see doom-emacs, et al. | 28 | ;; see doom-emacs, et al. |
diff --git a/init.el b/init.el index 5acea1a..0fc3118 100644 --- a/init.el +++ b/init.el | |||
@@ -16,11 +16,6 @@ | |||
16 | 16 | ||
17 | ;;; Code: | 17 | ;;; Code: |
18 | 18 | ||
19 | ;;; Add `acdw.el' | ||
20 | (push (expand-file-name "lisp/" user-emacs-directory) | ||
21 | load-path) | ||
22 | (require 'acdw) | ||
23 | |||
24 | ;;; About me | 19 | ;;; About me |
25 | (acdw/set | 20 | (acdw/set |
26 | '((user-full-name "Case Duckworth") | 21 | '((user-full-name "Case Duckworth") |
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 | ||