;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Christopher Andersson <christopher@8bits.nu> ;;; Copyright © 2016 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2016, 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; 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 <http://www.gnu.org/licenses/>. (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 (guix utils) #: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-before 'build 'set-filter-path (lambda* (#:key outputs #:allow-other-keys) ;; Change the default value of 'filter-path' so that filters such ;; as 'tex-filter.so' can be found. By default none of the ;; filters would be found. (let* ((out (assoc-ref outputs "out")) (libdir (string-append out "/lib/aspell-" ,(version-major+minor version)))) (substitute* "common/config.cpp" (("\"filter-path(.*)DICT_DIR" _ middle) (string-append "\"filter-path" middle "\"" libdir "\""))) #t))) (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\"}"))) #t)))))) (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"))) (invoke "./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-ca (aspell-dictionary "ca" "Catalan" #:version "2.1.5-1" #:sha256 (base32 "1fb5y5kgvk25nlsfvc8cai978hg66x3pbp9py56pldc7vxzf9npb"))) (define-public aspell-dict-de (aspell-dictionary "de" "German" #:version "20030222-1" #:sha256 (base32 "01p92qj66cqb346gk7hjfynaap5sbcn85xz07kjfdq623ghr8v5s"))) (define-public aspell-dict-el (aspell-dictionary "el" "Greek" #:version "0.08-0" #:prefix "aspell6-" #:sha256 (base32 "1ljcc30zg2v2h3w5h5jr5im41mw8jbsgvvhdd2cii2yzi8d0zxja"))) (define-public aspell-dict-en (aspell-dictionary "en" "English" #:version "2018.04.16-0" #:sha256 (base32 "0bxxdzkk9g27plg22y9qzsx9cfjw3aa29w5bmzs561qc9gkp247i"))) (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-grc (aspell-dictionary "grc" "Ancient Greek" #:version "0.02-0" #:sha256 (base32 "1zxr8958v37v260fkqd4pg37ns5h5kyqm54hn1hg70wq5cz8h512"))) (define-public aspell-dict-he (aspell-dictionary "he" "Hebrew" #:version "1.0-0" #:sha256 (base32 "13bhbghx5b8g0119g3wxd4n8mlf707y41vlf59irxjj0kynankfn"))) (define-public aspell-dict-it (let ((version "2.4-20070901-0") (sha256 (base32 "0d6ypii3jblprpibazb6ypady536jz62rwxlss1x1raq07rhvvqn"))) (package (inherit (aspell-dictionary "it" "Italian" #:version version #:sha256 sha256)) ;; The version hosted at <https://ftp.gnu.org/gnu/aspell/dict> is even ;; more out of date. (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/linguistico/" "Dizionario%20italiano%20per%20Aspell/" version "/" "aspell6-it-" version ".tar.bz2")) (sha256 sha256))) (home-page "http://linguistico.sourceforge.net/pages/dizionario_italiano.html")))) (define-public aspell-dict-nl (aspell-dictionary "nl" "Dutch" #:version "0.50-2" #:prefix "aspell-" #:sha256 (base32 "0ffb87yjsh211hllpc4b9khqqrblial4pzi1h9r3v465z1yhn3j4"))) (define-public aspell-dict-pt-br (aspell-dictionary "pt-br" "Brazilian Portuguese" #:version "20090702-0" #:prefix "aspell6-" #:sha256 (base32 "1y09lx9zf2rnp55r16b2vgj953l3538z1vaqgflg9mdvm555bz3p"))) (define-public aspell-dict-ru (aspell-dictionary "ru" "Russian" #:version "0.99f7-1" #:sha256 (base32 "0ip6nq43hcr7vvzbv4lwwmlwgfa60hrhsldh9xy3zg2prv6bcaaw"))) (define-public aspell-dict-sv (aspell-dictionary "sv" "Swedish" #:version "0.51-0" #:prefix "aspell-" #:sha256 (base32 "02jwkjhr32kvyibnyzgx3smbnm576jwdzg3avdf6zxwckhy5fw4v"))) ;;; ;;; 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 "2018.04.16") (source (origin (method url-fetch) (uri (string-append "http://downloads.sourceforge.net/wordlist/scowl-" version ".tar.gz")) (sha256 (base32 "11lkrnhwrf5mvrrq45k4mads3n9aswgac8dc25ba61c75alxb5rs")))) (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. (invoke "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)) (dot-dic ,(string-append "speller/" language ".dic"))) (mkdir-p myspell) ;; Usually there's only a 'LANGUAGE.dic' file, but for the "en" ;; dictionary, there no 'en.dic'. Instead, there's a set of ;; 'en*.dic' files, hence the 'find-files' call below. (if (file-exists? dot-dic) (install-file dot-dic hunspell) (for-each (lambda (dic) (install-file dic hunspell)) (find-files "speller" ,(string-append language ".*\\.dic$")))) (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"))