nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: Adjust formatting as recommended by 'guix lint'. 

* gnu/packages/aidc.scm (barcode, qrencode),
  gnu/packages/bash.scm (bash, bash-completion),
  gnu/packages/busybox.scm (busybox),
  gnu/packages/cdrom.scm (cdparanoia),
  gnu/packages/cmake.scm (cmake),
  gnu/packages/conkeror.scm (conkeror),
  gnu/packages/cook.scm (cook),
  gnu/packages/curl.scm (curl),
  gnu/packages/docbook.scm (docbook-xsl),
  gnu/packages/enlightenment.scm (enlightenment),
  gnu/packages/games.scm (abbaye),
  gnu/packages/geeqie.scm (exiv2),
  gnu/packages/gimp.scm (gegl),
  gnu/packages/gl.scm (glu, freeglut, ftgl),
  gnu/packages/glib.scm (glib),
  gnu/packages/gnome.scm (orbit2, gconf, geocode-glib),
  gnu/packages/gstreamer.scm (gstreamer, gst-plugins-base),
  gnu/packages/linux.scm (util-linux),
  gnu/packages/lisp.scm (gcl, ecl),
  gnu/packages/maths.scm (gnuplot, hdf5),
  gnu/packages/ssh.scm (dropbear),
  gnu/packages/web.scm (json-c): Remove tabulations and trailing
  white spaces or reformat to fit within 80 columns.
* gnu/packages/audio.scm (aubio),
  gnu/packages/emacs.scm (emacs-s),
  gnu/packages/engineering.scm (geda-gaf),
  gnu/packages/games.scm (dosbox),
  gnu/packages/gnome.scm (gusb),
  gnu/packages/gtk.scm (gtk+),
  gnu/packages/guile.scm (guile-wisp),
  gnu/packages/hurd.scm (hurd-headers),
  gnu/packages/wm.scm (i3-wm): Adjust synopsis or description.
This commit is contained in:
宋文武 2015-11-13 22:50:36 +08:00
parent d777e048b5
commit a124bbd2f4
29 changed files with 122 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/aidc.scm
View File

@ -33,9 +33,10 @@
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/barcode/barcode-" (uri (string-append "mirror://gnu/barcode/barcode-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (base32 (sha256
"1indapql5fjz0bysyc88cmc54y8phqrbi7c76p71fgjp45jcyzp8")))) (base32
"1indapql5fjz0bysyc88cmc54y8phqrbi7c76p71fgjp45jcyzp8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(synopsis "Convert text strings to printed bars in various standards") (synopsis "Convert text strings to printed bars in various standards")
(description "GNU Barcode is a flexible tool to produce printed barcodes (description "GNU Barcode is a flexible tool to produce printed barcodes
@ -53,7 +54,7 @@ formats.")
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"http://fukuchi.org/works/qrencode/qrencode-" version "http://fukuchi.org/works/qrencode/qrencode-" version
".tar.bz2")) ".tar.bz2"))
(sha256 (base32 (sha256 (base32
"163sb580p570p27imc6jhkfdw15kzp8vy1jq92nip1rwa63i9myz")))) "163sb580p570p27imc6jhkfdw15kzp8vy1jq92nip1rwa63i9myz"))))
(build-system gnu-build-system) (build-system gnu-build-system)

2
gnu/packages/audio.scm
View File

