me
/
guix
Archived
1
0
Fork 0
Code

gnu: guile-studio: Update to 0.0.2. 

* gnu/packages/guile-xyz.scm (guile-studio): Update to 0.0.2.
[arguments]: Only include emacs inputs in INPUTS make flag.
master
Ricardo Wurmus 2019-12-16 08:03:20 +01:00
parent 3c80b07a0b
commit 223236f6c2
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 58 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/guile-xyz.scm
View File

@ -2002,23 +2002,25 @@ The picture values can directly be displayed in Geiser.")
(license license:lgpl3+)))) (license license:lgpl3+))))
(define-public guile-studio (define-public guile-studio
(let ((commit "98fbbbd08de396cd8a0e45f2a4badf1c733a5772")
(revision "3"))
(package (package
(name "guile-studio") (name "guile-studio")
(version (git-version "0.0.1" revision commit)) (version "0.0.2")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://git.elephly.net/software/guile-studio.git") (url "https://git.elephly.net/software/guile-studio.git")
(commit commit))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0rxl5gv2mavycwkl33lcwyb3z71j2f4zyzk60k7vl3hzszpr08iq")))) "10ls4ra148hd9ra7sin4kh9vv0am5pwk48p7dsjhrlg2l1hsh4hi"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; there are none `(#:modules
((ice-9 match)
(srfi srfi-1)
,@%gnu-build-system-modules)
#:tests? #f ; there are none
#:make-flags #:make-flags
(list (string-append "ICONS_DIR=" (list (string-append "ICONS_DIR="
(assoc-ref %build-inputs "adwaita-icon-theme") (assoc-ref %build-inputs "adwaita-icon-theme")
@ -2029,7 +2031,13 @@ The picture values can directly be displayed in Geiser.")
(assoc-ref %build-inputs "emacs")) (assoc-ref %build-inputs "emacs"))
(string-append "GUILE_DIR=" (string-append "GUILE_DIR="
(assoc-ref %build-inputs "guile")) (assoc-ref %build-inputs "guile"))
(string-join (cons "INPUTS=" (map cdr %build-inputs))) (string-join (cons "INPUTS="
(filter-map
(lambda (input)
(match input
((label . pkg)
(and (string-prefix? "emacs" label) pkg))))
%build-inputs)))
(string-append "PREFIX=" (assoc-ref %outputs "out"))) (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -2054,7 +2062,7 @@ The picture values can directly be displayed in Geiser.")
for people new to Emacs. Features include: CUA mode, Geiser, tool bar icons for people new to Emacs. Features include: CUA mode, Geiser, tool bar icons
to evaluate Guile buffers, support for Guile's very own picture language, code to evaluate Guile buffers, support for Guile's very own picture language, code
completion, a simple mode line, etc.") completion, a simple mode line, etc.")
(license license:gpl3+)))) (license license:gpl3+)))
(define-public guile-stis-parser (define-public guile-stis-parser
(let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd") (let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd")