config.org

@@ -7,13 +7,13 @@
 
 ** Core
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
-(defvar elpaca-installer-version 0.11)
+(defvar elpaca-installer-version 0.7)
 (defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
 (defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
 (defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
 (defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
-                              :ref nil :depth 1 :inherit ignore
+                              :ref nil :depth 1
                               :files (:defaults "elpaca-test.el" (:exclude "extensions"))
                               :build (:not elpaca--activate-package)))
 (let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
@@ -23,30 +23,30 @@
   (add-to-list 'load-path (if (file-exists-p build) build repo))
   (unless (file-exists-p repo)
     (make-directory repo t)
-    (when (<= emacs-major-version 28) (require 'subr-x))
+    (when (< emacs-major-version 28) (require 'subr-x))
     (condition-case-unless-debug err
-        (if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
+        (if-let ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
-                  ((zerop (apply #'call-process `("git" nil ,buffer t "clone"
+                 ((zerop (apply #'call-process `("git" nil ,buffer t "clone"
-                                                  ,@(when-let* ((depth (plist-get order :depth)))
+                                                 ,@(when-let ((depth (plist-get order :depth)))
-                                                      (list (format "--depth=%d" depth) "--no-single-branch"))
+                                                     (list (format "--depth=%d" depth) "--no-single-branch"))
-                                                  ,(plist-get order :repo) ,repo))))
+                                                 ,(plist-get order :repo) ,repo))))
-                  ((zerop (call-process "git" nil buffer t "checkout"
+                 ((zerop (call-process "git" nil buffer t "checkout"
-                                        (or (plist-get order :ref) "--"))))
+                                       (or (plist-get order :ref) "--"))))
-                  (emacs (concat invocation-directory invocation-name))
+                 (emacs (concat invocation-directory invocation-name))
-                  ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
+                 ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
-                                        "--eval" "(byte-recompile-directory \".\" 0 'force)")))
+                                       "--eval" "(byte-recompile-directory \".\" 0 'force)")))
-                  ((require 'elpaca))
+                 ((require 'elpaca))
-                  ((elpaca-generate-autoloads "elpaca" repo)))
+                 ((elpaca-generate-autoloads "elpaca" repo)))
             (progn (message "%s" (buffer-string)) (kill-buffer buffer))
           (error "%s" (with-current-buffer buffer (buffer-string))))
       ((error) (warn "%s" err) (delete-directory repo 'recursive))))
   (unless (require 'elpaca-autoloads nil t)
     (require 'elpaca)
     (elpaca-generate-autoloads "elpaca" repo)
-    (let ((load-source-file-function nil)) (load "./elpaca-autoloads"))))
+    (load "./elpaca-autoloads")))
 (add-hook 'after-init-hook #'elpaca-process-queues)
 (elpaca `(,@elpaca-order))
-#+END_SRC
+#+end_src
 
 ** Use-package integration
 
@@ -471,7 +471,7 @@ C-c C-c to apply."
 
 *** Corfu
 
-#+BEGIN_SRC
+#+BEGIN_SRC emacs-lisp
 (use-package corfu
   ;; Optional customizations
   :bind (:map corfu-map ("<tab>" . corfu-complete))
@@ -502,7 +502,7 @@ C-c C-c to apply."
 
 *** Company-mode
 
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC
 (use-package company
   :config
   (define-key prog-mode-map
@@ -964,7 +964,6 @@ Preserve indentation in SRC blocks
   (org-roam-db-autosync-mode)
   ;; Add todo lists to org-agenda
   (custom-set-variables '(org-agenda-files (directory-files-recursively org-roam-directory "todo\\.org$")))
-  (load (expand-file-name "init.el" org-roam-directory) :no-error-if-file-is-missing)
 )
 #+END_SRC
 
@@ -1025,15 +1024,6 @@ Preserve indentation in SRC blocks
    )
 #+END_SRC
 
-** Org Download
-
-#+BEGIN_SRC emacs-lisp
-(use-package org-download
-  :config
-  (add-hook 'dired-mode-hook 'org-download-enable)
-  )
-#+END_SRC
-
 * Elisp
 
 ** Add demos to describe-function
@@ -1189,12 +1179,12 @@ This should normally be done by the init.el to load this configuration.
 
 #+BEGIN_SRC emacs-lisp
 (defun myrmi/visit-config ()
-  "Visit emacs config"
+  "Reloads ~/.emacs.d/config.org at runtime"
   (interactive)
   (find-file my-config-file))
 
 (defun myrmi/reload-config ()
-  "Reload emacs config at runtime"
+  "Reloads ~/.emacs.d/config.org at runtime"
   (interactive)
   (org-babel-load-file my-config-file))
 #+END_SRC

init.el

@@ -7,9 +7,11 @@
   (setq custom-file (expand-file-name "custom.el" user-emacs-directory))
   ;; This is the actual config file. It is omitted if it doesn't exist so emacs won't refuse to launch.
   (defvar my-config-file (expand-file-name "config.org" user-emacs-directory))
+  (defvar notes-config-file (expand-file-name "init.el" "~/projects/notes/"))
 
   (when (file-readable-p my-config-file)
     (org-babel-load-file (expand-file-name my-config-file)))
 
+  (load notes-config-file :no-error-if-file-is-missing)
   (load custom-file :no-error-if-file-is-missing)
 )