@ -128,7 +128,7 @@ Filter) modules follow the convention of 1V / Octave.")
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(home-page "http://aubio.org/") (home-page "http://aubio.org/")
(synopsis "A library for audio labelling") (synopsis "Library for audio labelling")
(description (description
"aubio is a tool designed for the extraction of annotations from audio "aubio is a tool designed for the extraction of annotations from audio
signals. Its features include segmenting a sound file before each of its signals. Its features include segmenting a sound file before each of its

8
gnu/packages/bash.scm
View File

@ -191,7 +191,7 @@ number/base32-hash tuples, directly usable in the 'patch-series' form."
;; Bash is reportedly not parallel-safe. See, for instance, ;; Bash is reportedly not parallel-safe. See, for instance,
;; <http://patches.openembedded.org/patch/32745/> and ;; <http://patches.openembedded.org/patch/32745/> and
;; <http://git.buildroot.net/buildroot/commit/?h=79e2d802ae7e376a413c02097790493e1f65c3a4>. ;; <http://git.buildroot.net/buildroot/commit/?h=79e2d802a>.
#:parallel-build? #f #:parallel-build? #f
#:parallel-tests? #f #:parallel-tests? #f
@ -290,8 +290,10 @@ without modification.")
(completions (string-append out (completions (string-append out
"/share/bash-completion" "/share/bash-completion"
"/completions")) "/completions"))
(already (find-files (string-append util-linux (already (find-files
"/etc/bash_completion.d")))) (string-append
util-linux
"/etc/bash_completion.d"))))
(with-directory-excursion completions (with-directory-excursion completions
(for-each (lambda (file) (for-each (lambda (file)
(when (file-exists? file) (when (file-exists? file)

10
gnu/packages/busybox.scm
View File

@ -40,12 +40,12 @@
"12v7nri79v8gns3inmz4k24q7pcnwi00hybs0wddfkcy1afh42xf")))) "12v7nri79v8gns3inmz4k24q7pcnwi00hybs0wddfkcy1afh42xf"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (alist-replace
'configure 'configure
(lambda _ (zero? (system* "make" "defconfig"))) (lambda _ (zero? (system* "make" "defconfig")))
(alist-replace (alist-replace
'check 'check
(lambda _ (lambda _
(substitute* '("testsuite/du/du-s-works" (substitute* '("testsuite/du/du-s-works"
"testsuite/du/du-works") "testsuite/du/du-works")
@ -70,7 +70,7 @@
;; So mark it with SKIP_KNOWN_BUGS like the others. ;; So mark it with SKIP_KNOWN_BUGS like the others.
;; Presumably it wasn't known at the time of release ... ;; Presumably it wasn't known at the time of release ...
;; (It is strange that they release software which they know to have bugs) ;; (It is strange that they release software which they know to have bugs)
(("testing \"grep -w \\^str doesn't match str not at the beginning\"") (("testing \"grep -w \\^str doesn't match str not at the beginning\"")
"test x\"$SKIP_KNOWN_BUGS\" = x\"\" && testing \"grep -w ^str doesn't match str not at the beginning\"")) "test x\"$SKIP_KNOWN_BUGS\" = x\"\" && testing \"grep -w ^str doesn't match str not at the beginning\""))
;; This test cannot possibly pass. ;; This test cannot possibly pass.
@ -79,7 +79,7 @@
(delete-file "testsuite/which/which-uses-default-path") (delete-file "testsuite/which/which-uses-default-path")
(rmdir "testsuite/which") (rmdir "testsuite/which")
(zero? (system* "make" (zero? (system* "make"
;; "V=1" ;; "V=1"
"SKIP_KNOWN_BUGS=1" "SKIP_KNOWN_BUGS=1"
"SKIP_INTERNET_TESTS=1" "SKIP_INTERNET_TESTS=1"

3
gnu/packages/cdrom.scm
View File

@ -157,7 +157,8 @@ files.")
(version "10.2") (version "10.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://downloads.xiph.org/releases/cdparanoia/cdparanoia-III-" (uri (string-append "http://downloads.xiph.org/releases/"
"cdparanoia/cdparanoia-III-"
version ".src.tgz")) version ".src.tgz"))
(sha256 (sha256
(base32 (base32

3
gnu/packages/cmake.scm
View File

@ -66,7 +66,8 @@
"Source/cmExecProgramCommand.cxx" "Source/cmExecProgramCommand.cxx"
"Utilities/cmbzip2/Makefile-libbz2_so" "Utilities/cmbzip2/Makefile-libbz2_so"
"Utilities/Release/release_cmake.cmake" "Utilities/Release/release_cmake.cmake"
"Utilities/cmlibarchive/libarchive/archive_write_set_format_shar.c" "Utilities/cmlibarchive/libarchive/\
archive_write_set_format_shar.c"
"Tests/CMakeLists.txt" "Tests/CMakeLists.txt"
"Tests/RunCMake/File_Generate/RunCMakeTest.cmake") "Tests/RunCMake/File_Generate/RunCMakeTest.cmake")
(("/bin/sh") (which "sh")))) (("/bin/sh") (which "sh"))))

8
gnu/packages/conkeror.scm
View File

@ -76,7 +76,7 @@ services (Search, Gmail, Maps, Reader, etc.), Del.icio.us, Reddit, Last.fm and
YouTube. For easier editing of form fields, it can spawn external editors.") YouTube. For easier editing of form fields, it can spawn external editors.")
(home-page "http://conkeror.org") (home-page "http://conkeror.org")
;; Conkeror is triple licensed. ;; Conkeror is triple licensed.
(license (list license:gpl2 (license (list
license:lgpl2.1 ;; MPL 1.1 -- this license is not GPL compatible
;; MPL 1.1 -- this license is not GPL compatible license:gpl2
)))) license:lgpl2.1))))

8
gnu/packages/cook.scm
View File

@ -35,17 +35,17 @@
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"http://miller.emu.id.au/pmiller/software/cook/cook-" version "http://miller.emu.id.au/pmiller/software/cook/cook-" version
".tar.gz")) ".tar.gz"))
(sha256 (sha256
(base32 (base32
"104saqnqql1l7zr2pm3f718fdky3ds8j07c6xvwrs1rfkhrw58yw")))) "104saqnqql1l7zr2pm3f718fdky3ds8j07c6xvwrs1rfkhrw58yw"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:parallel-build? #f ; There are some nasty racy rules in the Makefile. `(#:parallel-build? #f ; There are some nasty racy rules in the Makefile.
#:phases #:phases
(alist-cons-before (alist-cons-before
'configure 'pre-conf 'configure 'pre-conf
(lambda _ (lambda _
(substitute* (append '("common/env.c") (substitute* (append '("common/env.c")
(find-files "test" "\\.sh")) (find-files "test" "\\.sh"))
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
@ -57,7 +57,7 @@
;; which plays havoc with this test, for which correct timestamps ;; which plays havoc with this test, for which correct timestamps
;; are very important. Adding the U flag undoes the effect of ;; are very important. Adding the U flag undoes the effect of
;; --enable-deterministic-archives and allows this test to work ;; --enable-deterministic-archives and allows this test to work
;; again. ;; again.
(substitute* "test/00/t0077a.sh" (substitute* "test/00/t0077a.sh"
(("ar qc") "ar qcU")) (("ar qc") "ar qcU"))

4
gnu/packages/curl.scm
View File

@ -95,8 +95,8 @@
;; test 1510...[HTTP GET connection cache limit (CURLOPT_MAXCONNECTS)] ;; test 1510...[HTTP GET connection cache limit (CURLOPT_MAXCONNECTS)]
;; ;;
;; 1510: output (log/stderr1510) FAILED: ;; 1510: output (log/stderr1510) FAILED:
;; --- log/check-expected 2015-06-27 07:45:53.166720834 +0000 ;; --- log/check-expected 2015-06-27 07:45:53.166720834 +0000
;; +++ log/check-generated 2015-06-27 07:45:53.166720834 +0000 ;; +++ log/check-generated 2015-06-27 07:45:53.166720834 +0000
;; @@ -1,5 +1,5 @@ ;; @@ -1,5 +1,5 @@
;; * Connection #0 to host server1.example.com left intact[LF] ;; * Connection #0 to host server1.example.com left intact[LF]
;; * Connection #1 to host server2.example.com left intact[LF] ;; * Connection #1 to host server2.example.com left intact[LF]

5
gnu/packages/docbook.scm
View File

@ -134,8 +134,9 @@ by no means limited to these applications.) This package provides XML DTDs.")
(string-append xsl "/" name-version)) (string-append xsl "/" name-version))
(substitute* (string-append xsl "/" name-version "/catalog.xml") (substitute* (string-append xsl "/" name-version "/catalog.xml")
(("rewritePrefix=\"./") (("rewritePrefix=\"./")
(string-append "rewritePrefix=\"file://" xsl "/" name-version "/"))))) (string-append "rewritePrefix=\"file://" xsl "/"
name-version "/")))))
#:modules ((guix build utils)))) #:modules ((guix build utils))))
(native-inputs `(("bzip2" ,bzip2) (native-inputs `(("bzip2" ,bzip2)
("tar" ,tar))) ("tar" ,tar)))

