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 | |
| parent | Truncate lines (diff) | |
| download | emacs-46f53399d54cb05fe140e0821278cc5c4fca1c09.tar.gz emacs-46f53399d54cb05fe140e0821278cc5c4fca1c09.zip | |
Require `acdw' in `early-init.el'
| -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 | ||