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 @@ ;;; Code: -;;; Define personal-use constants -(defconst acdw/system (pcase system-type - ('gnu/linux :home) - ((or 'msdos 'windows-nt) :work) - (_ :other)) - "Which system is currently being used.") - -(defvar acdw/dir (expand-file-name - (convert-standard-filename "var/") - user-emacs-directory) - "A directory to hold extra configuration and emacs data.") +;;; Add `acdw.el' +(push (expand-file-name "lisp/" user-emacs-directory) + load-path) +(require 'acdw) ;;; Speed up init ;; 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 @@ ;;; Code: -;;; Add `acdw.el' -(push (expand-file-name "lisp/" user-emacs-directory) - load-path) -(require 'acdw) - ;;; About me (acdw/set '((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 @@ ;;; Utilities +(defconst acdw/system (pcase system-type + ('gnu/linux :home) + ((or 'msdos 'windows-nt) :work) + (_ :other)) + "Which system is currently being used.") + (defun acdw/when-unfocused (func &rest args) "Call FUNC, with ARGS, iff all Emacs frames are out of focus.