1.1--- a/.emacs.d/ellis.el	Mon Aug 12 21:50:44 2024 -0400
     1.2+++ b/.emacs.d/ellis.el	Thu Aug 15 21:53:06 2024 -0400
     1.3@@ -1,4 +1,4 @@
     1.4-;;; ellis.el --- Richard's custom Emacs config
     1.5+;;; ellis.el --- Richard's custom Emacs config -*- lexical-binding: t -*-
     1.6 
     1.7 ;; Copyright (C) 2024
     1.8 
     1.9@@ -30,7 +30,7 @@
    1.10 
    1.11 (defalias 'make #'compile)
    1.12 
    1.13-(setopt default-theme 'modus-vivendi-tritanopia
    1.14+(setopt default-theme 'ef-dream
    1.15         user-lab-directory (join-paths user-home-directory "lab")
    1.16         company-source-directory (join-paths user-home-directory "comp"))
    1.17 
    1.18@@ -563,8 +563,9 @@
    1.19     files))
    1.20 
    1.21 (defvar org-agenda-directories (list org-directory
    1.22-                                     (join-paths user-lab-directory "org")
    1.23-                                     (join-paths company-source-directory "org/*"))
    1.24+                                     ;; (join-paths user-lab-directory "org")
    1.25+                                     (join-paths company-source-directory "org/*")
    1.26+                                     (join-paths company-source-directory "org/*/*"))
    1.27   "List of directories containing org files.")
    1.28 (defvar org-agenda-extensions '(".org")
    1.29   "List of extensions of agenda files")
    1.30@@ -572,9 +573,12 @@
    1.31 (defun org-set-agenda-files ()
    1.32   (interactive)
    1.33   (setq org-agenda-files
    1.34+        (cl-remove-if (lambda (x) (or
    1.35+                                   (string= "archive.org" (file-name-nondirectory x))
    1.36+                                   (string= "archive" (file-name-directory x))))
    1.37         (org-list-files
    1.38          org-agenda-directories
    1.39-         org-agenda-extensions)))
    1.40+         org-agenda-extensions))))
    1.41 
    1.42 (with-eval-after-load 'org
    1.43   (org-set-agenda-files))