[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/07: import: Add updater for rust crates.
From: |
David Craven |
Subject: |
04/07: import: Add updater for rust crates. |
Date: |
Wed, 14 Dec 2016 15:31:12 +0000 (UTC) |
dvc pushed a commit to branch master
in repository guix.
commit 8ac529878640de632356895fbcaeeed6c1cb335e
Author: David Craven <address@hidden>
Date: Thu Sep 22 11:40:58 2016 +0200
import: Add updater for rust crates.
* guix/import/crate.scm (crate-package?, latest-release,
%crate-updater): New variables.
* guix/scripts/refresh.scm (%updaters): Add crate updater.
* doc/guix.texi: Add crate updater to table.
---
doc/guix.texi | 2 ++
guix/import/crate.scm | 36 +++++++++++++++++++++++++++++++++++-
guix/scripts/refresh.scm | 3 ++-
3 files changed, 39 insertions(+), 2 deletions(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 5db20ec..a5424b4 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -5396,6 +5396,8 @@ the updater for @uref{https://rubygems.org, RubyGems}
packages.
the updater for @uref{https://github.com, GitHub} packages.
@item hackage
the updater for @uref{https://hackage.haskell.org, Hackage} packages.
address@hidden crate
+the updater for @uref{https://crates.io, Crates} packages.
@end table
For instance, the following command only checks for updates of Emacs
diff --git a/guix/import/crate.scm b/guix/import/crate.scm
index e78e3ad..3a19fc7 100644
--- a/guix/import/crate.scm
+++ b/guix/import/crate.scm
@@ -36,7 +36,8 @@
#:use-module (srfi srfi-2)
#:use-module (srfi srfi-26)
#:export (crate->guix-package
- guix-package->crate-name))
+ guix-package->crate-name
+ %crate-updater))
(define (crate-fetch crate-name callback)
"Fetch the metadata for CRATE-NAME from crates.io and call the callback."
@@ -123,3 +124,36 @@ VERSION, INPUTS, NATIVE-INPUTS, HOME-PAGE, SYNOPSIS,
DESCRIPTION, and LICENSE."
(define (crate-name->package-name name)
(string-append "rust-" (string-join (string-split name #\_) "-")))
+;;;
+;;; Updater
+;;;
+
+(define (crate-package? package)
+ "Return true if PACKAGE is a Rust crate from crates.io."
+ (let ((source-url (and=> (package-source package) origin-uri))
+ (fetch-method (and=> (package-source package) origin-method)))
+ (and (eq? fetch-method download:url-fetch)
+ (match source-url
+ ((? string?)
+ (crate-url? source-url))
+ ((source-url ...)
+ (any crate-url? source-url))))))
+
+(define (latest-release package)
+ "Return an <upstream-source> for the latest release of PACKAGE."
+ (let* ((crate-name (guix-package->crate-name package))
+ (callback (lambda* (#:key version #:allow-other-keys) version))
+ (version (crate-fetch crate-name callback))
+ (url (crate-uri crate-name version)))
+ (upstream-source
+ (package (package-name package))
+ (version version)
+ (urls (list url)))))
+
+(define %crate-updater
+ (upstream-updater
+ (name 'crates)
+ (description "Updater for crates.io packages")
+ (pred crate-package?)
+ (latest latest-release)))
+
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index 72f51cb..2a06405 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -210,7 +210,8 @@ unavailable optional dependencies such as Guile-JSON."
((guix import cpan) => %cpan-updater)
((guix import pypi) => %pypi-updater)
((guix import gem) => %gem-updater)
- ((guix import github) => %github-updater)))
+ ((guix import github) => %github-updater)
+ ((guix import crate) => %crate-updater)))
(define (lookup-updater-by-name name)
"Return the updater called NAME."
- branch master updated (7ab3ea4 -> ecee214), David Craven, 2016/12/14
- 02/07: import: utils: Add some utilities., David Craven, 2016/12/14
- 04/07: import: Add updater for rust crates.,
David Craven <=
- 06/07: gnu: Add rust bootstrap binaries., David Craven, 2016/12/14
- 07/07: gnu: Add rustc., David Craven, 2016/12/14
- 05/07: gnu: llvm: Enable install utils., David Craven, 2016/12/14
- 03/07: import: Add importer for rust crates., David Craven, 2016/12/14
- 01/07: build-system: Add cargo build system., David Craven, 2016/12/14