summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-03-25 12:02:28 -0500
committerCase Duckworth2021-03-25 12:03:14 -0500
commit46f53399d54cb05fe140e0821278cc5c4fca1c09 (patch)
tree996bcb5cb82d526060ee62a42be579ad92a0d874
parentTruncate lines (diff)
downloademacs-46f53399d54cb05fe140e0821278cc5c4fca1c09.tar.gz
emacs-46f53399d54cb05fe140e0821278cc5c4fca1c09.zip
Require `acdw' in `early-init.el'
-rw-r--r--early-init.el15
-rw-r--r--init.el5
-rw-r--r--lisp/acdw.el6
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