agenda: Restructure notes directory

Set org-agenda-files to a file with a list of agenda files rather than
setting org-agenda-files to a directory with symlinked org files.

1 files changed, 0 insertions, 24 deletions

diff --git a/lisp/km-org-agenda.el b/lisp/km-org-agenda.el
index 30b6c49..dbbcabd 100644
--- a/lisp/km-org-agenda.el
+++ b/lisp/km-org-agenda.el
@@ -23,8 +23,6 @@
 (require 'org-agenda)
 (require 'km-org)
 
-(defvar km/org-agenda-file-directory nil)
-
 (defun km/org-agenda-cd-and-read-dir-locals ()
   (unless (get 'org-agenda-files 'org-restrict)
     (setq default-directory (expand-file-name "~/notes/"))
@@ -38,28 +36,6 @@ killed."
       (setq org-agenda-span org-agenda-current-span)))
 
 ;;;###autoload
-(defun km/org-agenda-add-or-remove-file (file)
-  "Add or remove link to FILE in `km/org-agenda-file-directory'.
-If a link for FILE does not exist, create it. Otherwise, remove
-it. Like `org-agenda-file-to-front', this results in FILE being
-displayed in the agenda."
-  (interactive (list (cl-case major-mode
-                       (org-mode (buffer-file-name))
-                       (dired-mode (dired-get-filename))
-                       (org-agenda-mode (ignore-errors (save-window-excursion
-                                                         (org-agenda-goto)
-                                                         (buffer-file-name))))
-                       (t (read-file-name "Link file: ")))))
-  (let ((agenda-file (expand-file-name (file-name-nondirectory file)
-                                       km/org-agenda-file-directory)))
-    (if (file-equal-p (file-truename agenda-file) file)
-        (progn
-          (when (called-interactively-p) (message "Deleting %s" agenda-file))
-          (delete-file agenda-file))
-      (when (called-interactively-p) (message "Adding %s" agenda-file))
-      (make-symbolic-link file agenda-file))))
-
-;;;###autoload
 (defun km/org-open-default-notes-file-inbox ()
   "Open \"Inbox\" heading of `org-default-notes-file'."
   (interactive)