[jackhill/guix/guix.git] / gnu / packages / dictionaries.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;;
;;; 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 dictionaries)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages base)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages tcl))


(define-public vera
  (package
    (name "vera")
    (version "1.23")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/vera/vera-" version
                                  ".tar.gz"))
              (sha256
               (base32
                "1az0v563jja8xb4896jyr8yv7jd9zacqyfkjd7psb73v7clg1mzz"))))
    (build-system trivial-build-system)
    (arguments
     `(#:builder (begin
                   (use-modules (guix build utils))

                   (let* ((out    (assoc-ref %outputs "out"))
                          (info   (string-append out "/share/info"))
                          (html   (string-append out "/share/html"))
                          (source (assoc-ref %build-inputs "source"))
                          (tar    (assoc-ref %build-inputs "tar"))
                          (gz     (assoc-ref %build-inputs "gzip"))
                          (texi   (assoc-ref %build-inputs "texinfo")))
                     (setenv "PATH" (string-append gz "/bin"))
                     (system* (string-append tar "/bin/tar") "xvf" source)

                     (chdir (string-append "vera-" ,version))
                     (mkdir-p info)
                     (mkdir-p html)

                     ;; XXX: Use '--force' because the document is unhappy
                     ;; with Texinfo 5 (yes, documents can be unhappy.)
                     (and (zero?
                           (system* (string-append texi "/bin/makeinfo")
                                    "vera.texi" "--force" "-o"
                                    (string-append info "/vera.info")))
                          (zero?
                           (system* (string-append texi "/bin/makeinfo")
                                    "vera.texi" "--force" "--html" "-o"
                                    (string-append html "/vera.html"))))))
      #:modules ((guix build utils))))
    (native-inputs `(("texinfo" ,texinfo)
                     ("tar" ,tar)
                     ("gzip" ,gzip)))
    (home-page "http://savannah.gnu.org/projects/vera/")
    (synopsis "List of acronyms")
    (description
     "V.E.R.A. (Virtual Entity of Relevant Acronyms) is a list of computing
acronyms distributed as an info document.")
    (license fdl1.3+)))

(define-public gcide
  (package
    (name "gcide")
    (version "0.51")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "mirror://gnu/gcide/gcide-" version ".tar.xz"))
              (sha256
               (base32
                "1wm0s51ygc6480dq8gwahzr35ls8jgpf34yiwl5yqcaa0i19fdv7"))))
    (build-system trivial-build-system)
    (arguments
     '(#:builder (begin
                   (use-modules (guix build utils))
                   (let* ((src     (assoc-ref %build-inputs "source"))
                          (tar     (assoc-ref %build-inputs "tar"))
                          (xz      (assoc-ref %build-inputs "xz"))
                          (out     (assoc-ref %outputs "out"))
                          (datadir (string-append out "/share/gcide")))
                     (set-path-environment-variable "PATH" '("bin")
                                                    (list tar xz))
                     (mkdir-p datadir)
                     (zero? (system* "tar" "-C" datadir
                                     "--strip-components=1"
                                     "-xvf" src))))
       #:modules ((guix build utils))))
    (native-inputs
     `(("tar" ,tar)
       ("xz" ,xz)))
    (synopsis "GNU Collaborative International Dictionary of English")
    (description
     "GCIDE is a free dictionary based on a combination of sources.  It can
be used via the GNU Dico program or accessed online at
http://gcide.gnu.org.ua/")
    (home-page "http://gcide.gnu.org.ua/")
    (license gpl3+)))

(define-public diction
  ;; Not quite a dictionary, not quite a spell checker either…
  (package
    (name "diction")
    (version "1.11")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/diction/diction-"
                                  version ".tar.gz"))
              (sha256
               (base32
                "1xi4l1x1vvzmzmbhpx0ghmfnwwrhabjwizrpyylmy3fzinzz3him"))))
    (build-system gnu-build-system)
    (synopsis "Identifies wordy and commonly misused phrases")
    (description
     "A package providing two classic Unix commands, style and diction.
Diction is used to identify wordy and commonly misused phrases in a
body of text.  Style instead analyzes surface aspects of a written
work, such as sentence length and other readability measures.")
    (home-page "https://www.gnu.org/software/diction/")
    (license gpl3+)))

(define-public ding
  (package
    (name "ding")
    (version "1.8")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://ftp.tu-chemnitz.de/pub/Local/urz/" name
                                  "/" name "-" version ".tar.gz"))
              (sha256
               (base32
                "00z97ndwmzsgig9q6y98y8nbxy76pyi9qyj5qfpbbck24gakpz5l"))))
    (build-system gnu-build-system)
    (inputs `(("tk" ,tk)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete 'configure)
         (delete 'build)
         (delete 'check)
         (replace
             'install
           (lambda _
             (let ((bindir (string-append
                            (assoc-ref %outputs "out") "/bin"))
                   (wish (string-append
                          (assoc-ref %build-inputs "tk")
                          "/bin/wish8.6"))
                   (sharedir (string-append
                              (assoc-ref %outputs "out")
                              "/share/applications"))
                   (libdir (string-append
                            (assoc-ref %outputs "out") "/lib")))
               (mkdir-p bindir)
               (mkdir-p libdir)
               (mkdir-p sharedir)

               (substitute* "ding.desktop"
                 (("Exec=/usr/bin/ding")
                  (string-append "Exec=" bindir "/ding")))
               (with-fluids ((%default-port-encoding "ISO-8859-1"))
                 (substitute* "ding" (("exec wish") (string-append "exec " wish))))
               (substitute* "install.sh"
                 (("/bin/cp") "cp")
                 (("/bin/mv") "mv")
                 (("NEEDPROG=\"wish\"")
                  (string-append "NEEDPROG=\"" wish "\""))
                 (("DEFBINDIR=\"/usr/local/bin\"")
                  (string-append "DEFBINDIR=\"" bindir "\""))
                 (("DEFLIBDIR=\"/usr/local/lib\"")
                  (string-append "DEFLIBDIR=\"" libdir "\"")))
               (install-file "ding.desktop" sharedir)
               (install-file "ding.png" sharedir)
               (zero?
                (system* "./install.sh"))))))))
    (synopsis "Dictionary lookup program with a German-English dictionary")
    (description "Ding is a dictionary lookup program for the X window system.
It comes with a German-English dictionary with approximately 270,000 entries.")
    (home-page  "http://www-user.tu-chemnitz.de/~fri/ding/")
    (license gpl2+)))
