foodogsquared/wiki
1
0
Fork 0
mirror of https://github.com/foo-dogsquared/wiki.git synced 2025-01-30 22:57:59 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update Emacs notebook configuration

Browse Source
This commit is contained in:
Gabriel Arazas 2022-10-25 16:49:00 +08:00
parent 9e956dc085
commit 7d52a921dc
3 changed files with 68 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
.dir-locals.el
View File

@ -1,20 +1,40 @@
((org-mode .
((org-babel-default-header-args . ((:session . "none")
(:results . "replace output")
(:exports . "both")
(:cache . "no")
(:noweb . "yes")
(:mkdirp . "yes")
(:tangle . "no")))
(org-babel-default-header-args:org . ((:results . "silent")
(:exports . "code")))
(time-stamp-format . "%Y-%02m-%02d %02H:%02M:%02S %:z")
(time-stamp-start . "date_modified:[ ]+\\\\?[\"< ]*")
(time-stamp-end . "\\\\?[\"> ]*$")
(eval . (setq org-babel-default-header-args
(cons `(:dir . ,(concat
(file-name-directory (buffer-file-name))
"assets/"
(file-name-base (buffer-file-name))))
(assq-delete-all :dir org-babel-default-header-args))))
(org-babel-results-keyword . "results"))))
((org-babel-default-header-args . ((:session . "none")
(:results . "replace output")
(:exports . "both")
(:cache . "no")
(:noweb . "yes")
(:mkdirp . "yes")
(:tangle . "no")))
(org-babel-default-header-args:org . ((:results . "silent")
(:exports . "code")))
(citar-open-note-function 'orb-citar-edit-note)
(time-stamp-format . "%Y-%02m-%02d %02H:%02M:%02S %:z")
(time-stamp-start . "date_modified:[ ]+\\\\?[\"< ]*")
(time-stamp-end . "\\\\?[\"> ]*$")
(eval . (setq org-babel-default-header-args
(cons `(:output-dir . ,(f-join
(file-name-directory (buffer-file-name))
"assets"
(file-name-base (buffer-file-name))))
(assq-delete-all :output-dir org-babel-default-header-args))
citar-note-format-function
(lambda (key entry)
(let* ((template (citar--get-template 'note))
(note-meta (when template
(citar-format--entry template entry)))
(filepath (expand-file-name
(f-join "notebook/" (concat "literature." key ".org"))
(car citar-notes-paths)))
(buffer (find-file filepath)))
(with-current-buffer buffer
(erase-buffer)
(citar-org-roam-make-preamble key)
(org-roam-capture--fill-template "r")
(insert "\n\n|\n\n#+print_bibliography:")
(search-backward "|")
(delete-char 1)
(when (fboundp 'evil-insert)
(evil-insert 1)))))))
(org-babel-results-keyword . "results"))))

8
.envrc
View File

@ -1,7 +1 @@
if type lorri &>/dev/null
then
echo "direnv: using lorri"
eval "$(lorri direnv)"
else
use nix
fi
use flake

46
config.el
View File

@ -5,35 +5,42 @@
(+wiki/biblio-setup)
(defun my/is-in-wiki-directory ()
"Return t if the file buffer is in the wiki directory."
(if (and (not (string= (f-base (buffer-file-name))
(defun my/is-in-wiki-directory (&optional filename)
"Return t if the file buffer is in the wiki directory."
(unless filename (setq filename (buffer-file-name)))
(if (and (not (string= (f-base filename)
my/wiki-asset-directory-name))
(f-descendant-of-p (buffer-file-name)
(f-descendant-of-p filename
(expand-file-name +wiki-directory)))
t
nil))
(defun my/get-assets-folder ()
"Get the assets folder of the current Org mode document."
(if (my/is-in-wiki-directory)
(f-join my/wiki-asset-directory-name (f-base buffer-file-name))
(defun my/get-assets-folder (&optional filename)
"Get the assets folder of the current Org mode document."
(unless filename (setq filename (buffer-file-name)))
(if (my/is-in-wiki-directory filename)
(f-join my/wiki-asset-directory-name (f-base filename))
nil))
(defun my/concat-assets-folder (&rest args)
(defun my/concat-assets-folder (&optional filename &rest args)
"Concatenate PATH to the assets folder."
(apply #'f-join (my/get-assets-folder) args))
(unless filename (setq filename (buffer-file-name)))
(apply #'f-join (my/get-assets-folder filename) args))
(defun my/create-assets-folder ()
"A quick convenient function to create an assets folder in the wiki folder."
(defun my/create-assets-folder (&optional filename)
"A quick convenient function to create the appropriate folder in the assets folder with its buffer filename."
(interactive)
(unless filename (setq filename (buffer-file-name)))
(if (my/is-in-wiki-directory)
(f-mkdir my/wiki-asset-directory-name
(f-join my/wiki-asset-directory-name (file-name-sans-extension (buffer-file-name))))
(let* ((target (f-base filename))
(target-dir (f-join my/wiki-asset-directory-name target)))
(apply #'f-mkdir (f-split target-dir))
(message "Directory '%s' has been created." target-dir))
(message "Not in the wiki directory.")))
(defun my/parse-links-in-org (filename)
(defun my/parse-links-in-org (&optional filename)
"Returns a list of links in an Org buffer."
(unless filename (setq filename (buffer-file-name)))
(let ((ast (with-temp-buffer
(insert-file-contents filename)
(org-mode)
@ -55,12 +62,14 @@
(setq
org-roam-v2-ack 't
org-roam-node-display-template "${doom-hierarchy:100} ${file:45}"
org-roam-node-display-template
(format "${doom-hierarchy:*} %s %s"
(propertize "${doom-tags:15}" 'face 'org-tag)
(propertize "${file:60}" 'face 'font-lock-default-face))
citar-notes-paths `(,+wiki-directory)
citar-library-paths '("~/library/references" "~/Zotero")
org-roam-capture-templates `(("e" "evergreen" plain "%?"
(file ,(f-join +wiki-directory "templates" "default.org"))
:target
@ -71,7 +80,8 @@
(file ,(f-join +wiki-directory "templates" "anki.org"))
:target
(file ,(f-join +anki-cards-directory-name "%<%Y>.org"))
:unnarrowed t)
:unnarrowed t
:empty-lines 2)
("l" "literature" plain "%?"
(file ,(f-join +wiki-directory "templates" "default.org"))
@ -79,7 +89,7 @@
(file ,(f-join +wiki-notebook-directory "literature.${slug}.org"))
:unnarrowed t)
("L" "literature reference" plain
("L" "literature reference" plain "%?"
(file ,(f-join +wiki-directory "templates" "literature.org"))
:target
(file ,(f-join +wiki-notebook-directory "literature.${citekey}.org"))