meowy-webring/.guix/modules/meowy-webring.scm

(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