From ad781f7ee01e4c4f932413c3ce61009c8b2bd080 Mon Sep 17 00:00:00 2001
From: "Collin J. Doering" <collin@rekahsoft.ca>
Date: Tue, 17 Aug 2021 00:07:41 -0400
Subject: [PATCH] rekahsoft-gnu/packages/emacs-xyz.scm: Add org-roam-ui package

---
 rekahsoft-gnu/packages/emacs-xyz.scm | 56 ++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/rekahsoft-gnu/packages/emacs-xyz.scm b/rekahsoft-gnu/packages/emacs-xyz.scm
index 05a2582..442c3b9 100644
--- a/rekahsoft-gnu/packages/emacs-xyz.scm
+++ b/rekahsoft-gnu/packages/emacs-xyz.scm
@@ -676,6 +676,62 @@ See perspective.el on github: https://github.com/nex3/perspective-el
      "Web Application to Visualize the Org-Roam Database.")
     (license license:gpl3+)))
 
+(define-public emacs-org-roam-ui
+  (let ((commit "bd31703d8627d3c8e046d62223a08d295f0e9578")
+        (revision "1"))
+    (package
+      (name "emacs-org-roam-ui")
+      (version (git-version "0.0.0" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/org-roam/org-roam-ui")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0lbxglzr9xdacyzrfisyifsqlw6xlvn3013vnrj08s7wznz77226"))))
+      (build-system emacs-build-system)
+      (inputs `(("emacs" ,emacs)))
+      (propagated-inputs
+       `(("emacs-dash" ,emacs-dash)
+         ("emacs-simple-httpd" ,emacs-simple-httpd)
+         ("emacs-f" ,emacs-f)
+         ("emacs-websocket" ,emacs-websocket)
+         ("emacs-org" ,emacs-org)
+         ("emacs-org-roam" ,emacs-org-roam)))
+      (arguments
+       `(#:include (cons "out/" %default-include)
+         ;; TODO: this really should be done as part of either the emacs-org package, or as part of another separate package
+         #:phases
+         (modify-phases %standard-phases
+           (add-after 'build 'install-application
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (emacs (assoc-ref inputs "emacs"))
+                      (xapplications (string-append out "/share/applications")))
+                 (mkdir-p xapplications)
+                 (call-with-output-file
+                     (string-append xapplications "/org-protocol.desktop")
+                   (lambda (port)
+                     (format port
+                             "[Desktop Entry]~@
+                            Name=Org-Protocol~@
+                            Comment=Protocol which allows interaction between org-roam-server in emacs and a web browser~@
+                            Exec=~a/bin/emacsclient %u~@
+                            Icon=emacs-icon~@
+                            Type=Application~@
+                            Terminal=false~@
+                            MimeType=x-scheme-handler/org-protocol~%"
+                             emacs)))
+                 #t))))))
+      (home-page
+       "https://github.com/org-roam/org-roam-ui")
+      (synopsis "A graphical frontend for exploring your org-roam Zettelkasten")
+      (description
+       "A graphical frontend for exploring your org-roam Zettelkasten.")
+      (license license:gpl3+))))
+
 (define-public emacs-mu4e-dashboard
   (let ((commit "7956bf9631abfecdf4fbff168aa92064dc4886fb")
         (revision "1"))