2
gnu/packages/emacs.scm
View File

@ -1023,7 +1023,7 @@ and stored in memory.")
(lambda _ (lambda _
(zero? (system* "./run-tests.sh"))))))) (zero? (system* "./run-tests.sh")))))))
(home-page "https://github.com/magnars/s.el") (home-page "https://github.com/magnars/s.el")
(synopsis "Emacs string manipulation library.") (synopsis "Emacs string manipulation library")
(description "This package provides an Emacs library for manipulating (description "This package provides an Emacs library for manipulating
strings.") strings.")
(license license:gpl3+))) (license license:gpl3+)))

2
gnu/packages/engineering.scm
View File

@ -140,7 +140,7 @@ plans and designs.")
(home-page "http://geda-project.org/") (home-page "http://geda-project.org/")
(synopsis "Schematic capture, netlister, symbols, symbol checker, and utils") (synopsis "Schematic capture, netlister, symbols, symbol checker, and utils")
(description (description
"gaf stands for “gschem and friends”. It is a subset of the entire tool "Gaf stands for “gschem and friends”. It is a subset of the entire tool
suite grouped together under the gEDA name. gEDA/gaf is a collection of tools suite grouped together under the gEDA name. gEDA/gaf is a collection of tools
which currently includes: gschem, a schematic capture program; gnetlist, a which currently includes: gschem, a schematic capture program; gnetlist, a
netlist generation program; gsymcheck, a syntax checker for schematic symbols; netlist generation program; gsymcheck, a syntax checker for schematic symbols;

2
gnu/packages/enlightenment.scm
View File

@ -277,7 +277,7 @@ Libraries with some extra bells and whistles.")
(string-append "https://download.enlightenment.org/rel/apps/" (string-append "https://download.enlightenment.org/rel/apps/"
name "/" name "-" version ".tar.xz")) name "/" name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"098bdx9qmv1yqqwfydrzs7fvbnhsf3vaib9pmqsyg4ihgqrkrwjm")))) "098bdx9qmv1yqqwfydrzs7fvbnhsf3vaib9pmqsyg4ihgqrkrwjm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs

