# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1723773186 14400
# Node ID 862659891933d80135c84940cab910d94ad34052
# Parent  8bd50ea9a54613f2ccb337bee9e66f78cf66eba6
org directory tweaks

diff -r 8bd50ea9a546 -r 862659891933 .emacs.d/ellis.el
--- a/.emacs.d/ellis.el	Mon Aug 12 21:50:44 2024 -0400
+++ b/.emacs.d/ellis.el	Thu Aug 15 21:53:06 2024 -0400
@@ -1,4 +1,4 @@
-;;; ellis.el --- Richard's custom Emacs config
+;;; ellis.el --- Richard's custom Emacs config -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2024
 
@@ -30,7 +30,7 @@
 
 (defalias 'make #'compile)
 
-(setopt default-theme 'modus-vivendi-tritanopia
+(setopt default-theme 'ef-dream
         user-lab-directory (join-paths user-home-directory "lab")
         company-source-directory (join-paths user-home-directory "comp"))
 
@@ -563,8 +563,9 @@
     files))
 
 (defvar org-agenda-directories (list org-directory
-                                     (join-paths user-lab-directory "org")
-                                     (join-paths company-source-directory "org/*"))
+                                     ;; (join-paths user-lab-directory "org")
+                                     (join-paths company-source-directory "org/*")
+                                     (join-paths company-source-directory "org/*/*"))
   "List of directories containing org files.")
 (defvar org-agenda-extensions '(".org")
   "List of extensions of agenda files")
@@ -572,9 +573,12 @@
 (defun org-set-agenda-files ()
   (interactive)
   (setq org-agenda-files
+        (cl-remove-if (lambda (x) (or
+                                   (string= "archive.org" (file-name-nondirectory x))
+                                   (string= "archive" (file-name-directory x))))
         (org-list-files
          org-agenda-directories
-         org-agenda-extensions)))
+         org-agenda-extensions))))
 
 (with-eval-after-load 'org
   (org-set-agenda-files))