changeset 85: |
862659891933 |
parent 83: |
8bd50ea9a546 |
child 86: |
a86cb552d6df |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Thu, 15 Aug 2024 21:53:06 -0400 |
files: |
.emacs.d/ellis.el |
description: |
org directory tweaks |
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))