6
gnu/packages/games.scm
View File

@ -158,8 +158,8 @@ scriptable with Guile.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://abbaye-for-linux.googlecode.com/files/abbaye-for-linux-src-" (uri (string-append "http://abbaye-for-linux.googlecode.com/files/"
version ".tar.gz")) "abbaye-for-linux-src-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1wgvckgqa2084rbskxif58wbb83xbas8s1i8s7d57xbj08ryq8rk")))) "1wgvckgqa2084rbskxif58wbb83xbas8s1i8s7d57xbj08ryq8rk"))))
@ -1089,7 +1089,7 @@ next campaign.")
("glu" ,glu) ("glu" ,glu)
("mesa" ,mesa))) ("mesa" ,mesa)))
(home-page "http://www.dosbox.com") (home-page "http://www.dosbox.com")
(synopsis "x86 emulator with CGA/EGA/VGA/etc. graphics and sound") (synopsis "X86 emulator with CGA/EGA/VGA/etc. graphics and sound")
(description "DOSBox is a DOS-emulator that uses the SDL library. DOSBox (description "DOSBox is a DOS-emulator that uses the SDL library. DOSBox
also emulates CPU:286/386 realmode/protected mode, Directory also emulates CPU:286/386 realmode/protected mode, Directory
FileSystem/XMS/EMS, Tandy/Hercules/CGA/EGA/VGA/VESA graphics, a FileSystem/XMS/EMS, Tandy/Hercules/CGA/EGA/VGA/VESA graphics, a

3
gnu/packages/geeqie.scm
View File

@ -53,7 +53,8 @@ and XMP metadata of images in various formats.")
;; Files under `xmpsdk' are a copy of Adobe's XMP SDK, licensed under the ;; Files under `xmpsdk' are a copy of Adobe's XMP SDK, licensed under the
;; 3-clause BSD license: <http://www.adobe.com/devnet/xmp/sdk/eula.html>. ;; 3-clause BSD license: <http://www.adobe.com/devnet/xmp/sdk/eula.html>.
;; The core is GPLv2+: <https://launchpad.net/ubuntu/precise/+source/exiv2/+copyright>. ;; The core is GPLv2+:
;; <https://launchpad.net/ubuntu/precise/+source/exiv2/+copyright>.
(license l:gpl2+))) (license l:gpl2+)))
(define-public geeqie (define-public geeqie

2
gnu/packages/gimp.scm
View File

@ -68,7 +68,7 @@ provided as well as the framework to add new color models and data types.")
(version "0.2.0") (version "0.2.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (string-append "http://download.gimp.org/pub/gegl/" (uri (list (string-append "http://download.gimp.org/pub/gegl/"
(string-take version 3) (string-take version 3)
"/" name "-" version ".tar.bz2"))) "/" name "-" version ".tar.bz2")))
(sha256 (sha256

53
gnu/packages/gl.scm
View File

@ -49,14 +49,15 @@
(name "glu") (name "glu")
(version "9.0.0") (version "9.0.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "ftp://ftp.freedesktop.org/pub/mesa/glu/glu-" (uri (string-append "ftp://ftp.freedesktop.org/pub/mesa/glu/glu-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 "0r72yyhj09x3krn3kn629jqbwyq50ji8w5ri2pn6zwrk35m4g1s3")))) (base32
"0r72yyhj09x3krn3kn629jqbwyq50ji8w5ri2pn6zwrk35m4g1s3"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(propagated-inputs (propagated-inputs
`(("mesa" ,mesa))) ; according to glu.pc `(("mesa" ,mesa))) ; according to glu.pc
(home-page "http://www.opengl.org/archives/resources/faq/technical/glu.htm") (home-page "http://www.opengl.org/archives/resources/faq/technical/glu.htm")
(synopsis "Mesa OpenGL Utility library") (synopsis "Mesa OpenGL Utility library")
(description (description
@ -77,20 +78,22 @@ as ASCII text.")
(name "freeglut") (name "freeglut")
(version "3.0.0") (version "3.0.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/project/freeglut/freeglut/" (uri (string-append
version "/freeglut-" version ".tar.gz")) "mirror://sourceforge/project/freeglut/freeglut/"
(sha256 version "/freeglut-" version ".tar.gz"))
(base32 "18knkyczzwbmyg8hr4zh8a1i5ga01np2jzd1rwmsh7mh2n2vwhra")))) (sha256
(base32
"18knkyczzwbmyg8hr4zh8a1i5ga01np2jzd1rwmsh7mh2n2vwhra"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments '(#:tests? #f)) ; no test target (arguments '(#:tests? #f)) ; no test target
(inputs `(("mesa" ,mesa) (inputs `(("mesa" ,mesa)
("libx11" ,libx11) ("libx11" ,libx11)
("libxi" ,libxi) ("libxi" ,libxi)
("libxrandr" ,libxrandr) ("libxrandr" ,libxrandr)
("libxxf86vm" ,libxxf86vm) ("libxxf86vm" ,libxxf86vm)
("inputproto" ,inputproto) ("inputproto" ,inputproto)
("xinput" ,xinput))) ("xinput" ,xinput)))
(propagated-inputs (propagated-inputs
;; Headers from Mesa and GLU are needed. ;; Headers from Mesa and GLU are needed.
`(("glu" ,glu) `(("glu" ,glu)
@ -116,17 +119,19 @@ the X-Consortium license.")
(name "ftgl") (name "ftgl")
(version "2.1.3-rc5") (version "2.1.3-rc5")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/project/ftgl/FTGL%20Source/2.1.3~rc5/ftgl-" (uri (string-append
version ".tar.gz")) "mirror://sourceforge/project/ftgl/FTGL%20Source/2.1.3~rc5/"
(sha256 "ftgl-" version ".tar.gz"))
(base32 "0nsn4s6vnv5xcgxcw6q031amvh2zfj2smy1r5mbnjj2548hxcn2l")))) (sha256
(base32
"0nsn4s6vnv5xcgxcw6q031amvh2zfj2smy1r5mbnjj2548hxcn2l"))))
(build-system gnu-build-system) (build-system gnu-build-system)
;; The pkg-config file lists "freetype2" as Requires.private. ;; The pkg-config file lists "freetype2" as Requires.private.
(propagated-inputs `(("freetype" ,freetype))) (propagated-inputs `(("freetype" ,freetype)))
(inputs `(("libx11" ,libx11) (inputs `(("libx11" ,libx11)
("mesa" ,mesa) ("mesa" ,mesa)
("glu" ,glu))) ("glu" ,glu)))
(home-page "http://ftgl.sourceforge.net") (home-page "http://ftgl.sourceforge.net")
(synopsis "Font rendering library for OpenGL applications") (synopsis "Font rendering library for OpenGL applications")
(description (description

3
gnu/packages/glib.scm
View File

@ -188,7 +188,8 @@ shared NFS home directories.")
;; Disable a test that requires dbus. ;; Disable a test that requires dbus.
(substitute* "gio/tests/gdbus-serialization.c" (substitute* "gio/tests/gdbus-serialization.c"
(("g_test_add_func \\(\"/gdbus/message-serialize/double-array\", test_double_array\\);" all) (("g_test_add_func \
\\(\"/gdbus/message-serialize/double-array\", test_double_array\\);" all)
(string-append "/* " all " */")))) (string-append "/* " all " */"))))
%standard-phases) %standard-phases)

