gnu: guile-studio: Update to 0.0.2-1.d24d59a.

* gnu/packages/guile-xyz.scm (guile-studio): Update to 0.0.2-1.d24d59a.
This commit is contained in:
Ricardo Wurmus 2020-05-16 14:18:02 +02:00
parent 8ec6b9fe0c
commit c660779722
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

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