From f1d54d470f4bee406ef02b1882b6e745e9922c30 Mon Sep 17 00:00:00 2001
From: "Collin J. Doering" <collin@rekahsoft.ca>
Date: Sun, 13 Feb 2022 17:51:36 -0500
Subject: [PATCH] emacs-xyz: Remove emacs-org-roam-server

---
 rekahsoft-gnu/packages/emacs-xyz.scm | 61 ----------------------------
 1 file changed, 61 deletions(-)

diff --git a/rekahsoft-gnu/packages/emacs-xyz.scm b/rekahsoft-gnu/packages/emacs-xyz.scm
index b82d5bd..bed0d1d 100644
--- a/rekahsoft-gnu/packages/emacs-xyz.scm
+++ b/rekahsoft-gnu/packages/emacs-xyz.scm
@@ -638,67 +638,6 @@ See perspective.el on github: https://github.com/nex3/perspective-el
 taking, the org-roam protocol, graphing note relationships and providing id link
 overlays.")))
 
-(define-public emacs-org-roam-server
-  (package
-    (name "emacs-org-roam-server")
-    (version "1.1.2")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://github.com/org-roam/org-roam-server")
-                    (commit (string-append "v" version))))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "1jp8mkqx1l3w166b16l2d5zsqjcc836bkclplgjk4laysb6msry8"))))
-    (build-system emacs-build-system)
-    (inputs `(("emacs" ,emacs)))
-    (propagated-inputs
-     `(("emacs-dash" ,emacs-dash)
-       ("emacs-simple-httpd" ,emacs-simple-httpd)
-       ("emacs-s" ,emacs-s)
-       ("emacs-f" ,emacs-f)
-       ("emacs-org" ,emacs-org)
-       ("emacs-org-roam" ,emacs-org-roam)))
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'build 'copy-assets
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (site-lisp (string-append "/share/emacs/site-lisp/org-roam-server-" ,version))
-                    (assets (string-append out site-lisp "/assets")))
-               (copy-recursively "assets" assets)
-               (copy-file "index.html"
-                          (string-append out site-lisp "/index.html"))
-               #t)))
-         (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-server")
-    (synopsis "Web Application to Visualize the Org-Roam Database")
-    (description
-     "Web Application to Visualize the Org-Roam Database.")
-    (license license:gpl3+)))
-
 (define-public emacs-org-roam-ui
   (let ((commit "c93f6b61a8d3d2edcf07eda6220278c418d1054b")
         (revision "2"))