44
gnu/packages/gnome.scm
View File

@ -930,23 +930,26 @@ functionality was designed to be as reusable and portable as possible.")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (let ((upstream-name "ORBit2")) (uri (let ((upstream-name "ORBit2"))
(string-append "mirror://gnome/sources/" upstream-name "/" (string-append "mirror://gnome/sources/" upstream-name "/"
(version-major+minor version) "/" (version-major+minor version) "/"
upstream-name "-" version ".tar.bz2"))) upstream-name "-" version ".tar.bz2")))
(sha256 (sha256
(base32 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam")))) (base32
"0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
;; The programmer kindly gives us a hook to turn off deprecation warnings ... `(#:configure-flags
`(#:configure-flags '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS") ;; The programmer kindly gives us a hook to turn off deprecation
;; ... which they then completly ignore !! ;; warnings ...
#:phases '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
(alist-cons-before ;; ... which they then completly ignore !!
'configure 'ignore-deprecations #:phases
(lambda _ (alist-cons-before
(substitute* "linc2/src/Makefile.in" 'configure 'ignore-deprecations
(("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))) (lambda _
%standard-phases))) (substitute* "linc2/src/Makefile.in"
(("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))
%standard-phases)))
(inputs `(("glib" ,glib) (inputs `(("glib" ,glib)
("libidl" ,libidl))) ("libidl" ,libidl)))
(native-inputs (native-inputs
@ -955,9 +958,9 @@ functionality was designed to be as reusable and portable as possible.")
(synopsis "CORBA 2.4-compliant Object Request Broker") (synopsis "CORBA 2.4-compliant Object Request Broker")
(description "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb) (description "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
featuring mature C, C++ and Python bindings.") featuring mature C, C++ and Python bindings.")
;; Licence notice is unclear. The Web page simply say "GPL" without giving a version. ;; Licence notice is unclear. The Web page simply say "GPL" without giving
;; SOME of the code files have licence notices for GPLv2+ ;; a version. SOME of the code files have licence notices for GPLv2+.
;; The tarball contains files of the text of GPLv2 and LGPLv2 ;; The tarball contains files of the text of GPLv2 and LGPLv2.
(license license:gpl2+))) (license license:gpl2+)))
@ -1014,9 +1017,9 @@ use in GNOME applications, built on top of CORBA.")
(version "3.2.6") (version "3.2.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
(let ((upstream-name "GConf")) (let ((upstream-name "GConf"))
(string-append "mirror://gnome/sources/" upstream-name "/" (string-append "mirror://gnome/sources/" upstream-name "/"
(version-major+minor version) "/" (version-major+minor version) "/"
upstream-name "-" version ".tar.xz"))) upstream-name "-" version ".tar.xz")))
(sha256 (sha256
@ -2308,8 +2311,7 @@ permission from user.")
(arguments (arguments
`(;; The tests want to write to $HOME/.cache/geocode-glib, which doesn't `(;; The tests want to write to $HOME/.cache/geocode-glib, which doesn't
;; work for the builder. Punt. ;; work for the builder. Punt.
#:tests? #f #:tests? #f))
))
(native-inputs (native-inputs
`(("glib:bin" ,glib "bin") ; for glib-mkenums `(("glib:bin" ,glib "bin") ; for glib-mkenums
("gobject-introspection" ,gobject-introspection) ("gobject-introspection" ,gobject-introspection)
@ -3293,7 +3295,7 @@ DAV, and others.")
(and (zero? (system* "gtkdocize")) (and (zero? (system* "gtkdocize"))
(zero? (system* "autoreconf" "-vif")))))))) (zero? (system* "autoreconf" "-vif"))))))))
(home-page "https://github/hughsie/libgusb") (home-page "https://github/hughsie/libgusb")
(synopsis "A GLib binding for libusb1") (synopsis "GLib binding for libusb1")
(description (description
"GUsb is a GObject wrapper for libusb1 that makes it easy to do "GUsb is a GObject wrapper for libusb1 that makes it easy to do
asynchronous control, bulk and interrupt transfers with proper cancellation asynchronous control, bulk and interrupt transfers with proper cancellation

9
gnu/packages/gstreamer.scm
View File

@ -87,8 +87,9 @@ arrays of data.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://gstreamer.freedesktop.org/src/gstreamer/gstreamer-" (uri (string-append
version ".tar.xz")) "http://gstreamer.freedesktop.org/src/gstreamer/gstreamer-"
version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"172w1bpnkn6mm1wi37n03apdbb6cdkykhzjf1vfxchcd7hhkyflp")))) "172w1bpnkn6mm1wi37n03apdbb6cdkykhzjf1vfxchcd7hhkyflp"))))
@ -134,8 +135,8 @@ This package provides the core library and elements.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://gstreamer.freedesktop.org/src/gst-plugins-base/gst-plugins-base-" (uri (string-append "http://gstreamer.freedesktop.org/src/" name "/"
version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"18sbyjcp281zb3bsqji3pglsdsxi0s6ai7rx90sx8cpflkxdqcwm")))) "18sbyjcp281zb3bsqji3pglsdsxi0s6ai7rx90sx8cpflkxdqcwm"))))

