mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
gnu: Use invoke and return #t from all builders.
* gnu/packages/admin.scm, gnu/packages/android.scm, gnu/packages/audio.scm, gnu/packages/avr.scm, gnu/packages/base.scm, gnu/packages/bioinformatics.scm, gnu/packages/certs.scm, gnu/packages/check.scm, gnu/packages/code.scm, gnu/packages/commencement.scm, gnu/packages/dictionaries.scm, gnu/packages/docbook.scm, gnu/packages/emacs.scm, gnu/packages/embedded.scm, gnu/packages/fonts.scm, gnu/packages/games.scm, gnu/packages/gnome.scm, gnu/packages/gnu-doc.scm, gnu/packages/guile.scm, gnu/packages/hurd.scm, gnu/packages/javascript.scm, gnu/packages/libreoffice.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lxde.scm, gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/mate.scm, gnu/packages/pkg-config.scm, gnu/packages/qt.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/sdl.scm, gnu/packages/statistics.scm, gnu/packages/syncthing.scm, gnu/packages/tex.scm, gnu/packages/web.scm, gnu/packages/wine.scm, gnu/packages/xfce.scm: In the builders of packages using 'trivial-build-system', use invoke where appropriate, raise exceptions on errors, and otherwise return #t.
This commit is contained in:
parent
6715e1c24f
commit
e3cfef22c4
39 changed files with 168 additions and 119 deletions
|
@ -483,8 +483,8 @@ (define-public net-base
|
|||
(output (assoc-ref %outputs "out"))
|
||||
(etc (string-append output "/etc")))
|
||||
(setenv "PATH" (string-append xz "/bin"))
|
||||
(system* (string-append tar "/bin/tar") "xvf"
|
||||
source)
|
||||
(invoke (string-append tar "/bin/tar") "xvf"
|
||||
source)
|
||||
(chdir ,(string-append "netbase-" version))
|
||||
(mkdir-p etc)
|
||||
(for-each copy-file
|
||||
|
|
|
@ -360,7 +360,8 @@ (define-public android-udev-rules
|
|||
(use-modules (guix build utils))
|
||||
(let ((source (assoc-ref %build-inputs "source")))
|
||||
(install-file (string-append source "/51-android.rules")
|
||||
(string-append %output "/lib/udev/rules.d"))))))
|
||||
(string-append %output "/lib/udev/rules.d"))
|
||||
#t))))
|
||||
(home-page "https://github.com/M0Rf30/android-udev-rules")
|
||||
(synopsis "udev rules for Android devices")
|
||||
(description "Provides a set of udev rules to allow using Android devices
|
||||
|
|
|
@ -1201,14 +1201,15 @@ (define-public freepats
|
|||
(setenv "PATH" (string-append
|
||||
(assoc-ref %build-inputs "bzip2") "/bin:"
|
||||
(assoc-ref %build-inputs "tar") "/bin"))
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir "freepats")
|
||||
;; Use absolute pattern references
|
||||
(substitute* "freepats.cfg"
|
||||
(("Tone_000") (string-append out "/Tone_000"))
|
||||
(("Drum_000") (string-append out "/Drum_000")))
|
||||
(mkdir-p out)
|
||||
(copy-recursively "." out)))))
|
||||
(copy-recursively "." out)
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("tar" ,tar)
|
||||
("bzip2" ,bzip2)))
|
||||
|
@ -3369,7 +3370,8 @@ (define-public fluid-3
|
|||
(let ((file (assoc-ref %build-inputs "source"))
|
||||
(out (string-append %output "/share/soundfonts")))
|
||||
(mkdir-p out)
|
||||
(copy-file file (string-append out "/FluidR3Mono_GM.sf3"))))))
|
||||
(copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
|
||||
#t))))
|
||||
(home-page "https://github.com/musescore/MuseScore/tree/master/share/sound")
|
||||
(synopsis "Pro-quality GM soundfont")
|
||||
(description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
|
||||
|
|
|
@ -117,7 +117,7 @@ (define (avr-toolchain avr-gcc)
|
|||
(version (package-version avr-gcc))
|
||||
(source #f)
|
||||
(build-system trivial-build-system)
|
||||
(arguments '(#:builder (mkdir %output)))
|
||||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||||
(propagated-inputs
|
||||
`(("avrdude" ,avrdude)
|
||||
("binutils" ,avr-binutils)
|
||||
|
|
|
@ -530,7 +530,8 @@ (define* (make-ld-wrapper name #:key
|
|||
target "-ld")
|
||||
"/bin/ld"))))
|
||||
(chmod ld #o555)
|
||||
(compile-file ld #:output-file go))))))
|
||||
(compile-file ld #:output-file go)
|
||||
#t)))))
|
||||
(synopsis "The linker wrapper")
|
||||
(description
|
||||
"The linker wrapper (or 'ld-wrapper') wraps the linker to add any
|
||||
|
|
|
@ -5555,10 +5555,11 @@ (define-public seqan
|
|||
(out (assoc-ref %outputs "out"))
|
||||
(doc (assoc-ref %outputs "doc")))
|
||||
(setenv "PATH" (string-append tar "/bin:" bzip "/bin"))
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir (string-append "seqan-library-" ,version))
|
||||
(copy-recursively "include" (string-append out "/include"))
|
||||
(copy-recursively "share" (string-append doc "/share"))))))
|
||||
(copy-recursively "share" (string-append doc "/share"))
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("source" ,source)
|
||||
("tar" ,tar)
|
||||
|
|
|
@ -63,7 +63,8 @@ (define certdata2pem
|
|||
(("crt") "pem"))
|
||||
(mkdir-p bin)
|
||||
(copy-file "certdata2pem.py"
|
||||
(string-append bin "/certdata2pem.py"))))))
|
||||
(string-append bin "/certdata2pem.py"))
|
||||
#t))))
|
||||
(synopsis "Python script to extract .pem data from certificate collection")
|
||||
(description
|
||||
"certdata2pem.py is a Python script to transform X.509 certificate
|
||||
|
|
|
@ -187,13 +187,13 @@ (define-public catch-framework
|
|||
(incdir (string-append output "/include"))
|
||||
(docdir (string-append output "/share/doc/catch-"
|
||||
,version)))
|
||||
(begin
|
||||
(for-each mkdir-p (list incdir docdir))
|
||||
(install-file (string-append source
|
||||
"/single_include/catch.hpp")
|
||||
incdir)
|
||||
(copy-recursively (string-append source "/docs")
|
||||
docdir))))))
|
||||
(for-each mkdir-p (list incdir docdir))
|
||||
(install-file (string-append source
|
||||
"/single_include/catch.hpp")
|
||||
incdir)
|
||||
(copy-recursively (string-append source "/docs")
|
||||
docdir)
|
||||
#t))))
|
||||
(home-page "http://catch-lib.net/")
|
||||
(synopsis "Automated test framework for C++ and Objective-C")
|
||||
(description
|
||||
|
|
|
@ -493,7 +493,8 @@ (define-public colormake
|
|||
(install-files '("AUTHORS" "BUGS" "ChangeLog" "README") doc)
|
||||
(install-files '("colormake" "colormake-short" "clmake"
|
||||
"clmake-short" "colormake.pl")
|
||||
bin)))))
|
||||
bin)
|
||||
#t))))
|
||||
(home-page "http://bre.klaki.net/programs/colormake/")
|
||||
(synopsis "Wrapper around @command{make} to produce colored output")
|
||||
(description "This package provides a wrapper around @command{make} to
|
||||
|
|
|
@ -586,7 +586,9 @@ (define (wrap-program program)
|
|||
triplet "-" tool)
|
||||
tool))
|
||||
'("ar" "ranlib"))
|
||||
(for-each wrap-program '("gcc" "g++")))))))
|
||||
(for-each wrap-program '("gcc" "g++")))
|
||||
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("binutils" ,binutils)
|
||||
("gcc" ,gcc)
|
||||
|
@ -1014,7 +1016,8 @@ (define (make-gcc-toolchain gcc)
|
|||
|
||||
(union-build (assoc-ref %outputs "debug")
|
||||
(list (assoc-ref %build-inputs
|
||||
"libc-debug")))))))
|
||||
"libc-debug")))
|
||||
#t))))
|
||||
|
||||
(native-search-paths (package-native-search-paths gcc))
|
||||
(search-paths (package-search-paths gcc))
|
||||
|
|
|
@ -110,9 +110,9 @@ (define-public gcide
|
|||
(set-path-environment-variable "PATH" '("bin")
|
||||
(list tar xz))
|
||||
(mkdir-p datadir)
|
||||
(zero? (system* "tar" "-C" datadir
|
||||
"--strip-components=1"
|
||||
"-xvf" src))))
|
||||
(invoke "tar" "-C" datadir
|
||||
"--strip-components=1"
|
||||
"-xvf" src)))
|
||||
#:modules ((guix build utils))))
|
||||
(native-inputs
|
||||
`(("tar" ,tar)
|
||||
|
|
|
@ -58,11 +58,12 @@ (define-public docbook-xml
|
|||
(dtd (string-append out "/xml/dtd/docbook")))
|
||||
(mkdir-p dtd)
|
||||
(with-directory-excursion dtd
|
||||
(system* unzip source))
|
||||
(invoke unzip source))
|
||||
(substitute* (string-append out "/xml/dtd/docbook/catalog.xml")
|
||||
(("uri=\"")
|
||||
(string-append
|
||||
"uri=\"file://" dtd "/")))))
|
||||
"uri=\"file://" dtd "/")))
|
||||
#t))
|
||||
#:modules ((guix build utils))))
|
||||
(native-inputs `(("unzip" ,unzip)))
|
||||
(home-page "http://docbook.org")
|
||||
|
@ -127,7 +128,7 @@ (define-public docbook-xml-4.1.2
|
|||
(dtd (string-append (assoc-ref %outputs "out")
|
||||
"/xml/dtd/docbook")))
|
||||
(mkdir-p dtd)
|
||||
(zero? (system* unzip source "-d" dtd))))))))
|
||||
(invoke unzip source "-d" dtd)))))))
|
||||
|
||||
(define-public docbook-xsl
|
||||
(package
|
||||
|
@ -154,7 +155,7 @@ (define-public docbook-xsl
|
|||
(out (assoc-ref %outputs "out"))
|
||||
(xsl (string-append out "/xml/xsl")))
|
||||
(setenv "PATH" (string-append bzip2 "/bin" ":" xz "/bin"))
|
||||
(system* (string-append tar "/bin/tar") "xvf" source)
|
||||
(invoke (string-append tar "/bin/tar") "xvf" source)
|
||||
|
||||
(mkdir-p xsl)
|
||||
(copy-recursively name-version
|
||||
|
@ -163,8 +164,9 @@ (define-public docbook-xsl
|
|||
(substitute* (string-append xsl "/" name-version "/catalog.xml")
|
||||
(("rewritePrefix=\"./")
|
||||
(string-append "rewritePrefix=\"file://" xsl "/"
|
||||
name-version "/")))))
|
||||
#:modules ((guix build utils))))
|
||||
name-version "/")))
|
||||
#t))
|
||||
#:modules ((guix build utils))))
|
||||
(native-inputs `(("bzip2" ,bzip2)
|
||||
("xz" ,xz)
|
||||
("tar" ,tar)))
|
||||
|
|
|
@ -530,7 +530,7 @@ (define-public magit-svn
|
|||
(source (assoc-ref %build-inputs "source"))
|
||||
(lisp-dir (string-append %output "/share/emacs/site-lisp")))
|
||||
(setenv "PATH" PATH)
|
||||
(system* tar "xvf" source)
|
||||
(invoke tar "xvf" source)
|
||||
|
||||
(install-file (string-append ,name "-" ,version "/magit-svn.el")
|
||||
lisp-dir)
|
||||
|
@ -540,7 +540,9 @@ (define-public magit-svn
|
|||
(emacs-generate-autoloads ,name lisp-dir)
|
||||
(setenv "EMACSLOADPATH"
|
||||
(string-append ":" magit ":" dash))
|
||||
(emacs-batch-eval '(byte-compile-file "magit-svn.el"))))))))
|
||||
(emacs-batch-eval '(byte-compile-file "magit-svn.el"))))
|
||||
|
||||
#t))))
|
||||
(home-page "https://github.com/magit/magit-svn")
|
||||
(synopsis "Git-SVN extension to Magit")
|
||||
(description
|
||||
|
@ -5038,7 +5040,8 @@ (define-public emacs-yasnippet-snippets
|
|||
dir)))
|
||||
(scandir "." (lambda (fname)
|
||||
(and (string-match "-mode$" fname)
|
||||
(directory-exists? fname)))))))))
|
||||
(directory-exists? fname))))))
|
||||
#t)))
|
||||
(home-page "https://github.com/AndreaCrotti/yasnippet-snippets")
|
||||
(synopsis "Collection of YASnippet snippets for many languages")
|
||||
(description
|
||||
|
@ -6980,7 +6983,7 @@ (define-public eless
|
|||
(setenv "PATH" (string-append
|
||||
(assoc-ref %build-inputs "tar") "/bin" ":"
|
||||
(assoc-ref %build-inputs "gzip") "/bin"))
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir (string-append "eless" "-" ,version))
|
||||
(substitute* "eless" (("/usr/bin/env bash")
|
||||
(string-append (assoc-ref %build-inputs "bash")
|
||||
|
@ -7303,7 +7306,7 @@ (define-public epipe
|
|||
(setenv "PATH" (string-append
|
||||
(assoc-ref %build-inputs "tar") "/bin" ":"
|
||||
(assoc-ref %build-inputs "gzip") "/bin"))
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir (string-append ,name "-" ,version))
|
||||
;; Patch shebangs
|
||||
(substitute* "epipe"
|
||||
|
|
|
@ -251,7 +251,8 @@ (define (arm-none-eabi-toolchain xgcc newlib)
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(propagated-inputs
|
||||
`(("binutils" ,(cross-binutils "arm-none-eabi"))
|
||||
("libstdc++" ,(make-libstdc++-arm-none-eabi xgcc newlib-with-xgcc))
|
||||
|
@ -610,7 +611,7 @@ (define-public propeller-toolchain
|
|||
(version (package-version propeller-gcc))
|
||||
(source #f)
|
||||
(build-system trivial-build-system)
|
||||
(arguments '(#:builder (mkdir %output)))
|
||||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||||
(propagated-inputs
|
||||
`(("binutils" ,propeller-binutils)
|
||||
("libc" ,proplib)
|
||||
|
@ -785,7 +786,7 @@ (define-public propeller-development-suite
|
|||
(version (package-version propeller-gcc))
|
||||
(source #f)
|
||||
(build-system trivial-build-system)
|
||||
(arguments '(#:builder (mkdir %output)))
|
||||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||||
(propagated-inputs
|
||||
`(("toolchain" ,propeller-toolchain)
|
||||
("openspin" ,openspin)
|
||||
|
|
|
@ -216,12 +216,13 @@ (define-public font-lato
|
|||
(font-dir (string-append %output
|
||||
"/share/fonts/truetype")))
|
||||
(setenv "PATH" PATH)
|
||||
(system* "unzip" (assoc-ref %build-inputs "source"))
|
||||
(invoke "unzip" (assoc-ref %build-inputs "source"))
|
||||
|
||||
(mkdir-p font-dir)
|
||||
(for-each (lambda (ttf)
|
||||
(install-file ttf font-dir))
|
||||
(find-files "." "\\.ttf$"))))))
|
||||
(find-files "." "\\.ttf$"))
|
||||
#t))))
|
||||
|
||||
(native-inputs `(("unzip" ,unzip)))
|
||||
(home-page "http://www.latofonts.com/lato-free-fonts/")
|
||||
|
@ -440,14 +441,15 @@ (define-public font-adobe-source-han-sans
|
|||
(string-append (assoc-ref %outputs out)
|
||||
"/share/fonts/opentype")))))
|
||||
(setenv "PATH" PATH)
|
||||
(system* tar "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke tar "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir (string-append "source-han-sans-" ,version "R"))
|
||||
(install-opentype-fonts "OTC" "out")
|
||||
(install-opentype-fonts "SubsetOTF/CN" "cn")
|
||||
(install-opentype-fonts "SubsetOTF/JP" "jp")
|
||||
(install-opentype-fonts "SubsetOTF/KR" "kr")
|
||||
(install-opentype-fonts "SubsetOTF/TW" "tw")
|
||||
(for-each delete-file (find-files %output "\\.zip$"))))))
|
||||
(for-each delete-file (find-files %output "\\.zip$"))
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("gzip" ,gzip)
|
||||
("tar" ,tar)))
|
||||
|
@ -982,7 +984,7 @@ (define-public font-tamzen
|
|||
(src-pcf-dir (string-append "tamzen-font-Tamzen-"
|
||||
,version "/pcf")))
|
||||
(setenv "PATH" PATH)
|
||||
(system* tar "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke tar "xvf" (assoc-ref %build-inputs "source"))
|
||||
(mkdir-p font-dir)
|
||||
(mkdir-p psf-dir)
|
||||
(chdir src-pcf-dir)
|
||||
|
@ -1201,7 +1203,7 @@ (define-public font-dosis
|
|||
(otf-dir (string-append %output
|
||||
"/share/fonts/opentype")))
|
||||
(setenv "PATH" PATH)
|
||||
(system* "unzip" (assoc-ref %build-inputs "source"))
|
||||
(invoke "unzip" (assoc-ref %build-inputs "source"))
|
||||
|
||||
(mkdir-p ttf-dir)
|
||||
(mkdir-p otf-dir)
|
||||
|
@ -1210,7 +1212,8 @@ (define-public font-dosis
|
|||
(find-files "." "\\.ttf$"))
|
||||
(for-each (lambda (otf)
|
||||
(install-file otf otf-dir))
|
||||
(find-files "." "\\.otf$"))))))
|
||||
(find-files "." "\\.otf$"))
|
||||
#t))))
|
||||
(native-inputs `(("unzip" ,unzip)))
|
||||
(home-page "http://www.impallari.com/dosis")
|
||||
(synopsis "Very simple, rounded, sans serif family")
|
||||
|
|
|
@ -1181,7 +1181,8 @@ (define-public freedink
|
|||
(assoc-ref %build-inputs "bash")
|
||||
(assoc-ref %build-inputs "engine")
|
||||
(assoc-ref %build-inputs "data"))
|
||||
(chmod port #o777)))))
|
||||
(chmod port #o777)))
|
||||
#t))
|
||||
#:modules ((guix build utils))))
|
||||
(inputs `(("engine" ,freedink-engine)
|
||||
("data" ,freedink-data)
|
||||
|
@ -1440,10 +1441,11 @@ (define minetest-data
|
|||
"gzip")
|
||||
"/bin")))
|
||||
(setenv "PATH" path)
|
||||
(system* tar "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke tar "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir (string-append "minetest_game-" ,version))
|
||||
(mkdir-p install-dir)
|
||||
(copy-recursively "." install-dir)))))
|
||||
(copy-recursively "." install-dir)
|
||||
#t))))
|
||||
(synopsis "Main game data for the Minetest game engine")
|
||||
(description
|
||||
"Game data for the Minetest infinite-world block sandox game.")
|
||||
|
@ -2612,18 +2614,19 @@ (define-public grue-hunter
|
|||
(bin (string-append out "/bin"))
|
||||
(doc (string-append out
|
||||
"/share/doc/grue-hunter")))
|
||||
(begin
|
||||
(copy-file tarball "grue-hunter.tar.gz")
|
||||
(zero? (system* gzip "-d" "grue-hunter.tar.gz"))
|
||||
(zero? (system* tar "xvf" "grue-hunter.tar"))
|
||||
(copy-file tarball "grue-hunter.tar.gz")
|
||||
(invoke gzip "-d" "grue-hunter.tar.gz")
|
||||
(invoke tar "xvf" "grue-hunter.tar")
|
||||
|
||||
(mkdir-p bin)
|
||||
(copy-file "grue-hunter/gh.pl"
|
||||
(string-append bin "/grue-hunter"))
|
||||
(patch-shebang (string-append bin "/grue-hunter")
|
||||
(list perl))
|
||||
(mkdir-p bin)
|
||||
(copy-file "grue-hunter/gh.pl"
|
||||
(string-append bin "/grue-hunter"))
|
||||
(patch-shebang (string-append bin "/grue-hunter")
|
||||
(list perl))
|
||||
|
||||
(install-file "grue-hunter/AGPLv3.txt" doc))))))
|
||||
(install-file "grue-hunter/AGPLv3.txt" doc)
|
||||
|
||||
#t))))
|
||||
(inputs `(("perl" ,perl)
|
||||
("tar" ,tar)
|
||||
("gzip" ,gzip)
|
||||
|
@ -2930,11 +2933,12 @@ (define-public tuxpaint-stamps
|
|||
(string-append
|
||||
(assoc-ref %build-inputs "tar") "/bin" ":"
|
||||
(assoc-ref %build-inputs "gzip") "/bin"))
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir (string-append ,name "-" ,version))
|
||||
(let ((dir (string-append %output "/share/tuxpaint/stamps")))
|
||||
(mkdir-p dir)
|
||||
(copy-recursively "stamps" dir)))))
|
||||
(copy-recursively "stamps" dir))
|
||||
#t)))
|
||||
(home-page (package-home-page tuxpaint))
|
||||
(synopsis "Stamp images for Tux Paint")
|
||||
(description
|
||||
|
@ -4087,7 +4091,7 @@ (define-public 0ad-data
|
|||
(xz-path (string-append (assoc-ref %build-inputs "xz") "/bin")))
|
||||
(setenv "PATH" xz-path)
|
||||
(mkdir out)
|
||||
(zero? (system* tar "xvf" source "-C" out "--strip=3"))))))
|
||||
(invoke tar "xvf" source "-C" out "--strip=3")))))
|
||||
(synopsis "Data files for 0ad")
|
||||
(description "0ad-data provides the data files required by the game 0ad.")
|
||||
(home-page "https://play0ad.com")
|
||||
|
|
|
@ -5965,7 +5965,7 @@ (define-public gnome
|
|||
(version (package-version gnome-shell))
|
||||
(source #f)
|
||||
(build-system trivial-build-system)
|
||||
(arguments '(#:builder (mkdir %output)))
|
||||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||||
(propagated-inputs
|
||||
;; TODO: Add more packages according to:
|
||||
;; <https://packages.debian.org/jessie/gnome-core>.
|
||||
|
|
|
@ -85,12 +85,12 @@ (module "gnustandards")
|
|||
(setenv "PATH" (string-append gzip "/bin"
|
||||
":" texinfo "/bin"))
|
||||
(mkdir-p info-dir)
|
||||
(system* "makeinfo" "--output" info-dir
|
||||
(string-append source "/maintain.texi"))
|
||||
(system* "makeinfo" "--output" info-dir
|
||||
(string-append source "/standards.texi"))
|
||||
(system* "gzip" (string-append info-dir "/maintain.info"))
|
||||
(system* "gzip" (string-append info-dir "/standards.info"))))))
|
||||
(invoke "makeinfo" "--output" info-dir
|
||||
(string-append source "/maintain.texi"))
|
||||
(invoke "makeinfo" "--output" info-dir
|
||||
(string-append source "/standards.texi"))
|
||||
(invoke "gzip" (string-append info-dir "/maintain.info"))
|
||||
(invoke "gzip" (string-append info-dir "/standards.info"))))))
|
||||
(home-page "https://www.gnu.org/prep/standards/")
|
||||
(synopsis "GNU coding standards and maintainer information")
|
||||
(description "The GNU Coding Standards were written by Richard Stallman
|
||||
|
|
|
@ -911,16 +911,15 @@ (define-public guile-minikanren
|
|||
;; Install source module.
|
||||
(copy-file file dest-file)
|
||||
;; Install compiled module.
|
||||
(unless (zero? (system* guild "compile"
|
||||
"-L" source
|
||||
"-o" go-file
|
||||
file))
|
||||
(error (format #f "Failed to compile ~s to ~s!"
|
||||
file go-file)))))
|
||||
(invoke guild "compile"
|
||||
"-L" source
|
||||
"-o" go-file
|
||||
file)))
|
||||
scm-files)
|
||||
|
||||
;; Also copy over the README.
|
||||
(install-file "README.org" doc)
|
||||
|
||||
#t))))
|
||||
(inputs
|
||||
`(("guile" ,guile-2.0)))
|
||||
|
@ -1181,7 +1180,9 @@ (define-public guile-gdbm-ffi
|
|||
(invoke patch-command "--force" "--input" patch-file)))
|
||||
|
||||
;; compile to the destination
|
||||
(compile-file gdbm.scm-dest gdbm.go-dest)))))
|
||||
(compile-file gdbm.scm-dest gdbm.go-dest)
|
||||
|
||||
#t))))
|
||||
(home-page "https://github.com/ijp/guile-gdbm")
|
||||
(synopsis "Guile bindings to the GDBM library via Guile's FFI")
|
||||
(description
|
||||
|
|
|
@ -200,7 +200,8 @@ (define-public hurd-core-headers
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs `(("gnumach-headers" ,gnumach-headers)
|
||||
("hurd-headers" ,hurd-headers)
|
||||
("hurd-minimal" ,hurd-minimal)))
|
||||
|
|
|
@ -60,10 +60,10 @@ (define-public font-mathjax
|
|||
%build-inputs))
|
||||
(let ((install-directory (string-append %output "/share/fonts/mathjax")))
|
||||
(mkdir-p install-directory)
|
||||
(zero? (system* "tar" "-C" install-directory "-xvf"
|
||||
(assoc-ref %build-inputs "source")
|
||||
,(string-append "MathJax-" version "/fonts")
|
||||
"--strip" "2"))))))
|
||||
(invoke "tar" "-C" install-directory "-xvf"
|
||||
(assoc-ref %build-inputs "source")
|
||||
,(string-append "MathJax-" version "/fonts")
|
||||
"--strip" "2")))))
|
||||
(native-inputs
|
||||
`(("gzip" ,gzip)
|
||||
("tar" ,tar)))
|
||||
|
@ -94,10 +94,10 @@ (define-public js-mathjax
|
|||
(list (assoc-ref %build-inputs "glibc-utf8-locales")))
|
||||
(setenv "LANG" "en_US.UTF-8")
|
||||
(let ((install-directory (string-append %output "/share/javascript/mathjax")))
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source")
|
||||
,(string-append "MathJax-" (package-version font-mathjax)
|
||||
"/unpacked")
|
||||
"--strip" "2")
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source")
|
||||
,(string-append "MathJax-" (package-version font-mathjax)
|
||||
"/unpacked")
|
||||
"--strip" "2")
|
||||
(mkdir-p install-directory)
|
||||
(symlink (string-append (assoc-ref %build-inputs "font-mathjax")
|
||||
"/share/fonts/mathjax")
|
||||
|
@ -118,7 +118,9 @@ (define-public js-mathjax
|
|||
(dump-port minified port)))))
|
||||
(else
|
||||
(install-file file (dirname installed))))))
|
||||
(find-files "."))))))
|
||||
(find-files "."))
|
||||
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("font-mathjax" ,font-mathjax)
|
||||
("glibc-utf8-locales" ,glibc-utf8-locales)
|
||||
|
@ -159,9 +161,9 @@ (define-public js-respond
|
|||
%build-inputs))
|
||||
(let ((install-directory (string-append %output
|
||||
"/share/javascript/respond/")))
|
||||
(system* "tar" "xvf"
|
||||
(assoc-ref %build-inputs "source")
|
||||
"--strip" "1")
|
||||
(invoke "tar" "xvf"
|
||||
(assoc-ref %build-inputs "source")
|
||||
"--strip" "1")
|
||||
(mkdir-p install-directory)
|
||||
(let* ((file "src/respond.js")
|
||||
(installed (string-append install-directory "respond.min.js")))
|
||||
|
|
|
@ -746,8 +746,8 @@ (define (dicollecte-french-dictionary variant synopsis)
|
|||
(doc (string-append out "/share/doc/"
|
||||
,name))
|
||||
(unzip (assoc-ref %build-inputs "unzip")))
|
||||
(system* (string-append unzip "/bin/unzip")
|
||||
(assoc-ref %build-inputs "source"))
|
||||
(invoke (string-append unzip "/bin/unzip")
|
||||
(assoc-ref %build-inputs "source"))
|
||||
(for-each (cut install-file <> hunspell)
|
||||
(find-files "."
|
||||
,(string-append variant
|
||||
|
|
|
@ -844,7 +844,8 @@ (define-public e2fsck/static
|
|||
(with-directory-excursion bin
|
||||
(copy-file e2fsck "e2fsck")
|
||||
(remove-store-references "e2fsck")
|
||||
(chmod "e2fsck" #o555))))))
|
||||
(chmod "e2fsck" #o555))
|
||||
#t))))
|
||||
(home-page (package-home-page e2fsprogs))
|
||||
(synopsis "Statically-linked e2fsck command from e2fsprogs")
|
||||
(description "This package provides statically-linked e2fsck command taken
|
||||
|
@ -3235,7 +3236,8 @@ (define-public btrfs-progs/static
|
|||
(mkdir-p (dirname target))
|
||||
(copy-file source target)
|
||||
(remove-store-references target)
|
||||
(chmod target #o555)))))
|
||||
(chmod target #o555)
|
||||
#t))))
|
||||
(home-page (package-home-page btrfs-progs))
|
||||
(synopsis "Statically-linked btrfs command from btrfs-progs")
|
||||
(description "This package provides the statically-linked @command{btrfs}
|
||||
|
|
|
@ -1231,7 +1231,8 @@ (define-public sbcl-slynk
|
|||
(assoc-ref %outputs "image")
|
||||
"/bin/slynk")
|
||||
%outputs
|
||||
#:dependencies ',slynk-systems)))))))
|
||||
#:dependencies ',slynk-systems))
|
||||
#t)))))
|
||||
|
||||
(define-public ecl-slynk
|
||||
(package
|
||||
|
@ -1253,7 +1254,8 @@ (define-public ecl-slynk
|
|||
(match %build-inputs
|
||||
(((names . paths) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
paths))))))))
|
||||
paths)
|
||||
#t)))))))
|
||||
|
||||
(define-public sbcl-stumpwm+slynk
|
||||
(package
|
||||
|
|
|
@ -449,7 +449,7 @@ (define-public lxde
|
|||
(version (package-version lxde-common))
|
||||
(source #f)
|
||||
(build-system trivial-build-system)
|
||||
(arguments '(#:builder (mkdir %output)))
|
||||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||||
(propagated-inputs
|
||||
;; TODO:
|
||||
;; lxshortcut, lxsession-edit
|
||||
|
|
|
@ -1808,7 +1808,7 @@ (define-public mb2md
|
|||
(mkdir-p bin)
|
||||
(with-directory-excursion bin
|
||||
(copy-file source "mb2md.gz")
|
||||
(system* (string-append gzip "/bin/gzip") "-d" "mb2md.gz")
|
||||
(invoke (string-append gzip "/bin/gzip") "-d" "mb2md.gz")
|
||||
(substitute* "mb2md"
|
||||
(("#!/usr/bin/perl")
|
||||
(string-append "#!/usr/bin/perl -I " perl5lib)))
|
||||
|
|
|
@ -86,14 +86,15 @@ (define-public markdown
|
|||
"/bin/unzip")))
|
||||
(mkdir-p out)
|
||||
(with-directory-excursion out
|
||||
(system* unzip source)
|
||||
(invoke unzip source)
|
||||
(mkdir "bin")
|
||||
(mkdir-p "share/doc")
|
||||
(rename-file "Markdown_1.0.1/Markdown.pl" "bin/markdown")
|
||||
(rename-file "Markdown_1.0.1/Markdown Readme.text"
|
||||
"share/doc/README")
|
||||
(patch-shebang "bin/markdown" (list perlbd))
|
||||
(delete-file-recursively "Markdown_1.0.1"))))))
|
||||
(delete-file-recursively "Markdown_1.0.1"))
|
||||
#t))))
|
||||
(native-inputs `(("unzip" ,unzip)))
|
||||
(inputs `(("perl" ,perl)))
|
||||
(home-page "http://daringfireball.net/projects/markdown")
|
||||
|
|
|
@ -1523,7 +1523,8 @@ (define-public mate
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs
|
||||
;; TODO: Add more packages
|
||||
`(("at-spi2-core" ,at-spi2-core)
|
||||
|
|
|
@ -96,7 +96,8 @@ (define (cross-pkg-config target)
|
|||
;; expect it.
|
||||
(mkdir-p (string-append out "/share"))
|
||||
(symlink (string-append in "/share/aclocal")
|
||||
(string-append out "/share/aclocal"))))))
|
||||
(string-append out "/share/aclocal"))
|
||||
#t))))
|
||||
(native-inputs `(("pkg-config" ,%pkg-config)))
|
||||
|
||||
;; Ignore native inputs, and set `PKG_CONFIG_PATH' for target inputs.
|
||||
|
|
|
@ -1805,7 +1805,8 @@ (define-public python-pyqt+qscintilla
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs
|
||||
`(("python-pyqt" ,python-pyqt)
|
||||
("python-qscintilla" ,python-qscintilla)))
|
||||
|
|
|
@ -206,7 +206,8 @@ (define rust-bootstrap
|
|||
;; binaries expect a compiler called cc. Thus symlink gcc
|
||||
;; to cc.
|
||||
(symlink (string-append gcc "/bin/gcc")
|
||||
(string-append out "/bin/cc"))))))
|
||||
(string-append out "/bin/cc"))
|
||||
#t))))
|
||||
(home-page "https://www.rust-lang.org")
|
||||
(synopsis "Rust bootstrapping meta package")
|
||||
(description "Meta package for a rust environment. Provides pre-compiled
|
||||
|
|
|
@ -846,7 +846,8 @@ (define-public scheme48-rx
|
|||
"/rx")))
|
||||
(chdir (assoc-ref %build-inputs "source"))
|
||||
(mkdir-p share)
|
||||
(copy-recursively "." share)))))
|
||||
(copy-recursively "." share)
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("source" ,source)
|
||||
("scheme48" ,scheme48)))
|
||||
|
|
|
@ -324,7 +324,8 @@ (define* (sdl-union #:optional (packages (list sdl sdl-gfx sdl-net sdl-ttf
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
|
|
@ -617,7 +617,7 @@ (define-public r
|
|||
(name "r")
|
||||
(source #f)
|
||||
(build-system trivial-build-system)
|
||||
(arguments '(#:builder (mkdir %output)))
|
||||
(arguments '(#:builder (begin (mkdir %output) #t)))
|
||||
(propagated-inputs
|
||||
`(("r-minimal" ,r-minimal)
|
||||
("r-boot" ,r-boot)
|
||||
|
|
|
@ -335,7 +335,8 @@ (define* (go-github-com-gogo-protobuf-union
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
@ -771,7 +772,8 @@ (define* (go-github-com-vitrun-qart-union
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
@ -894,7 +896,8 @@ (define* (go-golang-org-x-crypto-union #:optional
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
@ -1221,7 +1224,8 @@ (define* (go-golang-org-x-net-union #:optional
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
@ -1435,7 +1439,8 @@ (define* (go-golang-org-x-text-union #:optional
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
@ -1968,7 +1973,8 @@ (define* (go-github-com-prometheus-union
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs (map (lambda (package)
|
||||
(list (package-name package) package))
|
||||
packages))
|
||||
|
|
|
@ -3519,9 +3519,10 @@ (define-public texlive-fonts-iwona
|
|||
"/share/texmf-dist/"))
|
||||
(unzip (string-append (assoc-ref %build-inputs "unzip")
|
||||
"/bin/unzip")))
|
||||
(system* unzip (assoc-ref %build-inputs "source"))
|
||||
(invoke unzip (assoc-ref %build-inputs "source"))
|
||||
(mkdir-p target)
|
||||
(copy-recursively "iwona" target)))))
|
||||
(copy-recursively "iwona" target)
|
||||
#t))))
|
||||
(native-inputs
|
||||
`(("unzip" ,unzip)))
|
||||
(home-page "http://jmn.pl/en/kurier-i-iwona/")
|
||||
|
@ -4021,7 +4022,8 @@ (define-public texlive
|
|||
(for-each
|
||||
(lambda (name)
|
||||
(symlink (string-append texmf "/share/" name) name))
|
||||
'("texmf-dist" "texmf-var"))))))))
|
||||
'("texmf-dist" "texmf-var"))))
|
||||
#t))))
|
||||
(synopsis "TeX Live, a package of the TeX typesetting system")
|
||||
(description
|
||||
"TeX Live provides a comprehensive TeX document production system.
|
||||
|
|
|
@ -5549,8 +5549,8 @@ (define-public rss-bridge
|
|||
"PATH" '("bin") (map (match-lambda ((_ . input) input))
|
||||
%build-inputs))
|
||||
(mkdir-p share-rss-bridge)
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source")
|
||||
"--strip-components" "1" "-C" share-rss-bridge)
|
||||
(invoke "tar" "xvf" (assoc-ref %build-inputs "source")
|
||||
"--strip-components" "1" "-C" share-rss-bridge)
|
||||
#t))))
|
||||
(home-page "https://github.com/RSS-Bridge/rss-bridge")
|
||||
(synopsis "Generate Atom feeds for social networking websites")
|
||||
|
@ -6340,7 +6340,8 @@ (define-public cat-avatar-generator
|
|||
"if(isset($_SERVER['CACHE_DIR']))
|
||||
$cachepath = $_SERVER['CACHE_DIR'];
|
||||
else
|
||||
die('You need to set the CACHE_DIR variable first.');"))))))
|
||||
die('You need to set the CACHE_DIR variable first.');"))
|
||||
#t))))
|
||||
(home-page "https://framagit.org/Deevad/cat-avatar-generator")
|
||||
(synopsis "Random avatar generator")
|
||||
(description "Cat avatar generator is a generator of cat pictures optimised
|
||||
|
|
|
@ -255,7 +255,8 @@ (define-public wine-staging-patchset-data
|
|||
"/patches/gitapply.sh") (("/usr/bin/env") env))
|
||||
(mkdir-p wine-staging)
|
||||
(copy-recursively (string-append "wine-staging-" ,version)
|
||||
wine-staging)))))
|
||||
wine-staging)
|
||||
#t))))
|
||||
(home-page "https://github.com/wine-staging")
|
||||
(synopsis "Patchset for Wine")
|
||||
(description
|
||||
|
|
|
@ -718,7 +718,8 @@ (define-public xfce
|
|||
(match %build-inputs
|
||||
(((names . directories) ...)
|
||||
(union-build (assoc-ref %outputs "out")
|
||||
directories))))))
|
||||
directories)
|
||||
#t)))))
|
||||
(inputs
|
||||
`(("exo" ,exo)
|
||||
("garcon" ,garcon)
|
||||
|
|
Loading…
Reference in a new issue