denote tweaks and mu4e tweaks

This commit is contained in:
Chris Cochrun 2025-01-22 11:43:07 -06:00
parent 97f28995e1
commit 5b05937cef
2 changed files with 28 additions and 28 deletions

View file

@ -1147,14 +1147,14 @@ Part of this config includes some special capture templates for my work as a you
(let ((notes (directory-files "~/docs/notes" t ".*.org"))
(lessons (directory-files "~/docs/notes/lessons" t ".*.org"))
(denote-directory "~/docs/notes/site/content"))
(denote-directory "~/docs/site/content"))
(cl-loop for file in notes
do (let ((filename (f-filename file)))
(copy-file file (concat "~/docs/notes/site/content/notes/" filename) t)))
(copy-file file (concat "~/docs/site/content/notes/" filename) t)))
(cl-loop for file in lessons
do (let ((filename (f-filename file)))
(copy-file file (concat "~/docs/notes/site/content/teaching/" filename) t)))
(find-file "~/docs/notes/site/content/index.org")
(copy-file file (concat "~/docs/site/content/teaching/" filename) t)))
(find-file "~/docs/site/content/index.org")
(org-update-all-dblocks)
(save-buffer)
(org-publish "cochrun.xyz")))
@ -1162,13 +1162,13 @@ Part of this config includes some special capture templates for my work as a you
(defun chris/website-dynamic-block ()
"A function to load up the links on the homepage for the website"
(let (files (directory-files "~/docs/notes/site/content/notes/" t ".*.org"))
(let (files (directory-files "~/docs/site/content/notes/" t ".*.org"))
(cl-loop for file in files
do (insert (denote--link-get-description file)))))
(defun org-dblock-write:chris-site-notes ()
"A function to load up the links on the homepage for the website"
(let (files (directory-files "~/docs/notes/site/content/notes/" t ".*.org"))
(let (files (directory-files "~/docs/site/content/notes/" t ".*.org"))
(cl-loop for file in files
do (insert (denote--link-get-description file)))))
@ -1176,7 +1176,7 @@ Part of this config includes some special capture templates for my work as a you
(setq org-publish-project-alist
`(("home"
:base-directory "~/docs/notes/site/content"
:base-directory "~/docs/site/content"
:base-extension "org"
:recursive nil
:html-doctype "html5"
@ -1187,7 +1187,7 @@ Part of this config includes some special capture templates for my work as a you
:publishing-directory "~/docs/notes/site/public/"
:publishing-function org-html-publish-to-html)
("posts"
:base-directory "~/docs/notes/site/content/notes"
:base-directory "~/docs/site/content/notes"
:base-extension "org"
:recursive nil
:html-doctype "html5"
@ -1195,10 +1195,10 @@ Part of this config includes some special capture templates for my work as a you
:html-self-link-headlines t
:htmlized-source t
:html-head "<link rel=\"stylesheet\" href=\"../pico.css\" type=\"text/css\"/>"
:publishing-directory "~/docs/notes/site/public/notes/"
:publishing-directory "~/docs/site/public/notes/"
:publishing-function org-html-publish-to-html)
("teaching/preaching"
:base-directory "~/docs/notes/site/content/teaching"
:base-directory "~/docs/site/content/teaching"
:base-extension "org"
:recursive nil
:html-doctype "html5"
@ -1206,15 +1206,15 @@ Part of this config includes some special capture templates for my work as a you
:html-self-link-headlines t
:htmlized-source t
:html-head "<link rel=\"stylesheet\" href=\"../pico.css\" type=\"text/css\"/>"
:publishing-directory "~/docs/notes/site/public/teaching/"
:publishing-directory "~/docs/site/public/teaching/"
:publishing-function org-html-publish-to-html)
("static"
:base-directory "~/docs/notes/site/assets/"
:base-directory "~/docs/site/assets/"
:base-extension "css\\|txt\\|jpg\\|gif\\|png"
:recursive t
:html-doctype "html5"
:html-html5-fancy t
:publishing-directory "~/docs/notes/site/public/static/"
:publishing-directory "~/docs/site/public/static/"
:publishing-function org-publish-attachment)
("cochrun.xyz" :components ("home" "posts" "static" "teaching/preaching"))))
@ -4383,7 +4383,7 @@ Ledger mode
(setq mu4e-maildir "~/mail"
user-full-name "Chris Cochrun"
mu4e-change-filenames-when-moving t
mu4e-get-mail-command "mbsync -a"
mu4e-get-mail-command "mailsync"
mu4e-update-interval (* 15 60)
mu4e-attachment-dir "/home/chris/docs/attachments"
mu4e-completing-read-function #'completing-read

28
init.el
View file

@ -852,14 +852,14 @@ much faster. The hope is to also make this a faster version of imenu."
(let ((notes (directory-files "~/docs/notes" t ".*.org"))
(lessons (directory-files "~/docs/notes/lessons" t ".*.org"))
(denote-directory "~/docs/notes/site/content"))
(denote-directory "~/docs/site/content"))
(cl-loop for file in notes
do (let ((filename (f-filename file)))
(copy-file file (concat "~/docs/notes/site/content/notes/" filename) t)))
(copy-file file (concat "~/docs/site/content/notes/" filename) t)))
(cl-loop for file in lessons
do (let ((filename (f-filename file)))
(copy-file file (concat "~/docs/notes/site/content/teaching/" filename) t)))
(find-file "~/docs/notes/site/content/index.org")
(copy-file file (concat "~/docs/site/content/teaching/" filename) t)))
(find-file "~/docs/site/content/index.org")
(org-update-all-dblocks)
(save-buffer)
(org-publish "cochrun.xyz")))
@ -867,13 +867,13 @@ much faster. The hope is to also make this a faster version of imenu."
(defun chris/website-dynamic-block ()
"A function to load up the links on the homepage for the website"
(let (files (directory-files "~/docs/notes/site/content/notes/" t ".*.org"))
(let (files (directory-files "~/docs/site/content/notes/" t ".*.org"))
(cl-loop for file in files
do (insert (denote--link-get-description file)))))
(defun org-dblock-write:chris-site-notes ()
"A function to load up the links on the homepage for the website"
(let (files (directory-files "~/docs/notes/site/content/notes/" t ".*.org"))
(let (files (directory-files "~/docs/site/content/notes/" t ".*.org"))
(cl-loop for file in files
do (insert (denote--link-get-description file)))))
@ -881,7 +881,7 @@ much faster. The hope is to also make this a faster version of imenu."
(setq org-publish-project-alist
`(("home"
:base-directory "~/docs/notes/site/content"
:base-directory "~/docs/site/content"
:base-extension "org"
:recursive nil
:html-doctype "html5"
@ -892,7 +892,7 @@ much faster. The hope is to also make this a faster version of imenu."
:publishing-directory "~/docs/notes/site/public/"
:publishing-function org-html-publish-to-html)
("posts"
:base-directory "~/docs/notes/site/content/notes"
:base-directory "~/docs/site/content/notes"
:base-extension "org"
:recursive nil
:html-doctype "html5"
@ -900,10 +900,10 @@ much faster. The hope is to also make this a faster version of imenu."
:html-self-link-headlines t
:htmlized-source t
:html-head "<link rel=\"stylesheet\" href=\"../pico.css\" type=\"text/css\"/>"
:publishing-directory "~/docs/notes/site/public/notes/"
:publishing-directory "~/docs/site/public/notes/"
:publishing-function org-html-publish-to-html)
("teaching/preaching"
:base-directory "~/docs/notes/site/content/teaching"
:base-directory "~/docs/site/content/teaching"
:base-extension "org"
:recursive nil
:html-doctype "html5"
@ -911,15 +911,15 @@ much faster. The hope is to also make this a faster version of imenu."
:html-self-link-headlines t
:htmlized-source t
:html-head "<link rel=\"stylesheet\" href=\"../pico.css\" type=\"text/css\"/>"
:publishing-directory "~/docs/notes/site/public/teaching/"
:publishing-directory "~/docs/site/public/teaching/"
:publishing-function org-html-publish-to-html)
("static"
:base-directory "~/docs/notes/site/assets/"
:base-directory "~/docs/site/assets/"
:base-extension "css\\|txt\\|jpg\\|gif\\|png"
:recursive t
:html-doctype "html5"
:html-html5-fancy t
:publishing-directory "~/docs/notes/site/public/static/"
:publishing-directory "~/docs/site/public/static/"
:publishing-function org-publish-attachment)
("cochrun.xyz" :components ("home" "posts" "static" "teaching/preaching"))))
@ -3141,7 +3141,7 @@ targets."
(setq mu4e-maildir "~/mail"
user-full-name "Chris Cochrun"
mu4e-change-filenames-when-moving t
mu4e-get-mail-command "mbsync -a"
mu4e-get-mail-command "mailsync"
mu4e-update-interval (* 15 60)
mu4e-attachment-dir "/home/chris/docs/attachments"
mu4e-completing-read-function #'completing-read