2
gnu/packages/gtk.scm
View File

@ -1108,7 +1108,7 @@ information.")
(home-page "http://www.gtk.org/gtk-doc/") (home-page "http://www.gtk.org/gtk-doc/")
(synopsis "Documentation generator from C source code") (synopsis "Documentation generator from C source code")
(description (description
"GTK-Doc generates API documentation from comments added to C code. It is "GTK-Doc generates API documentation from comments added to C code. It is
typically used to document the public API of GTK+ and GNOME libraries, but it typically used to document the public API of GTK+ and GNOME libraries, but it
can also be used to document application code.") can also be used to document application code.")
(license license:gpl2+))) (license license:gpl2+)))

4
gnu/packages/guile.scm
View File

@ -796,8 +796,8 @@ key-value cache and store.")
(inputs (inputs
`(("guile" ,guile-2.0) `(("guile" ,guile-2.0)
("python" ,python))) ("python" ,python)))
(synopsis "wisp is a whitespace to lisp syntax for Guile") (synopsis "Whitespace to lisp syntax for Guile")
(description "wisp is a syntax for Guile which provides a Python-like (description "Wisp is a syntax for Guile which provides a Python-like
whitespace-significant language. It may be easier on the eyes for some whitespace-significant language. It may be easier on the eyes for some
users and in some situations.") users and in some situations.")
(license gpl3+))) (license gpl3+)))

