me
/
guix
Archived
1
0
Fork 0
Code

gnu: aspell-dictionary: Use ‘modify-phases’ syntax. 

* gnu/packages/aspell.scm (aspell-dictionary)[arguments]: Use
‘modify-phases’.
master
Tobias Geerinckx-Rice 2016-12-19 21:26:39 +01:00
parent f87b8e25c3
commit 707ee32471
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/aspell.scm
View File

@ -66,7 +66,8 @@ dictionaries, including personal ones.")
;;;
;;; Dictionaries.
;;;
;;; Use 'export ASPELL_CONF="dict-dir $HOME/.guix-profile/lib/aspell"' to use them.
;;; Use 'export ASPELL_CONF="dict-dir $HOME/.guix-profile/lib/aspell"' to use
;;; them.
;;;
(define* (aspell-dictionary dict-name full-name
@ -82,16 +83,17 @@ dictionaries, including personal ones.")
(sha256 sha256)))
(build-system gnu-build-system)
(arguments
`(#:phases (alist-replace
'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(zero? (system* "./configure"))))
%standard-phases)
#:make-flags (let ((out (assoc-ref %outputs "out")))
(list (string-append "dictdir=" out "/lib/aspell")
(string-append "datadir=" out "/lib/aspell")))
#:tests? #f))
`(#: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