gnu: Add Polish hunspell dictionary.

* gnu/packages/libreoffice.scm (hunspell-dict-pl): New variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Marcin Karpezo 2020-05-29 19:30:12 +02:00 committed by Ludovic Courtès
parent c19293ad09
commit 56caf77e0d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -12,6 +12,7 @@
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2019 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
;;;
;;; This file is part of GNU Guix.
;;;
@ -920,6 +921,56 @@ (define-french-dictionary hunspell-dict-fr-toutes-variantes
"toutesvariantes"
(synopsis "Hunspell dictionary for all variants of French"))
(define-public hunspell-dict-pl
(package
(name "hunspell-dict-pl")
(version "20200327")
(source
(origin
(method url-fetch)
;; Since creators of dictionary host only the latest daily release,
;; we're using version mirrored by Arch Linux, which seems good
;; enough. They're mirroring hunspell-pl releases since 2011.
(uri (string-append "https://sources.archlinux.org/other/community/"
"hunspell-pl/sjp-myspell-pl-"
version ".zip"))
(sha256 (base32
"14mzf8glxkp2775dcqisb1zv6r8ncm3bvzl46q352rwyl2dg1c59"))))
(build-system trivial-build-system)
(native-inputs `(("unzip" ,unzip)))
(arguments
`(#:modules ((guix build utils))
#:builder (begin
(use-modules (guix build utils)
(srfi srfi-26))
(let* ((out (assoc-ref %outputs "out"))
(hunspell (string-append out "/share/hunspell"))
(myspell (string-append out "/share/myspell"))
(doc (string-append out "/share/doc/"
,name))
(unzip (string-append (assoc-ref %build-inputs "unzip")
"/bin/unzip")))
(invoke unzip "-j" "-o" (assoc-ref %build-inputs "source"))
(invoke unzip "-j" "-o" "pl_PL.zip")
(for-each (cut install-file <> hunspell)
(find-files "."
,(string-append "pl_PL"
"\\.(dic|aff)$")))
(mkdir-p myspell)
(symlink hunspell (string-append myspell "/dicts"))
(for-each (cut install-file <> doc)
(find-files "." "\\.(txt|org|md)$"))
#t))))
(synopsis "Hunspell dictionary for Polish")
(description
"This package provides a dictionary for the Hunspell spell-checking
library.")
(home-page "https://sjp.pl/slownik/ort/")
(license
(list license:gpl2 license:mpl1.1 license:cc-by4.0 license:lgpl2.1 license:asl2.0))))
(define-public hyphen
(package
(name "hyphen")