chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

denote tweaks and mu4e tweaks

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

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