Initial.

A  .guix-authorizations
A  .guix-channel
A  COPYING
A  README
A  whispers/packages/dict.scm
A  whispers/packages/doc.scm
A  whispers/packages/pdf.scm
A  whispers/packages/sh.scm
A  whispers/packages/whispers.scm
A  whispers/services/console.scm
A  whispers/services/dict.scm
A  whispers/services/finance.scm
A  whispers/services/gps.scm
A  whispers/services/proton.scm
A  whispers/services/ssh-agent.scm
A  whispers/services/ssh-tunneler.scm
A  whispers/services/whispers.scm
A  whispers/services/whispers/finance.scm
A  whispers/services/whispers/gps.scm
A  whispers/services/whispers/mail.scm
A  whispers/services/whispers/ssh.scm
A  whispers/services/whispers/vpn.scm
A  whispers/services/whispers/xdg.scm
A  whispers/tests/ssh-tunneler.scm

Signed-off-by: Runciter <runciter@whispers-vpn.org>

5 files changed, 542 insertions, 0 deletions

diff --git a/whispers/packages/dict.scm b/whispers/packages/dict.scm
new file mode 100644
index 0000000..a9da689
--- /dev/null
+++ b/whispers/packages/dict.scm
@@ -0,0 +1,87 @@
+;;; Whispers --- Stealth VPN and ssh tunneler
+;;; Copyright © 2024 Runciter <runciter@whispers-vpn.org>
+;;;
+;;; This file is part of Whispers.
+;;;
+;;; Whispers is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; Whispers is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Whispers.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (whispers packages dict)
+  #:use-module (guix)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses) #:select (gpl2+
+                                          gpl3+
+                                          cc-by-sa3.0))
+  #:use-module (guix git-download)
+  #:use-module (guix git)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages gawk)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages dictd)
+  #:export ())
+
+(define-public cc-cedict
+  (package
+   (name "cc-cedict")
+   (version "0.1")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://git.whispers-vpn.org/cc-cedict.git")
+           (commit "8f4e694ff489b833dd1ee9d46c604ac1bce3edb6")))
+     (sha256
+      (base32 "1d0l6g83n964af81bl96c9hbd6gacbq9a68n5d9wgifihl33z4q7"))))
+   (inputs (list sed
+                 gawk
+                 gzip
+                 dictd))
+   (arguments (list #:tests? #f))
+   (build-system gnu-build-system)
+   (synopsis "CC-CEDICT is a community-maintained free Chinese-English
+ dictionary.")
+   (description "CC-CEDICT is a community-maintained free
+ Chinese-English dictionary. It is a continuation of the CEDICT project
+started by Paul Denisowski in 1997 with the aim to provide a complete
+downloadable Chinese to English dictionary with pronunciation in pinyin
+for the Chinese characters.
+
+CC-CEDICT is licensed under a Creative Commons license CC-BY-SA.
+
+Published by MDBG
+
+License: Creative Commons Attribution-Share Alike 3.0
+
+Referenced works: CEDICT - Copyright © 1997, 1998 Paul Andrew Denisowski
+
+CC-CEDICT can be downloaded from:
+http://www.mdbg.net/chindict/chindict.php?page=cc-cedict
+
+Additions and corrections to the CC-CEDICT source can be sent through:
+http://cc-cedict.org/editor/editor.php
+
+For more information about CC-CEDICT see:
+http://cc-cedict.org/wiki/
+
+This package converts the community maintained text file containing the
+CC-CEDICT dictionary into 5 dictionaries in the DICT Interchange format,
+which can be served to client programs such as 'dico' and 'dicod' by
+servers implementing the DICT protocol (RFC 2229), such as 'dictd' or
+'dicod'.
+
+While the exporter script that this package uses to create the
+dictionaries is licensed under the GPL, the output dictionaries are
+licensed under CC-BY-SA version 3.0.")
+   (home-page "http://cc-cedict.org/")
+   (license (list cc-by-sa3.0 gpl3+))))
diff --git a/whispers/packages/doc.scm b/whispers/packages/doc.scm
new file mode 100644
index 0000000..d03a72a
--- /dev/null
+++ b/whispers/packages/doc.scm
@@ -0,0 +1,80 @@
+;;; Whispers --- Stealth VPN and ssh tunneler
+;;; Copyright © 2024 Runciter <runciter@whispers-vpn.org>
+;;;
+;;; This file is part of Whispers.
+;;;
+;;; Whispers is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; Whispers is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Whispers.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (whispers packages doc)
+  #:use-module (gnu)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages man)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (guix packages)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix git)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:export ())
+
+(define-public ssh-tunneler-doc
+  (package
+   (name "ssh-tunneler-doc")
+   (version "0.1")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://git.whispers-vpn.org/ssh-tunneler-doc.git")
+           (commit "dfc856a49e0c507eb4ec47d917498fed3812f4ba")))
+     (sha256
+      (base32 "1fg2fs2gfii8m7q9vbvww8llsrmgzx0nljsjlbhnrz1d15kcsjnr"))))
+   (native-inputs (list autoconf automake pkg-config texinfo))
+   (inputs (list))
+   (arguments (list #:tests? #f))
+   (build-system gnu-build-system)
+   (synopsis "Documentation for ssh tunneler Guix services.")
+   (description "Documentation for ssh tunneler Guix services. This
+package provides an info manual.")
+   (home-page "https://git.whispers-vpn.org/ssh-tunneler-doc.git")
+   (license (list license:fdl1.3+))))
+
+(define-public whispers-doc
+  (package
+   (name "whispers-doc")
+   (version "0.1")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://git.whispers-vpn.org/whispers-doc.git")
+           (commit "a759ccdd40d47c1d14137ecb5047418d2a3f530b")))
+     (sha256
+      (base32 "0qw95hqjbpl5ndw3z4lpqyb55rfkpf91w1hxm5lff2vgcsqr9pyq"))))
+   (native-inputs (list autoconf automake pkg-config texinfo))
+   (inputs (list))
+   (propagated-inputs (list ssh-tunneler-doc))
+   (arguments (list #:tests? #f))
+   (build-system gnu-build-system)
+   (synopsis "Documentation for whispers Guix services.")
+   (description "Documentation for whispers Guix services. This package
+provides info manuals.")
+   (home-page "https://git.whispers-vpn.org/whispers-doc.git")
+   (license (list license:fdl1.3+))))
diff --git a/whispers/packages/pdf.scm b/whispers/packages/pdf.scm
new file mode 100644
index 0000000..00c6485
--- /dev/null
+++ b/whispers/packages/pdf.scm
@@ -0,0 +1,158 @@
+;;; Whispers --- Stealth VPN and ssh tunneler
+;;; Copyright © 2013, 2015, 2016 Andreas Enge <andreas@enge.fr>
+;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014, 2015, 2016, 2018, 2019, 2021, 2024 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
+;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
+;;; Copyright © 2016 Nikita <nikita@n0.is>
+;;; Copyright © 2016-2020, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016, 2017, 2022 Marius Bakke <marius@gnu.org>
+;;; Copyright © 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016 Julien Lepiller <julien@lepiller.eu>
+;;; Copyright © 2016, 2019 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name>
+;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
+;;; Copyright © 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
+;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
+;;; Copyright © 2019 Ben Sturmfels <ben@sturm.com.au>
+;;; Copyright © 2019,2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
+;;; Copyright © 2020-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
+;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de>
+;;; Copyright © 2020, 2024 Timotej Lazar <timotej.lazar@araneo.si>
+;;; Copyright © 2020, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
+;;; Copyright © 2022 Paul A. Patience <paul@apatience.com>
+;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
+;;; Copyright © 2023 Felix Gruber <felgru@posteo.net>
+;;; Copyright © 2024 dan <i@dan.games>
+;;; Copyright © 2023 Benjamin Slade <slade@lambda-y.net>
+;;;
+;;; Copyright © 2024 Runciter <runciter@whispers-vpn.org>
+;;;
+;;; This file is part of Whispers.
+;;;
+;;; Whispers is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; Whispers is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Whispers.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (whispers packages pdf)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (guix build-system meson)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages pdf)
+  #:use-module (gnu packages ghostscript)
+  #:use-module (gnu packages djvu)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages sphinx)
+  #:use-module (gnu packages javascript)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages ocr)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages backup)
+  #:use-module (gnu packages tex))
+
+(define-public zathura-synctex
+  (package
+   (inherit zathura)
+   (name "zathura-synctex")
+   (arguments
+    (list
+     #:configure-flags
+     #~(list "-Dsynctex=enabled")
+     #:phases
+     #~(modify-phases %standard-phases
+                      (add-before 'check 'start-xserver
+                                  ;; Tests require a running X server.
+                                  (lambda* (#:key inputs #:allow-other-keys)
+                                    (let ((display ":1"))
+                                      (setenv "DISPLAY" display)
+
+                                      ;; On busy machines, tests may take longer than
+                                      ;; the default of four seconds.
+                                      (setenv "CK_DEFAULT_TIMEOUT" "20")
+
+                                      ;; Don't fail due to missing '/etc/machine-id'.
+                                      (setenv "DBUS_FATAL_WARNINGS" "0")
+                                      (zero? (system (string-append
+                                                      (search-input-file inputs "/bin/Xvfb")
+                                                      " " display " &")))))))))
+   (native-inputs
+    (list pkg-config
+          gettext-minimal
+          (list glib "bin")
+
+          ;; For building documentation.
+          python-sphinx
+
+          ;; For building icons.
+          (librsvg-for-system)
+
+          ;; For tests.
+          check
+          xorg-server-for-tests
+
+          ;; For synctex.
+          texlive-bin))))
+
+(define-public zathura-cb-synctex
+  (package
+   (inherit zathura-cb)
+   (name "zathura-cb-synctex")
+   (inputs (list libarchive zathura-synctex))))
+
+(define-public zathura-ps-synctex
+  (package
+   (inherit zathura-ps)
+   (name "zathura-ps-synctex")
+   (inputs (list libspectre zathura-synctex))))
+
+(define-public zathura-djvu-synctex
+  (package
+   (inherit zathura-djvu)
+   (name "zathura-djvu-synctex")
+   (inputs
+    (list djvulibre zathura-synctex))))
+
+(define-public zathura-pdf-mupdf-synctex
+  (package
+   (inherit zathura-pdf-mupdf)
+   (inputs
+    (list gumbo-parser
+          jbig2dec
+          libjpeg-turbo
+          mujs
+          mupdf
+          openjpeg
+          openssl
+          tesseract-ocr
+          zathura-synctex))))
+
+(define-public zathura-pdf-poppler-synctex
+  (package
+   (inherit zathura-pdf-poppler)
+   (name "zathura-pdf-poppler-synctex")
+   (inputs
+    (list poppler zathura-synctex))))
diff --git a/whispers/packages/sh.scm b/whispers/packages/sh.scm
new file mode 100644
index 0000000..7a395ad
--- /dev/null
+++ b/whispers/packages/sh.scm
@@ -0,0 +1,98 @@
+;;; Whispers --- Stealth VPN and ssh tunneler
+;;; Copyright © 2023 Runciter <runciter@whispers-vpn.org>
+;;;
+;;; This file is part of Whispers.
+;;;
+;;; Whispers is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; Whispers is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Whispers.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (whispers packages sh)
+  #:use-module (gnu)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages package-management)
+  #:use-module (whispers packages whispers)
+  #:use-module (guix packages)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix git-download)
+  #:use-module (guix git)
+  #:use-module (guix licenses)
+  #:export ())
+
+(define-public ssh-tunneler-tests
+  (let ((commit "b5bf23ce757739901a970901f7a63df8b993a3cb")
+        (chksum "13z1zlwr7bjqn7ljzff9h7gp72xh4z06qx3h4w60pi7rv890qvnj"))
+    (package
+     (name "ssh-tunneler-tests")
+     (version "0.1")
+     (source
+      (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://git.whispers-vpn.org/ssh-tunneler-tests.git")
+             (commit commit)))
+        (sha256 (base32 chksum))))
+     (build-system gnu-build-system)
+     (home-page "https://git.whispers-vpn.org/ssh-tunneler-tests.git")
+     (synopsis "Test script for the (whispers services ssh-tunneler)
+module.")
+     (description "This package provides the test script of the SSH
+Tunneler Guix services. The script instanciates virtual machines that
+establish persistent ssh connections between themselves.")
+     (license gpl3+))))
+
+(define-public whispers-tests
+  (let ((commit "5dbad66f78dc3829cf1d5717e64450b426c5dd5f")
+        (chksum "1vr691pljkq003a6n571y9hrda12j5bsjasiwibdi6g23q4hrgwx"))
+    (package
+     (name "whispers-tests")
+     (version "0.1")
+     (source
+      (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://git.whispers-vpn.org/whispers-tests.git")
+             (commit commit)))
+        (sha256 (base32 chksum))))
+     (build-system gnu-build-system)
+     (home-page "https://git.whispers-vpn.org/ssh-tunneler-tests.git")
+     (synopsis "Test script for the (whispers services whispers)
+ and (whispers services whispers vpn) modules.")
+     (description "This package provides:
+* A test script instantiating a VM extending a manually configured
+whispers tree, for purposed of testing service status of a bare-bones
+tree of whispers lieutenants.
+* A test script instanciating a VPN network of VMs, for various
+testing puposes.")
+     (license gpl3+))))
+
+(define-public sh-pulse
+  (let ((commit "b37d962d7417c67091a0c55da79dcb27b5de5c2e")
+        (chksum "1yq5lpvz9azap6dp47kcmzf42xypwc3bwsr9cfmjdq01j1pd8gbz"))
+    (package
+     (name "sh-pulse")
+     (version "0.1")
+     (source
+      (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://git.whispers-vpn.org/sh-pulse.git")
+             (commit commit)))
+        (sha256 (base32 chksum))))
+     (build-system gnu-build-system)
+     (home-page "https://git.whispers-vpn.org/sh-pulse.git")
+     (synopsis "Control script for pulseaudio volume and output sink")
+     (description "The vlm script helps the user to easily set keyboard
+shortcuts to control pulseaudio volume, mute and switch pulseaudio
+output.")
+     (license gpl3+))))
diff --git a/whispers/packages/whispers.scm b/whispers/packages/whispers.scm
new file mode 100644
index 0000000..a5435d6
--- /dev/null
+++ b/whispers/packages/whispers.scm
@@ -0,0 +1,119 @@
+;;; Whispers --- Stealth VPN and ssh tunneler
+;;; Copyright © 2023 Runciter <runciter@whispers-vpn.org>
+;;;
+;;; This file is part of Whispers.
+;;;
+;;; Whispers is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; Whispers is distributed in the hope that it will be useful, but
+
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Whispers.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (whispers packages whispers)
+  #:use-module (gnu)
+  #:use-module (gnu packages package-management)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages man)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages guile-xyz)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (guix packages)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system guile)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix git)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:export ())
+
+(define-public whispers
+  (let ((commit "63dc81e2b164514ca855712841209eec7e6ae9d3")
+        (chksum "13p02hdfnmkf5wr2d6acpcfix03crsn68wkvm73cmy0ibndjvczk"))
+    (package
+     (name "whispers")
+     (version "0.1")
+     (source
+      (origin
+        (method git-fetch)
+        (uri (git-reference
+              (url "https://git.whispers-vpn.org/whispers-command.git")
+              (commit commit)))
+        (sha256 (base32 chksum))))
+     (build-system gnu-build-system)
+     (arguments
+      `(#:modules
+        ((ice-9 match)
+         (ice-9 ftw)
+         ,@%default-gnu-imported-modules)
+        #:phases
+        (modify-phases
+         %standard-phases
+         (add-after
+          'install
+          'hall-wrap-binaries
+          (lambda* (#:key inputs outputs #:allow-other-keys)
+            (let* ((compiled-dir
+                    (lambda (out version)
+                      (string-append
+                       out
+                       "/lib/guile/"
+                       version
+                       "/site-ccache")))
+                   (uncompiled-dir
+                    (lambda (out version)
+                      (string-append
+                       out
+                       "/share/guile/site"
+                       (if (string-null? version) "" "/")
+                       version)))
+                   (dep-path
+                    (lambda (env modules path)
+                      (list env
+                            ":"
+                            'prefix
+                            (cons modules
+                                  (map (lambda (input)
+                                         (string-append
+                                          (assoc-ref inputs input)
+                                          path))
+                                       ,''("guile-config"))))))
+                   (out (assoc-ref outputs "out"))
+                   (bin (string-append out "/bin/"))
+                   (site (uncompiled-dir out "")))
+              (match (scandir site)
+                (("." ".." version)
+                 (for-each
+                  (lambda (file)
+                    (wrap-program
+                     (string-append bin file)
+                     (dep-path
+                      "GUILE_LOAD_PATH"
+                      (uncompiled-dir out version)
+                      (uncompiled-dir "" version))
+                     (dep-path
+                      "GUILE_LOAD_COMPILED_PATH"
+                      (compiled-dir out version)
+                      (compiled-dir "" version))))
+                  ,''("whispers"))
+                 #t))))))))
+     (native-inputs
+      (list autoconf automake pkg-config texinfo))
+     (inputs (list guile-3.0))
+     (propagated-inputs (list guile-config))
+     (synopsis
+      "Perform actions of the services of the shepherd daemons of\na whispers tree.")
+     (description
+      "The whispers command is a simple convenience wrapper\n around the herd program. Instead of specifying a file path\nto the listening socket of a running shepherd in the whispers tree, the\nuser simply provides its absolute whispers tree path as an\nargument to the --lieutenant option of this command.")
+     (home-page "https://git.whispers-vpn.org/whispers-command.git")
+     (license license:gpl3+))))