From c281986bdce7fb13fac4e07a4751cfd847a8755f Mon Sep 17 00:00:00 2001
From: noa
Date: Mon, 11 Nov 2024 12:01:43 +0800
Subject: Update directories and filenames for new ~/Documents hierarchy

---
 emacs/init.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'emacs')

diff --git a/emacs/init.el b/emacs/init.el
index 04119dd..e33ac6b 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -640,7 +640,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
            (shell-quote-argument url))))
 
 ;; Put a quote in the scratch buffer
-(setopt cookie-file "~/Documents/quotes")
+(setopt cookie-file "~/Documents/Library/quotes")
 (setopt initial-scratch-message
         (concat (with-temp-buffer
                   (emacs-lisp-mode)
@@ -661,18 +661,18 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
 (use-package rmail
   :custom
   (rmail-primary-inbox-list
-   (directory-files "~/Documents/mail/inbox" t "^[^\.]"))
-  (rmail-file-name "~/Documents/mail/rmail.mbox")
+   (directory-files "~/Documents/Library/Mail/inbox" t "^[^\.]"))
+  (rmail-file-name "~/Documents/Library/Mail/rmail.mbox")
   (rmail-user-mail-address-regexp
    (rx "noa@noa.pub"))
   (rmail-mime-prefer-html nil)
   (rmail-mime-attachment-dirs-alist '(("" "~/media")))
   (rmail-displayed-headers
    (rx bol (or "To" "Cc" "From" "Date" "Subject") ":"))
-  (rmail-secondary-file-directory "~/Documents/mail/archive/")
+  (rmail-secondary-file-directory "~/Documents/Library/Mail/archive/")
   (rmail-secondary-file-regexp "\\.mbox\\'")
   (rmail-delete-after-output t)
-  (rmail-default-file "~/Documents/mail/archive/")
+  (rmail-default-file "~/Documents/Library/Mail/archive/")
   (mail-dont-reply-to-names rmail-user-mail-address-regexp)
 
   (rmail-display-summary nil)
@@ -687,7 +687,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
   :defer t
   :init
   (defun noa/message-default-headers ()
-    (format "Fcc: ~/Documents/mail/outbox/%s.mbox"
+    (format "Fcc: ~/Documents/Library/Mail/outbox/%s.mbox"
             (format-time-string "%Y-%m")))
 
   :custom
@@ -705,7 +705,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
   (message-sendmail-f-is-evil t)
   (message-forward-as-mime t)
   (message-interactive t)
-  (message-auto-save-directory "~/Documents/mail/drafts"))
+  (message-auto-save-directory "~/Documents/Library/Mail/drafts"))
 
 ;; Environment variables
 (setenv "PAGER" "cat")
@@ -736,7 +736,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
   (setopt howm-view-title-header "#")
 
   :custom
-  (howm-directory "~/Documents/notes/")
+  (howm-directory "~/Documents/Notes/")
   (howm-keyword-file (expand-file-name ".howm-keys" howm-directory))
   (howm-history-file (expand-file-name ".howm-history" howm-directory))
   (howm-view-summary-omit-same-name nil)
@@ -757,7 +757,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
   :bind
   ("<f12>" . howm-list-all)
   ("<C-f12>" . howm-create))
-(setopt howm-file-name-format "%Y-%m-%dT%H%M%S.md")
+(setopt howm-file-name-format "%Y-%m-%d-%H%M%S.md")
 
 ;;; Bibliography management
 (use-package ebib
@@ -771,7 +771,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
                         ("Entry Key" 40 t)))
   ;; Put notes in my markdown notes directory.  I still need to find a way to make ebib-notes-name-transform-function return the appropriate date-based filename format.
   (ebib-notes-storage 'one-file-per-note)
-  (ebib-notes-directory "~/Documents/notes/References")
+  (ebib-notes-directory "~/Documents/Notes/References")
   (ebib-notes-show-note-method 'all)
   (ebib-notes-file-extension "md")
   (ebib-notes-template "# %T\n\n%%?")
@@ -783,9 +783,9 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
 (use-package xeft
   :ensure t
   :custom
-  (xeft-directory "~/Documents/notes")
+  (xeft-directory "~/Documents/Notes")
   (xeft-filename-fn (lambda (search)
-                      (format-time-string "%Y-%m-%dT%H%M%S.md")))
+                      (format-time-string "%Y-%m-%d-%H%M%S.md")))
   (xeft-recursive nil))
 
 (defun noa/yank-buffer-file-name ()
@@ -804,7 +804,7 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
 
 (defun noa/consult-rg-notes ()
   (interactive)
-  (consult-ripgrep "~/Documents/notes"))
+  (consult-ripgrep "~/Documents/Notes"))
 (global-set-key (kbd "C-j C-s") #'noa/consult-rg-notes)
 
 ;; so i can search for synonyms without using the internet
-- 
cgit 1.4.1-2-gfad0