github/dotfiles
1
0
Fork 0
mirror of https://github.com/correl/dotfiles.git synced 2024-11-22 03:00:05 +00:00
Code Issues Projects Releases Packages Wiki Activity

[emacs] Include calibre links in org roam docs

Browse source
This commit is contained in:
Correl Roush 2020-08-05 22:09:46 -04:00
parent b9692ff1a5
commit 2ea15522ae
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
.doom.d/config.org
View file

@ -813,10 +813,28 @@ Adapted from https://org-roam.readthedocs.io/en/master/org_export/.
(insert "\n\n"))))))) (insert "\n\n")))))))
(buffer-string)))) (buffer-string))))
(defun my/org-roam--bibtex ()
(if-let* ((citekey (cdr (org-roam--extract-ref)))
(entry (org-ref-get-bibtex-entry citekey))
(parsed (reftex-parse-bibtex-entry entry)))
(concat (org-list-to-org
(list 'descriptive
(list
(concat "Author :: " (cdr (assoc "author" parsed))))
(list
(concat "Calibre :: https://calibre.phoenixinquis.is-a-geek.org/#library_id=library&panel=book_details&book_id=" (cdr (assoc "calibreid" parsed))))))
"\n\n")))
(defun my/org-export-preprocessor (backend) (defun my/org-export-preprocessor (backend)
"Append org-roam backlinks with content when applicable before "Append org-roam backlinks with content when applicable before
passing to the org export BACKEND." passing to the org export BACKEND."
(let ((links (my/org-roam--backlinks-list-with-content (buffer-file-name)))) (let ((links (my/org-roam--backlinks-list-with-content (buffer-file-name)))
(bibtex (my/org-roam--bibtex)))
(unless (or (not (stringp bibtex)) (string= bibtex ""))
(save-excursion
(goto-char (point-max))
(insert (concat "\n* Bibliography\n") bibtex)))
(unless (or (not (stringp links)) (string= links "")) (unless (or (not (stringp links)) (string= links ""))
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))