gnu: Add emacs-synosaurus.

* gnu/packages/emacs.scm (emacs-synosaurus): New variable.
This commit is contained in:
Pierre Neidhardt 2018-09-23 17:19:56 +02:00
parent 94676ded5f
commit e10bf49668
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 39 additions and 0 deletions

View File

@ -118,6 +118,7 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages video)
#:use-module (gnu packages haskell)
#:use-module (gnu packages wordnet)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
@ -12197,3 +12198,41 @@ wrapper around all Imagemagick commands with descriptions, autocompletion (for
some commands) and hints displayed in prompt using @command{eimp.el} to
execute its commands and resize images.")
(license license:gpl3+))))
(define-public emacs-synosaurus
(let ((commit "8bf95b935976ec0a1964cf175ed57cc5f6f93bdb"))
(package
(name "emacs-synosaurus")
(version (git-version "0.1.0" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hpdeifel/synosaurus")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"15by9jccab6kyplxa6k0glzaivxkqdigl33gl2qi2cvy6f2q7gva"))))
(build-system emacs-build-system)
(propagated-inputs
`(("wordnet" ,wordnet)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((wn (assoc-ref inputs "wordnet")))
;; .el is read-only in git.
(chmod "synosaurus-wordnet.el" #o644)
;; Specify the absolute file names of the various
;; programs so that everything works out-of-the-box.
(emacs-substitute-variables
"synosaurus-wordnet.el"
("wordnet-command"
(string-append wn "/bin/wn")))))))))
(home-page "https://github.com/hpdeifel/synosaurus")
(synopsis "Extensible thesaurus mode for Emacs")
(description "Synosaurus is a thesaurus fontend for Emacs with pluggable
backends, including the @command{wordnet} offline backend.")
(license license:gpl3+))))