Commit	Line	Data
a869565b	1	;;; GNU Guix --- Functional package management for GNU
af456909	2	;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
fdc1b2fd	3	;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
68e9ee72	4	;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
a869565b LC	5	;;;
	6	;;; This file is part of GNU Guix.
	7	;;;
	8	;;; GNU Guix is free software; you can redistribute it and/or modify it
	9	;;; under the terms of the GNU General Public License as published by
	10	;;; the Free Software Foundation; either version 3 of the License, or (at
	11	;;; your option) any later version.
	12	;;;
	13	;;; GNU Guix is distributed in the hope that it will be useful, but
	14	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	15	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	;;; GNU General Public License for more details.
	17	;;;
	18	;;; You should have received a copy of the GNU General Public License
	19	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	20
	21	(define-module (gnu packages dictionaries)
a9a8f063	22	#:use-module (guix licenses)
a869565b LC	23	#:use-module (guix packages)
a869565b LC	24	#:use-module (guix download)
af456909	25	#:use-module (guix build-system gnu)
a869565b LC	26	#:use-module (guix build-system trivial)
a869565b LC	27	#:use-module (gnu packages base)
a9a8f063	28	#:use-module (gnu packages texinfo)
274563e1 JD	29	#:use-module (gnu packages compression)
	30	#:use-module (gnu packages tcl))
	31
a869565b LC	32
	33	(define-public vera
	34	(package
	35	(name "vera")
fdc1b2fd	36	(version "1.23")
a869565b LC	37	(source (origin
	38	(method url-fetch)
	39	(uri (string-append "mirror://gnu/vera/vera-" version
	40	".tar.gz"))
	41	(sha256
	42	(base32
fdc1b2fd	43	"1az0v563jja8xb4896jyr8yv7jd9zacqyfkjd7psb73v7clg1mzz"))))
a869565b LC	44	(build-system trivial-build-system)
	45	(arguments
	46	`(#:builder (begin
	47	(use-modules (guix build utils))
	48
	49	(let* ((out (assoc-ref %outputs "out"))
	50	(info (string-append out "/share/info"))
	51	(html (string-append out "/share/html"))
	52	(source (assoc-ref %build-inputs "source"))
	53	(tar (assoc-ref %build-inputs "tar"))
	54	(gz (assoc-ref %build-inputs "gzip"))
	55	(texi (assoc-ref %build-inputs "texinfo")))
	56	(setenv "PATH" (string-append gz "/bin"))
	57	(system* (string-append tar "/bin/tar") "xvf" source)
	58
	59	(chdir (string-append "vera-" ,version))
	60	(mkdir-p info)
	61	(mkdir-p html)
	62
	63	;; XXX: Use '--force' because the document is unhappy
	64	;; with Texinfo 5 (yes, documents can be unhappy.)
	65	(and (zero?
	66	(system* (string-append texi "/bin/makeinfo")
	67	"vera.texi" "--force" "-o"
	68	(string-append info "/vera.info")))
	69	(zero?
	70	(system* (string-append texi "/bin/makeinfo")
	71	"vera.texi" "--force" "--html" "-o"
	72	(string-append html "/vera.html"))))))
	73	#:modules ((guix build utils))))
	74	(native-inputs `(("texinfo" ,texinfo)
	75	("tar" ,tar)
	76	("gzip" ,gzip)))
	77	(home-page "http://savannah.gnu.org/projects/vera/")
	78	(synopsis "List of acronyms")
	79	(description
	80	"V.E.R.A. (Virtual Entity of Relevant Acronyms) is a list of computing
	81	acronyms distributed as an info document.")
a9a8f063	82	(license fdl1.3+)))
68e9ee72 SB	83
	84	(define-public gcide
	85	(package
	86	(name "gcide")
	87	(version "0.51")
	88	(source (origin
	89	(method url-fetch)
	90	(uri (string-append
	91	"mirror://gnu/gcide/gcide-" version ".tar.xz"))
	92	(sha256
	93	(base32
	94	"1wm0s51ygc6480dq8gwahzr35ls8jgpf34yiwl5yqcaa0i19fdv7"))))
	95	(build-system trivial-build-system)
	96	(arguments
	97	'(#:builder (begin
	98	(use-modules (guix build utils))
	99	(let* ((src (assoc-ref %build-inputs "source"))
	100	(tar (assoc-ref %build-inputs "tar"))
	101	(xz (assoc-ref %build-inputs "xz"))
	102	(out (assoc-ref %outputs "out"))
	103	(datadir (string-append out "/share/gcide")))
	104	(set-path-environment-variable "PATH" '("bin")
	105	(list tar xz))
	106	(mkdir-p datadir)
	107	(zero? (system* "tar" "-C" datadir
	108	"--strip-components=1"
	109	"-xvf" src))))
	110	#:modules ((guix build utils))))
	111	(native-inputs
	112	`(("tar" ,tar)
	113	("xz" ,xz)))
	114	(synopsis "GNU Collaborative International Dictionary of English")
	115	(description
	116	"GCIDE is a free dictionary based on a combination of sources. It can
	117	be used via the GNU Dico program or accessed online at
	118	http://gcide.gnu.org.ua/")
	119	(home-page "http://gcide.gnu.org.ua/")
	120	(license gpl3+)))
af456909 LC	121
	122	(define-public diction
	123	;; Not quite a dictionary, not quite a spell checker either…
	124	(package
	125	(name "diction")
	126	(version "1.11")
	127	(source (origin
	128	(method url-fetch)
	129	(uri (string-append "mirror://gnu/diction/diction-"
	130	version ".tar.gz"))
	131	(sha256
	132	(base32
	133	"1xi4l1x1vvzmzmbhpx0ghmfnwwrhabjwizrpyylmy3fzinzz3him"))))
	134	(build-system gnu-build-system)
	135	(synopsis "Identifies wordy and commonly misused phrases")
	136	(description
	137	"A package providing two classic Unix commands, style and diction.
	138	Diction is used to identify wordy and commonly misused phrases in a
	139	body of text. Style instead analyzes surface aspects of a written
	140	work, such as sentence length and other readability measures.")
	141	(home-page "https://www.gnu.org/software/diction/")
	142	(license gpl3+)))
274563e1 JD	143
	144	(define-public ding
	145	(package
	146	(name "ding")
	147	(version "1.8")
	148	(source (origin
	149	(method url-fetch)
	150	(uri (string-append "http://ftp.tu-chemnitz.de/pub/Local/urz/" name
	151	"/" name "-" version ".tar.gz"))
	152	(sha256
	153	(base32
	154	"00z97ndwmzsgig9q6y98y8nbxy76pyi9qyj5qfpbbck24gakpz5l"))))
	155	(build-system gnu-build-system)
	156	(inputs `(("tk" ,tk)))
	157	(arguments
	158	`(#:phases
	159	(modify-phases %standard-phases
	160	(delete 'configure)
	161	(delete 'build)
	162	(delete 'check)
	163	(replace
	164	'install
	165	(lambda _
	166	(let ((bindir (string-append
	167	(assoc-ref %outputs "out") "/bin"))
	168	(wish (string-append
	169	(assoc-ref %build-inputs "tk")
	170	"/bin/wish8.6"))
	171	(sharedir (string-append
	172	(assoc-ref %outputs "out")
	173	"/share/applications"))
	174	(libdir (string-append
	175	(assoc-ref %outputs "out") "/lib")))
	176	(mkdir-p bindir)
	177	(mkdir-p libdir)
	178	(mkdir-p sharedir)
	179
	180	(substitute* "ding.desktop"
	181	(("Exec=/usr/bin/ding")
	182	(string-append "Exec=" bindir "/ding")))
	183	(with-fluids ((%default-port-encoding "ISO-8859-1"))
	184	(substitute* "ding" (("exec wish") (string-append "exec " wish))))
	185	(substitute* "install.sh"
	186	(("/bin/cp") "cp")
	187	(("/bin/mv") "mv")
	188	(("NEEDPROG=\"wish\"")
	189	(string-append "NEEDPROG=\"" wish "\""))
	190	(("DEFBINDIR=\"/usr/local/bin\"")
	191	(string-append "DEFBINDIR=\"" bindir "\""))
	192	(("DEFLIBDIR=\"/usr/local/lib\"")
	193	(string-append "DEFLIBDIR=\"" libdir "\"")))
	194	(install-file "ding.desktop" sharedir)
	195	(install-file "ding.png" sharedir)
	196	(zero?
	197	(system* "./install.sh"))))))))
	198	(synopsis "Dictionary lookup program with a German-English dictionary")
	199	(description "Ding is a dictionary lookup program for the X window system.
	200	It comes with a German-English dictionary with approximately 270,000 entries.")
	201	(home-page "http://www-user.tu-chemnitz.de/~fri/ding/")
	202	(license gpl2+)))