queue.scm: Add hunspell UTF-8 dictionaries

1 files changed, 47 insertions, 0 deletions

diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm
index 193f430..931cd1d 100644
--- a/src/org/euandre/queue.scm
+++ b/src/org/euandre/queue.scm
@@ -353,6 +353,48 @@ definite Sendmail-ish flavor, but the inside is completely different.")
 
 
 
+(define-public (hunspell-dictionary-utf8 dict-name)
+  (package
+    (name (string-append "hunspell-dict-" dict-name "-utf8"))
+    (version "630b34e6f8f3cbe7aa7b27b6d8ab118e27252fd1")
+    (source
+      (origin
+        (method git-fetch)
+        (uri
+          (git-reference
+            (url "https://github.com/wooorm/dictionaries")
+            (commit version)))
+        (file-name
+          (git-file-name "hunspell-dictionary-utf8" version))
+        (sha256
+          (base32 "1iknwzh5h04m067ddw9hlzc1qqj4mr9mdkcfapsnay304laaiyn5"))))
+    (build-system trivial-build-system)
+    (arguments
+      `(#:modules ((guix build utils))
+        #:builder
+        (begin
+          (use-modules (guix build utils))
+          (let ((source-prefix (string-append (assoc-ref %build-inputs "source")
+                                              "/dictionaries/"
+                                              ,dict-name
+                                              "/index"))
+                (install-prefix (string-append %output "/share/hunspell/")))
+            (mkdir-p install-prefix)
+            (copy-file (string-append source-prefix ".aff")
+                       (string-append install-prefix ,dict-name ".aff"))
+            (copy-file (string-append source-prefix ".dic")
+                       (string-append install-prefix ,dict-name ".dic"))))))
+    (synopsis    (string-append "Hunspell " dict-name " dictionary in UTF-8"))
+    (description (string-append "Hunspell " dict-name " dictionary in UTF-8"))
+    (license license:expat)
+    (home-page "https://github.com/wooorm/dictionaries")))
+
+(define-public hunspell-dict-en-utf8 (hunspell-dictionary-utf8 "en"))
+(define-public hunspell-dict-pt-utf8 (hunspell-dictionary-utf8 "pt"))
+(define-public hunspell-dict-fr-utf8 (hunspell-dictionary-utf8 "fr"))
+(define-public hunspell-dict-eo-utf8 (hunspell-dictionary-utf8 "eo"))
+(define-public hunspell-dict-es-utf8 (hunspell-dictionary-utf8 "es"))
+
 (define-public python-pytest-tornado5
   (package
     (name "python-pytest-tornado5")
@@ -1634,6 +1676,11 @@ connections correctly.")))
 
 
 (list
+ hunspell-dict-en-utf8
+ hunspell-dict-pt-utf8
+ hunspell-dict-fr-utf8
+ hunspell-dict-eo-utf8
+ hunspell-dict-es-utf8
  mailutils-sendmail
  rottlog-mailutils-sendmail
  postfix