From a729a61c0a1cad6e99dd6f56dfd35e8ff141521e Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 28 Oct 2022 19:43:12 -0500
Subject: total rewrite of `yoke'

---
 early-init.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index 6f6a848..c75d963 100644
--- a/early-init.el
+++ b/early-init.el
@@ -1,9 +1,7 @@
-;;; emacs early init  -*- lexical-binding: t; -*-
+;;; early-init.el --- Emacs early init  -*- lexical-binding: t; -*-
 ;; by C. Duckworth <acdw@acdw.net>
 ;; Bankruptcy: 9
 
-(provide 'early-init)
-
 ;;; Speed up init
 
 ;; Restore things after init
@@ -71,6 +69,9 @@ See `no-littering' for examples.")
 (+define-dir sync/ (expand-file-name "~/Sync")
   "My Syncthing directory.")
 
+(+define-dir private/ (sync/ "emacs/private"))
+(add-to-list 'load-path private/)
+
 ;;; Packages
 
 (setf package-enable-at-startup nil
@@ -79,9 +80,9 @@ See `no-littering' for examples.")
 (require 'yoke)
 (add-hook 'emacs-lisp-mode-hook #'yoke-imenu-insinuate)
 
-(yoke compat "https://git.sr.ht/~pkal/compat")
+(yoke (compat "https://git.sr.ht/~pkal/compat"))
 
-(yoke no-littering "https://github.com/emacscollective/no-littering"
+(yoke (no-littering "https://github.com/emacscollective/no-littering")
   (setf no-littering-etc-directory .etc
         no-littering-var-directory .etc
         custom-file (.etc "custom.el"))
@@ -92,3 +93,6 @@ See `no-littering' for examples.")
     (setcar comp-eln-load-path (expand-file-name (.etc "eln-cache" t))))
   (when (fboundp 'startup-redirect-eln-cache)
     (startup-redirect-eln-cache (convert-standard-filename (.etc "eln-cache/")))))
+
+(provide 'early-init)
+;;; early-init.el ends here
-- 
cgit 1.4.1-21-gabe81