diff options
Diffstat (limited to 'gnu/packages/dictionaries.scm')
-rw-r--r-- | gnu/packages/dictionaries.scm | 67 |
1 files changed, 62 insertions, 5 deletions
diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm index 78bb1811f9..b49e287313 100644 --- a/gnu/packages/dictionaries.scm +++ b/gnu/packages/dictionaries.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> +;;; Copyright © 2020 Lu hux <luhux@outlook.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,6 +33,7 @@ #:use-module (guix build-system python) #:use-module (guix build-system trivial) #:use-module (guix build-system copy) + #:use-module (guix build-system cmake) #:use-module (gnu packages) #:use-module (gnu packages autotools) #:use-module (gnu packages base) @@ -39,7 +41,10 @@ #:use-module (gnu packages emacs) #:use-module (gnu packages flex) #:use-module (gnu packages fribidi) + #:use-module (gnu packages gettext) + #:use-module (gnu packages glib) #:use-module (gnu packages linux) + #:use-module (gnu packages ncurses) #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) @@ -211,14 +216,14 @@ It comes with a German-English dictionary with approximately 270,000 entries.") (define-public grammalecte (package (name "grammalecte") - (version "1.12.2") + (version "2.0.0") (source (origin (method url-fetch/zipbomb) (uri (string-append "https://grammalecte.net/grammalecte/zip/" "Grammalecte-fr-v" version ".zip")) (sha256 - (base32 "1qny2l5dr08pfj2dnzmvm5gmwqz8m879ryxfaw4k8dhaacrrrf62")))) + (base32 "1mcpqglndcafiz9bnz69vjxncl5k98yzcy8pr8rmn738hgpzb53v")))) (build-system python-build-system) (home-page "https://grammalecte.net") (synopsis "French spelling and grammar checker") @@ -304,15 +309,15 @@ translation engines from your terminal.") (define-public lttoolbox (package (name "lttoolbox") - (version "3.5.1") + (version "3.5.3") (source (origin (method url-fetch) (uri (string-append "https://github.com/apertium/lttoolbox/releases/download/v" - version "/lttoolbox-" version ".tar.gz")) + version "/lttoolbox-" version ".tar.bz2")) (sha256 - (base32 "14yyrkzyqlsrii3v3ggg4dyvwlrcqcqc0aprphz5781a44jsrcwz")))) + (base32 "109l91ailish1a3vya5zmfg3kb67cwyzl36ndnh8f59chsbm6n2f")))) (build-system gnu-build-system) (arguments `(#:phases @@ -392,3 +397,55 @@ second on ordinary desktop computers) and, in spite of the errors, reasonably intelligible and easily correctable.") (license (list license:gpl2 ; main license license:expat)))) ; utf8/* + +(define-public sdcv + (package + (name "sdcv") + (version "0.5.3") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Dushistov/sdcv/") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "144qpl9b8r2php0zhi9b7vg6flpvdgjy6yfaipydwwhxi4wy9600")))) + (build-system cmake-build-system) + (arguments + `(#:configure-flags '("-DBUILD_TESTS=YES") + #:phases + (modify-phases %standard-phases + (add-after 'build 'build-lang + (lambda _ + (invoke "make" "lang"))) + (add-before 'check 'pre-check + (lambda _ + (setenv "HOME" (getcwd)) + #t)) + (add-after 'unpack 'remove-jq-requirement + (lambda _ + ;; We don't want to bring in jq for one test. + (substitute* "tests/t_json" + (("jq") "echo")) + #t))))) + (native-inputs + `(("gettext" ,gettext-minimal) + ("pkg-config" ,pkg-config))) + (inputs + `(("glib" ,glib) + ("ncurses" ,ncurses) + ("readline" ,readline) + ("zlib" ,zlib))) + ;; If you use Guix to package and install dictionary data, + ;; you need this variable to load them. + (native-search-paths + (list (search-path-specification + (variable "STARDICT_DATA_DIR") + (files '("share/stardict/dic"))))) + (home-page "https://dushistov.github.io/sdcv/") + (synopsis "Console version of StarDict") + (description "sdcv is simple text-based utility for work with dictionaries +in StarDict's format.") + (license license:gpl2+))) |