Require `acdw' in `early-init.el'
This commit is contained in:
parent
aaf9a2d6dc
commit
46f53399d5
|
@ -19,17 +19,10 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
;;; Define personal-use constants
|
;;; Add `acdw.el'
|
||||||
(defconst acdw/system (pcase system-type
|
(push (expand-file-name "lisp/" user-emacs-directory)
|
||||||
('gnu/linux :home)
|
load-path)
|
||||||
((or 'msdos 'windows-nt) :work)
|
(require 'acdw)
|
||||||
(_ :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.")
|
|
||||||
|
|
||||||
;;; Speed up init
|
;;; Speed up init
|
||||||
;; see doom-emacs, et al.
|
;; see doom-emacs, et al.
|
||||||
|
|
5
init.el
5
init.el
|
@ -16,11 +16,6 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
;;; Add `acdw.el'
|
|
||||||
(push (expand-file-name "lisp/" user-emacs-directory)
|
|
||||||
load-path)
|
|
||||||
(require 'acdw)
|
|
||||||
|
|
||||||
;;; About me
|
;;; About me
|
||||||
(acdw/set
|
(acdw/set
|
||||||
'((user-full-name "Case Duckworth")
|
'((user-full-name "Case Duckworth")
|
||||||
|
|
|
@ -21,6 +21,12 @@
|
||||||
|
|
||||||
;;; Utilities
|
;;; 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)
|
(defun acdw/when-unfocused (func &rest args)
|
||||||
"Call FUNC, with ARGS, iff all Emacs frames are out of focus.
|
"Call FUNC, with ARGS, iff all Emacs frames are out of focus.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue