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

1 files changed, 260 insertions, 0 deletions

diff --git a/whispers/packages/dict.scm b/whispers/packages/dict.scm
new file mode 100644
index 0000000..f80f912
--- /dev/null
+++ b/whispers/packages/dict.scm
@@ -0,0 +1,260 @@
+;;; 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 bison)
+  #:use-module (gnu packages flex)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages speech)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages xml)
+  #:export ())
+
+(define-public libmaa-1.3.2
+  (package
+   (name "libmaa")
+   (version "1.3.2")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "mirror://sourceforge/dict/libmaa/"
+                                "libmaa-"
+                                version
+                                "/libmaa-"
+                                version
+                                ".tar.gz"))
+            (sha256
+             (base32
+              "1idi4c30pi79g5qfl7rr9s17krbjbg93bi8f2qrbsdlh78ga19ar"))))
+   (inputs (list libtool))
+   (arguments
+    (list #:make-flags
+          #~'("CFLAGS=-DHAVE_CONFIG_H  -Wall -Wno-error -g -O2 $(VERCFLAGS) -I. -I${srcdir}")
+          #:test-target "test"))
+   (build-system gnu-build-system)
+   (synopsis "When Khepera rose up out of the watery abyss of Nu, he
+ created Maa as a foundation upon which to create everything else")
+   (description "The libmaa library provides many low-level
+data structures which are helpful for writing compilers, including hash
+tables, sets, lists, debugging support, and memory management.  Although
+libmaa was designed and implemented as a foundation for the Khepara
+transformation system, the data structures are generally applicable to a
+wide range of programming problems.
+
+  The memory management routines are especially helpful for improving
+the performance of memory-intensive applications.")
+   (home-page "https://sourceforge.net/projects/dict/")
+   (license gpl2+)))
+
+(define-public dictd-1.13.1
+  (package
+   (name "dictd")
+   (version "1.13.1")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "mirror://sourceforge/dict/dictd/"
+                                "dictd-"
+                                version
+                                "/dictd-"
+                                version
+                                ".tar.gz"))
+            (sha256
+             (base32
+              "06racmv25ihwgwf67fgj2703ik0m5i2cjzcxasa88kc92rysdwg4"))))
+   (inputs (list libmaa-1.3.2 zlib libtool bison flex))
+   (arguments
+    (list #:test-target "test"))
+   (build-system gnu-build-system)
+   (synopsis "@command{dict}, @command{dictd} and @command{dictfmt} programs")
+   (description "The DICT Interchange Format (DICF) is a human-readable
+ format for the interchange of dictionary databases for the use with
+DICT protocol client/server software.
+
+This package provides a client @command{dict} and a server program
+@command{dictd} for the DICT protocol, as well as a utility
+@command{dictfmt} to convert various dictionary formats into
+dictionaries that can be served by @command{dictd} or @command{dicos}")
+   (home-page "https://sourceforge.net/projects/dict/")
+   (license gpl2+)))
+
+(define-public freedict-tools-0.6.0
+  (package
+   (name "freedict-tools")
+   (version "0.6.0")
+   (source
+    (origin
+      (method git-fetch)
+      (uri (git-reference
+            (url "https://github.com/freedict/tools")
+            (commit "3596640e6e0582cc5fb76a342e5d8e7413aa4b34")))
+      (sha256
+       (base32 "1raayynvn1j8x0ck8pnbbljl6zxnsyzzil7y54xz03dpj7k9w7mk"))))
+   (inputs (list espeak-ng
+                 python perl
+                 gzip
+                 tar
+                 libxslt
+                 dictd-1.13.1
+                 perl-libxml))
+   (arguments
+    (list #:tests? #f
+          #:phases
+          #~(modify-phases
+             %standard-phases
+             (delete 'configure)
+             (add-before 'build 'set-prefix-in-makefile
+                         (lambda* (#:key inputs #:allow-other-keys)
+                           (substitute*
+                            "Makefile"
+                            (("PREFIX \\?=.*")
+                             (string-append "PREFIX = "
+                                            #$output
+                                            "\n")))
+                           (substitute*
+                            "mk/dicts.mk"
+                            (("available_platforms := src dictd slob")
+                             "available_platforms := dictd")))))))
+   (build-system gnu-build-system)
+   (synopsis "The FreeDict tools are used to import, export (build) and
+ manage FreeDict dictionaries")
+   (description "FreeDict is a project that offers over 140 free
+ dictionaries in about 45 languages, with the right to study, change and
+ modify them. You can use them offline on your computer or mobile phone
+ and export them to any format and application.
+
+In order to limit store size and build complexity, only the build
+targets that build dictionaries in dictd format are retained when this
+Guix package is installed.")
+   (home-page "https://freedict.org")
+   (license gpl2+)))
+
+(define-public freedict-dictionaries
+  (package
+   (name "freedict-dictionaries")
+   (version "914b5f7")
+   (source
+    (origin
+      (method git-fetch)
+      (uri (git-reference
+            (url "https://github.com/freedict/fd-dictionaries")
+            (commit "914b5f754b695e9422bf951837b0682a077e244e")))
+      (sha256
+       (base32 "0a8k5rq94rl1nmz0354sx2gmyqica0yjavirh5v5wdybkfq8nv83"))))
+   (inputs (list espeak-ng
+                 python perl
+                 gzip
+                 tar
+                 libxslt
+                 dictd-1.13.1
+                 perl-libxml
+                 freedict-tools-0.6.0))
+   (arguments
+    (list #:tests? #f
+          #:make-flags
+          #~(list (string-append "PREFIX="
+                                 #$output))
+          #:phases
+          #~(modify-phases
+             %standard-phases
+             (delete 'configure)
+             (add-before 'build 'set-tools-prefix-in-makefile
+                         (lambda* (#:key inputs #:allow-other-keys)
+                           (substitute*
+                            "Makefile"
+                            (("FREEDICT_TOOLS \\?= ../tools")
+                             (string-append "export FREEDICT_TOOLS = "
+                                            #$(file-append
+                                               freedict-tools-0.6.0
+                                               "/share/freedict")))))))))
+   (build-system gnu-build-system)
+   (synopsis "Multilingual dictionaries of the Freedict project,
+ compiled to the dictd format.")
+   (description "FreeDict is a project that offers over 140 free
+ dictionaries in about 45 languages, with the right to study, change and
+ modify them. You can use them offline on your computer or mobile phone
+ and export them to any format and application.
+
+This Guix package only installs the output dictionnaires in dictd
+format.")
+   (home-page "https://freedict.org")
+   (license gpl2+)))
+
+(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 "1bb276d2340eff428ff397dbd493646d880388c4")))
+     (sha256
+      (base32 "1d0l6g83n964af81bl96c9hbd6gacbq9a68n5d9wgifihl33z4q7"))))
+   (inputs (list sed
+                 gawk
+                 gzip
+                 dictd-1.13.1))
+   (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+))))