Require `acdw' in `early-init.el'
This commit is contained in:
parent
aaf9a2d6dc
commit
46f53399d5
|
@ -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.
|
||||
|
|
5
init.el
5
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")
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
Loading…
Reference in New Issue