31 lines
878 B
Scheme
31 lines
878 B
Scheme
(load "crates-io.scm")
|
|
(define-module (meowy-webring)
|
|
:use-module (crates-io)
|
|
#:use-module (guix)
|
|
#:use-module (guix build-system cargo)
|
|
#:use-module (guix git-download)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages crates-io)
|
|
#:use-module (srfi srfi-1))
|
|
|
|
(define (keep-file? file stat)
|
|
(or (git-predicate (current-source-directory))
|
|
(const #t)))
|
|
|
|
(define-public meowy-webring
|
|
(package
|
|
(name "meowy-webring")
|
|
(version "0.1.0-git")
|
|
(source (local-file "../.." "meowy-webring-checkout"
|
|
#:recursive? #t
|
|
#:select? keep-file?))
|
|
(build-system cargo-build-system)
|
|
(arguments (list #:cargo-inputs `(("rust-rocket" ,rust-rocket-0.5)
|
|
("rust-serde" ,rust-serde-1))))
|
|
(synopsis "")
|
|
(description "")
|
|
(home-page "")
|
|
(license license:cc0)))
|
|
|
|
meowy-webring
|