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.
This commit is contained in:
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

View file

@ -2002,59 +2002,67 @@ (define-public guile-picture-language
(license license:lgpl3+)))) (license license:lgpl3+))))
(define-public guile-studio (define-public guile-studio
(let ((commit "98fbbbd08de396cd8a0e45f2a4badf1c733a5772") (package
(revision "3")) (name "guile-studio")
(package (version "0.0.2")
(name "guile-studio") (source (origin
(version (git-version "0.0.1" revision commit)) (method git-fetch)
(source (origin (uri (git-reference
(method git-fetch) (url "https://git.elephly.net/software/guile-studio.git")
(uri (git-reference (commit version)))
(url "https://git.elephly.net/software/guile-studio.git") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (git-file-name name version)) (base32
(sha256 "10ls4ra148hd9ra7sin4kh9vv0am5pwk48p7dsjhrlg2l1hsh4hi"))))
(base32 (build-system gnu-build-system)
"0rxl5gv2mavycwkl33lcwyb3z71j2f4zyzk60k7vl3hzszpr08iq")))) (arguments
(build-system gnu-build-system) `(#:modules
(arguments ((ice-9 match)
`(#:tests? #f ; there are none (srfi srfi-1)
#:make-flags ,@%gnu-build-system-modules)
(list (string-append "ICONS_DIR=" #:tests? #f ; there are none
(assoc-ref %build-inputs "adwaita-icon-theme") #:make-flags
"/share/icons/Adwaita/") (list (string-append "ICONS_DIR="
(string-append "PICT_DIR=" (assoc-ref %build-inputs "adwaita-icon-theme")
(assoc-ref %build-inputs "guile-picture-language")) "/share/icons/Adwaita/")
(string-append "EMACS_DIR=" (string-append "PICT_DIR="
(assoc-ref %build-inputs "emacs")) (assoc-ref %build-inputs "guile-picture-language"))
(string-append "GUILE_DIR=" (string-append "EMACS_DIR="
(assoc-ref %build-inputs "guile")) (assoc-ref %build-inputs "emacs"))
(string-join (cons "INPUTS=" (map cdr %build-inputs))) (string-append "GUILE_DIR="
(string-append "PREFIX=" (assoc-ref %outputs "out"))) (assoc-ref %build-inputs "guile"))
#:phases (string-join (cons "INPUTS="
(modify-phases %standard-phases (filter-map
(delete 'configure) (lambda (input)
(delete 'install)))) (match input
(inputs ((label . pkg)
`(("guile" ,guile-2.2) (and (string-prefix? "emacs" label) pkg))))
("guile-picture-language" ,guile-picture-language) %build-inputs)))
("emacs" ,emacs) (string-append "PREFIX=" (assoc-ref %outputs "out")))
("emacs-geiser" ,emacs-geiser) #:phases
("emacs-company" ,emacs-company) (modify-phases %standard-phases
("emacs-flycheck" ,emacs-flycheck) (delete 'configure)
("emacs-smart-mode-line" ,emacs-smart-mode-line) (delete 'install))))
("emacs-paren-face" ,emacs-paren-face) (inputs
("adwaita-icon-theme" ,adwaita-icon-theme))) `(("guile" ,guile-2.2)
(native-inputs ("guile-picture-language" ,guile-picture-language)
`(("texinfo" ,texinfo))) ("emacs" ,emacs)
(home-page "https://gnu.org/software/guile") ("emacs-geiser" ,emacs-geiser)
(synopsis "IDE for Guile") ("emacs-company" ,emacs-company)
(description ("emacs-flycheck" ,emacs-flycheck)
"This is Emacs with a few settings that make working with Guile easier ("emacs-smart-mode-line" ,emacs-smart-mode-line)
("emacs-paren-face" ,emacs-paren-face)
("adwaita-icon-theme" ,adwaita-icon-theme)))
(native-inputs
`(("texinfo" ,texinfo)))
(home-page "https://gnu.org/software/guile")
(synopsis "IDE for Guile")
(description
"This is Emacs with a few settings that make working with Guile easier
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")