dotfiles/emacs-lisp/org_roam.org

:PROPERTIES:
:ID:       18476d68-cccb-48f4-aa77-caefe213d8bd
:END:
#+title: Org Roam
#+filetags: emacs-load

# SPDX-FileCopyrightText: 2022 Richard Brežák <richard@brezak.sk>
#
# SPDX-License-Identifier: LGPL-3.0-or-later

#+BEGIN_NOTE
When exporting, running ~(org-id-update-id-locations (directory-files-recursively org-roam-directory ".org"))~
#+END_NOTE

#+BEGIN_SRC emacs-lisp :tangle no :results none
(defun replace-in-string (what with in)
  (replace-regexp-in-string (regexp-quote what) with in nil 'literal))

(defun org-html--format-image (source attributes info)
  (progn
    (setq source (replace-in-string "%20" " " source))
    (format "<img src=\"data:image/%s+xml;base64,%s\"%s />"
            (or (file-name-extension source) "")
            (base64-encode-string
             (with-temp-buffer
               (insert-file-contents-literally source)
              (buffer-string)))
            (file-name-nondirectory source))))
#+END_SRC

#+BEGIN_QUOTE
Org-roam is a plain-text knowledge management system. It brings some of Roam's more powerful features into the Org-mode ecosystem.
#+END_QUOTE

#+BEGIN_WARNING
SQLite3 must be on Emacs' PATH!
#+END_WARNING

#+BEGIN_SRC emacs-lisp :results none
  (use-package org-roam
    :straight
    (org-roam
     :type git
     :host github
     :repo "org-roam/org-roam"
     :branch "main")
    :init
    (setq org-roam-v2-ack t)
    :config
    (add-hook 'after-init-hook 'org-roam-setup)

    ;; Add ignore for SyncThing
    (setq org-roam-file-exclude-regexp "\\.stversions\\|\\.sync-conflict-")

    (setq org-roam-directory "~/roam")
    ;; Add more informative completion interface
    (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:30}" 'face 'org-tag)))

    (defun magic_rb/org-roam-buffer-hook ()
      (when (org-roam-buffer-p)
        (make-local-variable 'org-link-frame-setup)
        (add-to-list 'org-link-frame-setup '(file . find-file))))
    (add-hook 'org-mode-hook 'magic_rb/org-roam-buffer-hook)

    (defun magic_rb/org-roam-hook ()
      (visual-line-mode))
    (add-hook 'org-roam-mode-hook 'magic_rb/org-roam-hook))

  (use-package shackle
    :straight t
    :init
    (shackle-mode))

  (setq shackle-rules
        '((org-roam-mode
           :align right
           :size 0.25
           :popup t)))
#+END_SRC

* Ref Capture

Using ~org-protocol~, one can capture a website from their browser directly into Org Roam.

#+BEGIN_SRC emacs-lisp :tangle no
  (with-eval-after-load "org-roam"
    (require 'org-roam-protocol)
    (setq org-roam-capture-ref-templates
          `(("r" "ref" plain "%?"
             :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n\n${body}")
             :unnarrowed t))))
#+END_SRC

Then you need a desktop entry for ~org-protocol~. Such as:

#+BEGIN_SRC conf-desktop
  [Desktop Entry]
  Name=org-protocol
  Exec=emacsclient %u
  Type=Application
  Terminal=false
  Categories=System;
  MimeType=x-scheme-handler/org-protocol;
#+END_SRC

or in Nix form:

#+BEGIN_SRC nix
  makeDesktopItem {
    name = "Org-Protocol";
    exec = "emacsclient %u";
    comment = "Org protocol";
    desktopName = "org-protocol";
    type = "Application";
    mimeType = "x-scheme-handler/org-protocol";
  }
#+END_SRC

Lastly a bookmarklet in Firefox.

#+BEGIN_SRC javascript
  javascript:location.href ='org-protocol://roam-ref?template=rw&ref=' + encodeURIComponent(location.href) + '&title=' + encodeURIComponent(document.title) + '&body=' + encodeURIComponent(window.getSelection())
#+END_SRC

* Export
#+begin_src emacs-lisp :tangle no :results none
  (require 'org-roam-export)

  (defun magic_rb/org-html-publish-to-html-continue (plist filename pub-dir)
    (org-html-publish-to-html plist filename pub-dir))

  (setq org-publish-project-alist
          `(("org"
             :base-directory "~/roam/"
             :publishing-function org-html-publish-to-html ;; magic_rb/org-html-publish-to-html-continue
             :publishing-directory "~/roam/published"
             :exclude "^.*$"
             :include ,(seq-map #'car
                                (org-roam-db-query
                                 [:select [nodes:file]
                                          :from tags
                                          :left-join nodes
                                          :on (= tags:node-id nodes:id)
                                          :where (like tag (quote "%\"public-publish\""))]))
             )))

        (org-publish "org" t)
#+end_src

https://emacs.stackexchange.com/questions/59149/why-is-latex-preview-and-latex-to-html-export-via-dvisvgm-not-working-in-org-mod