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] Add to roam reference export

Browse source
This commit is contained in:
Correl Roush 2020-08-06 22:20:19 -04:00
parent ed059379f2
commit 33bbf695f5
1 changed files with 38 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
.doom.d/config.org
View file

@ -806,35 +806,57 @@ Adapted from https://org-roam.readthedocs.io/en/master/org_export/.
(org-roam--get-title-or-slug file-from))) (org-roam--get-title-or-slug file-from)))
(dolist (backlink bls) (dolist (backlink bls)
(pcase-let* ((`(,file-from _ ,props) backlink) (pcase-let* ((`(,file-from _ ,props) backlink)
(content (my/org-roam--rewrite-backlink-content-links (content (plist-get props :content)))
(when content
(let ((rewritten (my/org-roam--rewrite-backlink-content-links
(f-dirname file) (f-dirname file)
(plist-get props :content)))) (plist-get props :content))))
(insert (s-trim (s-replace "\n" " " content))) (insert (s-trim (s-replace "\n" " " rewritten)))))
(insert "\n\n"))))))) (insert "\n\n")))))))
(buffer-string)))) (buffer-string))))
(defun my/org-roam--bibtex () (defun my/org-roam--reference-details ()
(if-let* ((citekey (cdr (org-roam--extract-ref))) (let* ((citekey (cdr (org-roam--extract-ref)))
(entry (org-ref-get-bibtex-entry citekey)) (bibtex (when citekey (bibtex-completion-get-entry citekey))))
(parsed (reftex-parse-bibtex-entry entry))) (when citekey
(concat (org-list-to-org (cond (bibtex
(list 'descriptive (my/org-roam--reference-details-bibtex bibtex))
(list ((s-starts-with? "http" citekey t)
(concat "Author :: " (cdr (assoc "author" parsed)))) (my/org-roam--reference-details-url citekey))
(list (t (my/org-roam--reference-details-default citekey))))))
(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-roam--reference-details-default (citekey)
(my/org-roam--reference-details-list
`(("Key" . ,(concat "=" citekey "=")))))
(defun my/org-roam--reference-details-url (url)
(my/org-roam--reference-details-list
`(("Webpage" . ,(org-link-make-string url)))))
(defun my/org-roam--reference-details-bibtex (entry)
(my/org-roam--reference-details-list
`(("Author" . ,(cdr (assoc "author" entry)))
("Calibre Library" . ,(org-link-make-string (concat "https://calibre.phoenixinquis.is-a-geek.org/#library_id=library&panel=book_details&book_id=" (cdr (assoc "calibreid" entry))))))))
(defun my/org-roam--reference-details-list (details-alist)
(org-list-to-org
(cons 'descriptive
(mapcar
(lambda (pair)
(let ((field (car pair))
(text (cdr pair)))
(list (concat field " :: " text))))
details-alist))))
(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))) (details (my/org-roam--reference-details)))
(unless (or (not (stringp bibtex)) (string= bibtex "")) (unless (or (not (stringp details)) (string= details ""))
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(insert (concat "\n* Bibliography\n") bibtex))) (insert (concat "\n* Reference Details\n") details)))
(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))