diff options
author | Eric Bavier <bavier@member.fsf.org> | 2014-07-02 13:47:23 -0500 |
---|---|---|
committer | Eric Bavier <bavier@member.fsf.org> | 2014-07-02 13:47:23 -0500 |
commit | 5becd025107c4af728cfdaef6ddc6b473138e96f (patch) | |
tree | 6fa16eb130a8d08c68bb773f26d56dfae110afd9 /gnu/packages | |
parent | 221ed17a580f5e3df0347cc83064bb50c41d1231 (diff) | |
download | guix-5becd025107c4af728cfdaef6ddc6b473138e96f.tar.gz |
gnu: gnome: Version splitting and line wrapping.
* gnu/packages/gnome.scm (orbit2): Wrape code to 80 characters. Use string-split/string-join to get version major/minor numbers. (libbonoboui): Likewise.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/gnome.scm | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 4f672ba227..cee0c3476d 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -694,24 +694,25 @@ featuring mature C, C++ and Python bindings.") (version "2.32.1") (source (origin (method url-fetch) - (uri (string-append - "mirror://gnome/sources/" name "/" (string-take version 4) "/" name "-" - version - ".tar.bz2")) + (uri (string-append "mirror://gnome/sources/" name "/" + (string-join (take (string-split version #\.) 2) + ".") + "/" name "-" version ".tar.bz2")) (sha256 (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i")))) (build-system gnu-build-system) (arguments ;; The programmer kindly gives us a hook to turn off deprecation warnings ... - `(#:configure-flags '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS") - ;; ... which they then completly ignore !! - #:phases - (alist-cons-before - 'configure 'ignore-deprecations - (lambda _ - (substitute* "activation-server/Makefile.in" - (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))) - %standard-phases))) + `(#:configure-flags + '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS") + ;; ... which they then completly ignore !! + #:phases + (alist-cons-before + 'configure 'ignore-deprecations + (lambda _ + (substitute* "activation-server/Makefile.in" + (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))) + %standard-phases))) (inputs `(("popt" ,popt) ("libxml2" ,libxml2))) ;; The following are Required by the .pc file @@ -1063,9 +1064,9 @@ widgets built in the loading process.") (source (origin (method url-fetch) (uri (string-append - "mirror://gnome/sources/" name "/" (string-take version 3) "/" name "-" - version - ".tar.bz2")) + "mirror://gnome/sources/" name "/" + (string-join (take (string-split version #\.) 2) ".") + "/" name "-" version ".tar.bz2")) (sha256 (base32 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs")))) |