stream results

emacs/.config/emacs/core/em-init.el

@@ -1,4 +1,3 @@
-
 (defvar em-core-dir (file-name-directory load-file-name)
   "Core files")
 
@@ -7,5 +6,28 @@
 
 (add-to-list 'load-path em-core-dir)
 
+(defconst em-modules-dir (concat em-dir "/" "modules/"))
+
+(defun siren-recursive-add-to-load-path (dir)
+  "Add DIR and all its sub-directories to `load-path'."
+  (add-to-list 'load-path dir)
+  (dolist (f (directory-files dir))
+    (let ((name (expand-file-name f dir)))
+      (when (and (file-directory-p name)
+                 (not (string-prefix-p "." f)))
+        (siren-recursive-add-to-load-path name)))))
+
+(siren-recursive-add-to-load-path em-modules-dir)
+
+(require 'em-packages)
+
+(require 'em-utils)
+(require 'em-pkg)
+
+;; ui
+;; themes
+;; editing
+
+;; modules
 
 (provide 'em-init)

emacs/.config/emacs/core/em-packages.el

@@ -0,0 +1,21 @@
+;; straight.el: Package management
+(setq straight-vc-git-default-clone-depth 15)
+
+(defvar bootstrap-version)
+(let ((bootstrap-file
+       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+      (bootstrap-version 5))
+  (unless (file-exists-p bootstrap-file)
+    (with-current-buffer
+        (url-retrieve-synchronously
+         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+         'silent 'inhibit-cookies)
+      (goto-char (point-max))
+      (eval-print-last-sexp)))
+  (load bootstrap-file nil 'nomessage))
+
+(setq straight-use-package-by-default t)
+(straight-use-package 'use-package)
+;; (require 'straight-x)
+
+(provide 'em-packages)

emacs/.config/emacs/core/em-pkg.el

@@ -0,0 +1,8 @@
+(use-package no-littering
+  :demand)
+
+(use-package exec-path-from-shell
+  :init
+  (exec-path-from-shell-initialize))
+
+(provide 'em-pkg)

emacs/.config/emacs/core/em-utils.el

@@ -0,0 +1,2 @@
+
+(provide 'em-utils)

emacs/.config/emacs/early-init.el

@@ -1,24 +1,4 @@
-;; straight.el: Package management
+(setq package-enable-at-startup nil) ;; straight.el instead of package.el
-(setq package-enable-at-startup nil)
-
-(setq straight-vc-git-default-clone-depth 15)
-
-(defvar bootstrap-version)
-(let ((bootstrap-file
-       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
-      (bootstrap-version 5))
-  (unless (file-exists-p bootstrap-file)
-    (with-current-buffer
-        (url-retrieve-synchronously
-         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
-         'silent 'inhibit-cookies)
-      (goto-char (point-max))
-      (eval-print-last-sexp)))
-  (load bootstrap-file nil 'nomessage))
-
-(setq straight-use-package-by-default t)
-(straight-use-package 'use-package)
-;; (require 'straight-x)
 
 ;; Garbage collection
 (setq gc-cons-threshold most-positive-fixnum

emacs/.config/emacs/init.el

@@ -1,12 +1,8 @@
-;; TODO Move most of this into core/
 (setq user-full-name "earnest ma"
       user-mail-address "me@earne.link"
       calendar-latitude 43.7682 ; Toronto
       calendar-longitude -79.4126)
 
-(use-package no-littering
-  :demand)
-
 ;; Always load newest byte code
 (setq load-prefer-newer t)
 (load (concat user-emacs-directory "core/em-init") nil 'nomessage)