wipwip

4 files changed, 131 insertions, 3 deletions

diff --git a/guix/wigust/packages/emacs.scm b/guix/wigust/packages/emacs.scm
index ba75308..490cc0a 100644
--- a/guix/wigust/packages/emacs.scm
+++ b/guix/wigust/packages/emacs.scm
@@ -1903,3 +1903,41 @@ YAML (even if it's written in JSON style), and swap subtrees.")
       (description "Org-roam-ui provides a web interface for navigating around
 notes created within Org-roam.")
       (license license:gpl3+))))
+
+(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)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'install-share
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((data (string-append (assoc-ref outputs "out")
+                                         "/share/emacs-org-roam-ui"))
+                    (assets (string-append data "/assets")))
+               (chmod "org-roam-server.el" #o644)
+               (emacs-substitute-sexps "org-roam-server.el"
+                 ("(defvar org-roam-server-root" data))
+               (mkdir-p assets)
+               (copy-recursively "assets" assets)))))))
+    (propagated-inputs
+     `(("emacs-f" ,emacs-f)
+       ("emacs-org-roam" ,emacs-org-roam)
+       ("emacs-simple-httpd" ,emacs-simple-httpd)))
+    (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.  Use
+@code{M-x org-roam-server-mode RET} to enable the global mode.  It will start
+a web server on http://127.0.0.1:8080.")
+    (license license:gpl3+)))
diff --git a/guix/wigust/packages/messaging.scm b/guix/wigust/packages/messaging.scm
index 875d32f..478f606 100644
--- a/guix/wigust/packages/messaging.scm
+++ b/guix/wigust/packages/messaging.scm
@@ -1,2 +1,66 @@
-(define-module (wigust packages messaging))
+(define-module (wigust packages messaging)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages web)
+  #:use-module (guix build-system perl)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages))
 
+(define-public perl-io-async
+  (package
+    (name "perl-io-async")
+    (version "0.801")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/P/PE/PEVANS/IO-Async-"
+             version
+             ".tar.gz"))
+       (sha256
+        (base32 "1ff9w6q6sv3b4dk72ha26b4qq7jl041i5fxln4mmfsmp2yx5kr49"))))
+    (build-system perl-build-system)
+    (native-inputs
+     `(("perl-future-io" ,perl-future-io)
+       ("perl-module-build" ,perl-module-build)
+       ("perl-test-fatal" ,perl-test-fatal)
+       ("perl-test-identity" ,perl-test-identity)
+       ("perl-test-metrics-any" ,perl-test-metrics-any)
+       ("perl-test-refcount" ,perl-test-refcount)))
+    (propagated-inputs
+     `(("perl-future" ,perl-future)
+       ("perl-struct-dumb" ,perl-struct-dumb)))
+    (home-page "https://metacpan.org/release/IO-Async")
+    (synopsis "Asynchronous event-driven programming")
+    (description fill-in-yourself!)
+    (license perl-license)))
+
+(define-public paws
+  (let ((commit "f0e26942b08f5f8b6b8d3e342bff11e238a28e54")
+        (revision "1"))
+    (package
+      (name "paws")
+      (version (git-version "0.0.1" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/tomhrr/paws")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0xp8cpjr99sb3l2c78gwra9f758ijk8nkn6g0giyyd1ih702bfa8"))))
+      (build-system perl-build-system)
+      (arguments
+       '(#:tests? #f ; Fails to test
+                  ))
+      (propagated-inputs
+       (list perl-datetime perl-file-slurp perl-lwp-protocol-https))
+      (home-page "https://github.com/tomhrr/paws")
+      (synopsis "Send/receive Slack messages via email")
+      (description "Send/receive Slack messages via email.  Useful if you use a
+mail client like Mutt or mu4e and would prefer to communicate with Slack via
+that client.  Supports sending messages via a sendmail-like command, and
+receiving messages into maildirs, or for further processing by an MDA.")
+      (license license:bsd-3))))
diff --git a/guix/wigust/packages/python.scm b/guix/wigust/packages/python.scm
index 4444429..06ef131 100644
--- a/guix/wigust/packages/python.scm
+++ b/guix/wigust/packages/python.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
+;;; Copyright © 2017, 2018, 2019, 2020, 2022 Oleg Pykhalov <go.wigust@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -470,3 +470,21 @@ your use complies with the LyricWikia terms of service.")
     (synopsis "Quickly set wallpapers from CLI directly from Unsplash")
     (description "Quickly set wallpapers from CLI directly from Unsplash")
     (license license:expat)))
+
+(define-public python-pymongo
+  (package
+    (name "python-pymongo")
+    (version "3.7.2")
+    (source (origin
+              (method url-fetch)
+              (uri (pypi-uri "pymongo" version))
+              (sha256
+               (base32
+                "0zis4707r9hdg5qgkhp3wss9camr9h56ixyfc8n9dxwlnnly4x4c"))))
+    (build-system python-build-system)
+    (propagated-inputs
+     (list python-certifi))
+    (home-page "https://github.com/mongodb/mongo-python-driver")
+    (synopsis "Python driver for MongoDB")
+    (description "Python driver for MongoDB.")
+    (license license:asl2.0)))
diff --git a/guix/wigust/packages/virtualization.scm b/guix/wigust/packages/virtualization.scm
index 9375a5b..c90b975 100644
--- a/guix/wigust/packages/virtualization.scm
+++ b/guix/wigust/packages/virtualization.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2018, 2019, 2020, 2022 Oleg Pykhalov <go.wigust@gmail.com>
+;;; Copyright © 2018, 2019, 2020, 2022, 2023 Oleg Pykhalov <go.wigust@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -114,6 +114,14 @@
                  (("gtk_widget_show_all\\(s->window\\);" original)
                   (string-append original "\n    gtk_widget_hide(s->menu_bar);")))))))))))
 
+(define-public libvirt-with-ovs
+  (package
+    (inherit libvirt)
+    (name "libvirt-with-ovs")
+    (inputs
+     `(("openvswitch" ,openvswitch)
+       ,@(package-inputs libvirt)))))
+
 (define-public virt-manager-fullscreen
   (package
     (inherit virt-manager)