summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2024-11-08 09:22:39 -0800
committerFranck Cuny <franck@fcuny.net>2024-11-08 09:22:39 -0800
commit822af7fe6b773132e831e199954c42c8c4df207c (patch)
tree8bd1190c487e21bdd1c63960a273b9e1ef465659
parentadd Karl Voit feed (diff)
downloademacs.d-822af7fe6b773132e831e199954c42c8c4df207c.tar.gz
removing denote
-rw-r--r--config/init-notes.el64
1 files changed, 5 insertions, 59 deletions
diff --git a/config/init-notes.el b/config/init-notes.el
index b49fdcf..cec980d 100644
--- a/config/init-notes.el
+++ b/config/init-notes.el
@@ -7,70 +7,21 @@
 
 ;;; Code:
 
-(use-package denote
-  :ensure t
-  :hook (dired-mode . denote-dired-mode)
-  :init
-  (use-package denote-org-extras
-    :ensure nil)
-  (use-package denote-journal-extras
-    :ensure nil)
-  :bind (("C-c n r" . denote-rename-file)
-	 ("C-c n t" . denote-journal-extras-new-or-existing-entry)
-	 ("C-c n n" . denote-subdirectory)
-	 ("C-c n c" . denote))
-  :custom
-  (denote-known-keywords '("journal" "project" "TIL" "people" "interviews"))
-  (denote-rename-buffer-mode 1)
-  (denote-journal-extras-directory (concat denote-directory "journal/" (format-time-string "%Y")))
-  (denote-file-type "org")
-  (denote-org-capture-specifiers "%i\n%?")
-  (denote-dired-directories (list denote-directory))
-  (denote-dired-directories-include-subdirectories t)
-  (denote-journal-extras-title-format 'day-date-month-year))
-
-(use-package consult-denote
-  :after consult
-  :ensure t
-  :bind (("C-c n f" . consult-denote-find)
-	 ("C-c n g" . consult-denote-grep))
-  :config
-  (consult-denote-mode 1)
-  ;; Prefer `ripgrep' and `fd' variants when available
-  (when (executable-find "fd")
-    (setopt consult-denote-find-command #'consult-fd))
-  (when (executable-find "rg")
-    (setopt consult-denote-grep-command #'consult-ripgrep)))
-
 (use-package org
   :hook
   (org-mode . turn-on-flyspell)
   (org-mode . visual-line-mode)
   (org-mode . org-indent-mode)
 
-  :preface
-  (defun my/org-entry-get-immediate (property)
-    (save-excursion
-      (let ((local (org--property-local-values property nil)))
-        (and local (mapconcat #'identity
-                              (delq nil local)
-                              (org--property-get-separator property))))))
-
-  (defun org-refile-heading-p ()
-    (let ((todo-state (org-get-todo-state)))
-      (if todo-state
-          (string= todo-state "PROJECT")
-        (my/org-entry-get-immediate "CATEGORY"))))
-
   :config
   (font-lock-add-keywords 'org-mode
                           '(("^ *\\(-\\) "
                              (0 (ignore (compose-region (match-beginning 1) (match-end 1) "•"))))))
 
   :custom
-  (org-directory "~/Documents/notes")
-  (org-default-notes-file (expand-file-name "tasks.org" org-directory))
-  (org-agenda-files '("tasks.org" "inbox.org"))
+  (org-directory "~/Documents/org")
+  (org-default-notes-file (expand-file-name "notes.org" org-directory))
+  (org-agenda-files '("tasks.org" "inbox.org" "notes.org" "contacts.org"))
   
   (org-startup-folded t)
   (org-startup-indented t)
@@ -82,15 +33,13 @@
 
   ;; quick access for todo states
   (org-todo-keywords
-   '((sequence "TODO(t)" "NEXT(n)" "WAITING(w!)" "|" "DONE(d)")
-     (sequence "PROJECT(p@/!)" "|" "COMPLETE(d@/!)" "ABORTED(x@/!)")
+   '((sequence "TODO(t)" "NEXT(n)" "WAITING(w!)" "SOMEDAY(S!)" "|" "DONE(d)")
      (sequence "|" "CANCELLED(c)")))
 
   (org-log-done 'time)
   (org-log-into-drawer t)
 
   ;; org-refile options
-  (org-refile-target-verify-function 'org-refile-heading-p)
   (org-refile-targets
    '((org-agenda-files :maxlevel . 4)))
   (org-refile-allow-creating-parent-nodes (quote confirm))
@@ -131,9 +80,7 @@
   :config
   (setq org-capture-templates
         `(("t" "Tasks" entry (file "inbox.org")
-	   "* TODO %?\n%U" :prepend t :empty-lines 0)
-	  ("n" "note" plain (file denote-last-path) #'denote-org-capture
-           :no-save t :immediate-finish nil :kill-buffer t :jump-to-captured nil))))
+	   "* TODO %?\n%U" :prepend t :empty-lines 0))))
 
 (use-package org-agenda
   :ensure nil
@@ -141,7 +88,6 @@
   :bind
   ("C-c a" . org-agenda)
   :custom
-  (org-agenda-hide-tags-regexp (regexp-opt '("project")))
   (org-agenda-start-on-weekday 1))
   
 (use-package org-auto-tangle