2
gnu/packages/hurd.scm
View File

@ -182,6 +182,6 @@ Library and other user programs.")
(home-page "http://www.gnu.org/software/hurd/hurd.html") (home-page "http://www.gnu.org/software/hurd/hurd.html")
(synopsis "GNU Hurd libraries") (synopsis "GNU Hurd libraries")
(description (description
"This package provides libihash, needed to build the GNU C "This package provides libihash, needed to build the GNU C
Library for GNU/Hurd.") Library for GNU/Hurd.")
(license gpl2+))) (license gpl2+)))

2
gnu/packages/linux.scm
View File

@ -572,7 +572,7 @@ slabtop, and skill.")
(arguments (arguments
'(;; util-linux is not the preferred source for some of the libraries and '(;; util-linux is not the preferred source for some of the libraries and
;; commands, so disable them (see, e.g., ;; commands, so disable them (see, e.g.,
;; <http://git.buildroot.net/buildroot/commit/?id=e1ffc2f791b336339909c90559b7db40b455f172>.) ;; <http://git.buildroot.net/buildroot/commit/?id=e1ffc2f791b33633>.)
#:configure-flags '("--disable-libblkid" #:configure-flags '("--disable-libblkid"
"--disable-libuuid" "--disable-uuidd" "--disable-libuuid" "--disable-uuidd"
"--disable-fsck" "--disable-fsck"

14
gnu/packages/lisp.scm
View File

@ -59,15 +59,16 @@
#:configure-flags '("--enable-ansi") ; required for use by the maxima package #:configure-flags '("--enable-ansi") ; required for use by the maxima package
#:phases (alist-cons-before #:phases (alist-cons-before
'configure 'pre-conf 'configure 'pre-conf
(lambda _ (lambda _
;; Patch bug when building readline support. This bug was ;; Patch bug when building readline support. This bug was
;; also observed by Debian ;; also observed by Debian
;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=741819 ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=741819
(substitute* "o/gcl_readline.d" (substitute* "o/gcl_readline.d"
(("rl_attempted_completion_function = \\(CPPFunction \\*\\)rl_completion;") (("rl_attempted_completion_function = \
\\(CPPFunction \\*\\)rl_completion;")
"rl_attempted_completion_function = rl_completion;")) "rl_attempted_completion_function = rl_completion;"))
(substitute* (substitute*
(append (append
'("pcl/impl/kcl/makefile.akcl" '("pcl/impl/kcl/makefile.akcl"
"add-defs" "add-defs"
"unixport/makefile.dos" "unixport/makefile.dos"
@ -115,8 +116,7 @@ interface to the Tk widget system.")
("libgc" ,libgc) ("libgc" ,libgc)
("libffi" ,libffi))) ("libffi" ,libffi)))
(arguments (arguments
'(#:tests? #f '(;; During 'make check', ECL fails to initialize with "protocol not
;; During 'make check', ECL fails to initialize with "protocol not
;; supported", presumably because /etc/protocols is missing in the ;; supported", presumably because /etc/protocols is missing in the
;; build environment. See <http://sourceforge.net/p/ecls/bugs/300/>. ;; build environment. See <http://sourceforge.net/p/ecls/bugs/300/>.
;; ;;
@ -139,7 +139,7 @@ interface to the Tk widget system.")
;; (string-append ;; (string-append
;; "ECL=" (assoc-ref outputs "out") "/bin/ecl")))) ;; "ECL=" (assoc-ref outputs "out") "/bin/ecl"))))
;; rearranged-phases)) ;; rearranged-phases))
)) #:tests? #f))
(home-page "http://ecls.sourceforge.net/") (home-page "http://ecls.sourceforge.net/")
(synopsis "Embeddable Common Lisp") (synopsis "Embeddable Common Lisp")
(description "ECL is an implementation of the Common Lisp language as (description "ECL is an implementation of the Common Lisp language as

6
gnu/packages/maths.scm
View File

@ -363,7 +363,7 @@ plotting engine by third-party applications like Octave.")
;; X11 Style with the additional restriction that derived works may only be ;; X11 Style with the additional restriction that derived works may only be
;; distributed as patches to the original. ;; distributed as patches to the original.
(license (license:fsf-free (license (license:fsf-free
"http://gnuplot.cvs.sourceforge.net/gnuplot/gnuplot/Copyright")))) "http://gnuplot.cvs.sourceforge.net/gnuplot/gnuplot/Copyright"))))
(define-public hdf5 (define-public hdf5
(package (package
@ -406,10 +406,10 @@ extremely large and complex data collections.")
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/octave/octave-" (uri (string-append "mirror://gnu/octave/octave-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"101jr9yck798586jz4vkjcgk36zksmxf1pxrzvipgn2xgyay0zjc")))) "101jr9yck798586jz4vkjcgk36zksmxf1pxrzvipgn2xgyay0zjc"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("lapack" ,lapack) `(("lapack" ,lapack)

3
gnu/packages/ssh.scm
View File

@ -325,7 +325,8 @@ especially over Wi-Fi, cellular, and long-distance links.")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"http://matt.ucc.asn.au/" name "/releases/" name "-" version ".tar.bz2")) "http://matt.ucc.asn.au/" name "/releases/"
name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 "1bjpbg2vi5f332q4bqxkidkjfxsqmnqvp4g1wyh8d99b8gg94nar")))) (base32 "1bjpbg2vi5f332q4bqxkidkjfxsqmnqvp4g1wyh8d99b8gg94nar"))))
(build-system gnu-build-system) (build-system gnu-build-system)

5
gnu/packages/web.scm
View File

@ -235,8 +235,9 @@ data.")
(version "0.12") (version "0.12")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://s3.amazonaws.com/json-c_releases/releases/json-c-" (uri (string-append
version ".tar.gz")) "https://s3.amazonaws.com/json-c_releases/releases/json-c-"
version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0gwzic3ifg2d0w32ya3agpxh8i083cgvf7kmc51cnbgqnfr02300")) "0gwzic3ifg2d0w32ya3agpxh8i083cgvf7kmc51cnbgqnfr02300"))

2
gnu/packages/wm.scm
View File

@ -179,7 +179,7 @@ commands would.")
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(home-page "http://i3wm.org/") (home-page "http://i3wm.org/")
(synopsis "Improved tiling window manager") (synopsis "Improved tiling window manager")
(description "i3 is a tiling window manager, completely written (description "A tiling window manager, completely written
from scratch. i3 is primarily targeted at advanced users and from scratch. i3 is primarily targeted at advanced users and
developers.") developers.")
(license bsd-3))) (license bsd-3)))