guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 74c89948717b89bfd47135d43af258abf360c2a6
Author: Patrick Norton <[email protected]>
AuthorDate: Wed Nov 12 20:57:27 2025 -0500
gnu: Add dict-jargon.
* gnu/packages/dictionaries.scm (dict-jargon): New variable.
Closes: guix/guix#4206
Change-Id: Ie470122da0b3959caa4fef5788590125becfa8ba
Signed-off-by: Steve George <[email protected]>
---
gnu/packages/dictionaries.scm | 44 +++++++++++++++++++++++++++++++++++++++++++
1 file changed, 44 insertions(+)
diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm
index e868f3ab55..ba6738501c 100644
--- a/gnu/packages/dictionaries.scm
+++ b/gnu/packages/dictionaries.scm
@@ -841,6 +841,50 @@ Guix package is installed.")
Pronouncing Dictionary data files.")
(license license:gpl3+)))
+(define-public dict-jargon
+ (package
+ (name "dict-jargon")
+ (version "4.4.7")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "http://www.catb.org/~esr/jargon/oldversions/jarg";
+ (string-delete #\. version) ".txt"))
+ (sha256
+ (base32 "098319mp4mjagx9bvr94jns16qcdh82xiyw7ipqx1blkn77w0xjm"))))
+ (build-system copy-build-system)
+ (native-inputs (list dictd libfaketime))
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (replace 'unpack
+ (lambda* (#:key source #:allow-other-keys)
+ (with-input-from-file source
+ (lambda _
+ (invoke "faketime"
+ "1970-01-01 00:00:00"
+ "dictfmt"
+ "-j"
+ "-s"
+ (string-append "The Jargon File (version "
+ #$(package-version this-package) ")")
+ "jargon")))
+ ;; dictzip includes the compressed file's mtime as part of the
+ ;; compressed file (also see
freedict-tools-fix-determinism.patch)
+ (set-file-time "jargon.dict"
+ (stat source))
+ (invoke "dictzip" "jargon.dict"))))
+ #:install-plan ''(("./jargon.dict.dz" "share/jargon/")
+ ("./jargon.index" "share/jargon/"))))
+ (home-page "http://www.catb.org/jargon/";)
+ (synopsis "Compendium of hacker slang")
+ (description
+ "The Jargon File is a comprehensive compendium of hacker slang,
originating in
+the early days of computing history. This package puts the Jargon File in a
+format compatible with dicod and similar programs.")
+ (license license:unlicense)))
+
(define-public goldendict-ng
(let ((commit "2cfc27361d061103a164705e7f85dbdf6cd6056f")
(revision "0"))
