me
/
guix
Archived
1
0
Fork 0
Code

gnu-maintenance: GNOME updater honors 'upstream-name' package property. 

* guix/gnu-maintenance.scm (latest-gnome-release)[upstream-name]: New
variable.  Use it as the first argument to 'latest-ftp-release' and when
constructing #:directory.
* gnu/packages/gnome.scm (gconf)[properties]: New field.
(network-manager)[properties]: New field.
master
Ludovic Courtès 2016-10-20 22:17:07 +02:00
parent 0d871c3876
commit 29d2f451a6
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/packages/gnome.scm
View File

@ -1130,7 +1130,8 @@ use in GNOME applications, built on top of CORBA.")
(synopsis "Store application preferences") (synopsis "Store application preferences")
(description "Gconf is a system for storing application preferences. It (description "Gconf is a system for storing application preferences. It
is intended for user preferences; not arbitrary data storage.") is intended for user preferences; not arbitrary data storage.")
(license license:lgpl2.0+))) (license license:lgpl2.0+)
(properties '((upstream-name . "GConf")))))
(define-public gnome-mime-data (define-public gnome-mime-data
@ -4481,7 +4482,8 @@ devices and connections, attempting to keep active network connectivity when
available. It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE available. It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
devices, and provides VPN integration with a variety of different VPN devices, and provides VPN integration with a variety of different VPN
services.") services.")
(license license:gpl2+))) (license license:gpl2+)
(properties '((upstream-name . "NetworkManager")))))
(define-public mobile-broadband-provider-info (define-public mobile-broadband-provider-info
(package (package

11
guix/gnu-maintenance.scm
View File

@ -483,13 +483,16 @@ elpa.gnu.org, and all the GNOME packages."
(let-values (((name version) (package-name->name+version file))) (let-values (((name version) (package-name->name+version file)))
(even-minor-version? (or version name)))) (even-minor-version? (or version name))))
(define upstream-name
;; Some packages like "NetworkManager" have camel-case names.
(or (assoc-ref (package-properties package) 'upstream-name)
(package-name package)))
(false-if-ftp-error (false-if-ftp-error
(latest-ftp-release (package-name package) (latest-ftp-release upstream-name
#:server "ftp.gnome.org" #:server "ftp.gnome.org"
#:directory (string-append "/pub/gnome/sources/" #:directory (string-append "/pub/gnome/sources/"
(match (package-name package) upstream-name)
("gconf" "GConf")
(x x)))
;; <https://www.gnome.org/gnome-3/source/> explains ;; <https://www.gnome.org/gnome-3/source/> explains