;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014, 2015, 2017 Ludovic Courtès ;;; Copyright © 2015, 2016 Alex Kost ;;; Copyright © 2016 John Darrington ;;; Copyright © 2016 Efraim Flashner ;;; Copyright © 2016 Christopher Andersson ;;; Copyright © 2016 Theodoros Foradis ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix 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. ;;; ;;; GNU Guix 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 GNU Guix. If not, see . (define-module (gnu packages aspell) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu) #:use-module (guix licenses) #:use-module (gnu packages) #:use-module (gnu packages base) #:use-module (gnu packages compression) #:use-module (gnu packages perl)) (define-public aspell (package (name "aspell") (version "0.60.6.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/aspell/aspell-" version ".tar.gz")) (sha256 (base32 "1qgn5psfyhbrnap275xjfrzppf5a83fb67gpql0kfqv37al869gm")) (patches (search-patches "aspell-default-dict-dir.patch")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'install 'wrap-aspell (lambda* (#:key outputs #:allow-other-keys) (let ((bin/aspell (string-append (assoc-ref outputs "out") "/bin/aspell"))) (wrap-program bin/aspell '("ASPELL_CONF" "" = ("${ASPELL_CONF:-\"dict-dir ${GUIX_PROFILE:-$HOME/.guix-profile}/lib/aspell\"}"))))))))) (inputs `(("perl" ,perl))) (native-search-paths ;; This is a Guix-specific environment variable that takes a single ;; entry, not an actual search path. (list (search-path-specification (variable "ASPELL_DICT_DIR") (separator #f) (files '("lib/aspell"))))) (home-page "http://aspell.net/") (synopsis "Spell checker") (description "Aspell is a spell-checker which can be used either as a library or as a standalone program. Notable features of Aspell include its full support of documents written in the UTF-8 encoding and its ability to use multiple dictionaries, including personal ones.") (license lgpl2.1+))) ;;; ;;; Dictionaries. ;;; ;;; Use 'export ASPELL_CONF="dict-dir $HOME/.guix-profile/lib/aspell"' to use ;;; them, or set the Guix-specific 'ASPELL_DICT_DIR', or just do nothing (as ;;; long as 'HOME' is set, that's fine!). ;;; (define* (aspell-dictionary dict-name full-name #:key version sha256 (prefix "aspell6-")) (package (name (string-append "aspell-dict-" dict-name)) (version version) (source (origin (method url-fetch) (uri (string-append "mirror://gnu/aspell/dict/" dict-name "/" prefix dict-name "-" version ".tar.bz2")) (sha256 sha256))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (zero? (system* "./configure")))))) #:make-flags (let ((out (assoc-ref %outputs "out"))) (list (string-append "dictdir=" out "/lib/aspell") (string-append "datadir=" out "/lib/aspell"))) #:tests? #f)) (native-inputs `(("aspell" ,aspell) ("which" ,which))) (synopsis (string-append full-name " dictionary for GNU Aspell")) ; XXX: i18n (description "This package provides a dictionary for the GNU Aspell spell checker.") (license gpl2+) (home-page "http://aspell.net/"))) (define-public aspell-dict-de (aspell-dictionary "de" "German" #:version "20030222-1" #:sha256 (base32 "01p92qj66cqb346gk7hjfynaap5sbcn85xz07kjfdq623ghr8v5s"))) (define-public aspell-dict-en (aspell-dictionary "en" "English" #:version "2017.01.22-0" #:sha256 (base32 "1qamzpw1fsnn5n9jpsnnnzqj1a0m0xvsikmkdp5a6pmb7sp3ziwk"))) (define-public aspell-dict-eo (aspell-dictionary "eo" "Esperanto" #:version "2.1.20000225a-2" #:sha256 (base32 "09vf0mbiicbmyb4bwb7v7lgpabnylg0wy7m3hlhl5rjdda6x3lj1"))) (define-public aspell-dict-es (aspell-dictionary "es" "Spanish" #:version "1.11-2" #:sha256 (base32 "1k5g328ac1hdpp6fsg57d8md6i0aqcwlszp3gbmp5706wyhpydmd"))) (define-public aspell-dict-fr (aspell-dictionary "fr" "French" #:version "0.50-3" #:prefix "aspell-" #:sha256 (base32 "14ffy9mn5jqqpp437kannc3559bfdrpk7r36ljkzjalxa53i0hpr"))) (define-public aspell-dict-ru (aspell-dictionary "ru" "Russian" #:version "0.99f7-1" #:sha256 (base32 "0ip6nq43hcr7vvzbv4lwwmlwgfa60hrhsldh9xy3zg2prv6bcaaw"))) (define-public aspell-dict-it (aspell-dictionary "it" "Italian" #:version "2.2_20050523-0" #:sha256 (base32 "1gdf7bc1a0kmxsmphdqq8pl01h667mjsj6hihy6kqy14k5qdq69v"))) (define-public aspell-dict-nl (aspell-dictionary "nl" "Dutch" #:version "0.50-2" #:prefix "aspell-" #:sha256 (base32 "0ffb87yjsh211hllpc4b9khqqrblial4pzi1h9r3v465z1yhn3j4"))) (define-public aspell-dict-he (aspell-dictionary "he" "Hebrew" #:version "1.0-0" #:sha256 (base32 "13bhbghx5b8g0119g3wxd4n8mlf707y41vlf59irxjj0kynankfn"))) (define-public aspell-dict-sv (aspell-dictionary "sv" "Swedish" #:version "0.51-0" #:prefix "aspell-" #:sha256 (base32 "02jwkjhr32kvyibnyzgx3smbnm576jwdzg3avdf6zxwckhy5fw4v"))) (define-public aspell-dict-el (aspell-dictionary "el" "Greek" #:version "0.08-0" #:prefix "aspell6-" #:sha256 (base32 "1ljcc30zg2v2h3w5h5jr5im41mw8jbsgvvhdd2cii2yzi8d0zxja"))) (define-public aspell-dict-grc (aspell-dictionary "grc" "Ancient Greek" #:version "0.02-0" #:sha256 (base32 "1zxr8958v37v260fkqd4pg37ns5h5kyqm54hn1hg70wq5cz8h512"))) (define-public aspell-dict-pt-br (aspell-dictionary "pt-br" "Brazilian Portuguese" #:version "20090702-0" #:prefix "aspell6-" #:sha256 (base32 "1y09lx9zf2rnp55r16b2vgj953l3538z1vaqgflg9mdvm555bz3p"))) ;;; ;;; Hunspell packages made from the Aspell word lists. ;;; (define* (aspell-word-list language synopsis #:optional (nick (string-map (lambda (chr) (if (char=? #\_ chr) #\- chr)) (string-downcase language)))) (package (name (string-append "hunspell-dict-" nick)) (version "2017.08.24") (source (origin (method url-fetch) (uri (string-append "http://downloads.sourceforge.net/wordlist/scowl-" version ".tar.gz")) (sha256 (base32 "1kdhydzg5z5x20ad2j1x5hbdhvy08ljkfdi2v3gbyvghbagxm15s")))) (native-inputs `(("tar" ,tar) ("gzip" ,gzip) ("perl" ,perl) ("aspell" ,aspell))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'configure) (delete 'check) (replace 'build (lambda _ (substitute* "speller/make-hunspell-dict" (("zip -9 .*$") "return\n")) (mkdir "speller/hunspell") ;; XXX: This actually builds all the dictionary variants. (zero? (system* "make" "-C" "speller" "hunspell")))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (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))) (mkdir-p myspell) (install-file ,(string-append "speller/" language ".aff") hunspell) (symlink hunspell (string-append myspell "/dicts")) (for-each (lambda (file) (install-file file doc)) (find-files "." "^(Copyright|.*\\.(txt|org|md))$")) #t)))))) (synopsis synopsis) (description "This package provides a dictionary for the Hunspell spell-checking library.") (home-page "http://wordlist.aspell.net/") (license (non-copyleft "file://Copyright" "Word lists come from several sources, all under permissive licensing terms. See the 'Copyright' file.")))) (define-syntax define-word-list-dictionary (syntax-rules (synopsis) ((_ name language (synopsis text)) (define-public name (aspell-word-list language text))) ((_ name language nick (synopsis text)) (define-public name (aspell-word-list language text nick))))) (define-word-list-dictionary hunspell-dict-en "en" (synopsis "Hunspell dictionary for English")) (define-word-list-dictionary hunspell-dict-en-au "en_AU" (synopsis "Hunspell dictionary for Australian English")) (define-word-list-dictionary hunspell-dict-en-ca "en_CA" (synopsis "Hunspell dictionary for Canadian English")) (define-word-list-dictionary hunspell-dict-en-gb "en_GB-ise" "en-gb" (synopsis "Hunspell dictionary for British English, with -ise endings")) (define-word-list-dictionary hunspell-dict-en-gb-ize "en_GB-ize" (synopsis "Hunspell dictionary for British English, with -ize endings")) (define-word-list-dictionary hunspell-dict-en-us "en_US" (synopsis "Hunspell dictionary for United States English"))