Require `acdw' in `early-init.el'

This commit is contained in:
Case Duckworth 2021-03-25 12:02:28 -05:00
parent aaf9a2d6dc
commit 46f53399d5
3 changed files with 10 additions and 16 deletions

View File

@ -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.

View File

@ -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")

View File

@ -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.