(define-module (vkraus packages ldp))
(use-modules
  (guix packages)
  ((guix licenses) #:prefix license:)
  (guix download)
  (guix build-system gnu)
  (gnu packages)
  (gnu packages autotools)
  (gnu packages guile)
  (gnu packages guile-xyz)
  (gnu packages pkg-config)
  (gnu packages texinfo))

(define guile-ldp-local
(package
  (name "ldp")
  (version "SNAPSHOT")
  (source "./ldp-SNAPSHOT.tar.gz")
  (build-system gnu-build-system)
  (arguments `())
  (native-inputs
    `(("autoconf" ,autoconf)
      ("automake" ,automake)
      ("pkg-config" ,pkg-config)
      ("texinfo" ,texinfo)))
  (inputs `(("guile" ,guile-3.0)))
  (propagated-inputs `(("guile-rdf" ,guile-rdf)))
  (synopsis
    "Implementation of the linked data platform specification")
  (description
    "Linked data platform is a standard for interoperable web architecture.")
  (home-page "https://guile-ldp.planete-kraus.eu")
  (license license:gpl3+)))

(use-modules (guix git-download))
(define-public guile-ldp
  (package
    (inherit guile-ldp-local)
    (version "0.0.0")
    (source
      (origin
        (method git-fetch)
        (uri (git-reference
	  (url "http://labo.planete-kraus.eu/ldp.git")
          (commit "4b6e56ebb435f16374cebf38923393dc2f27f3ce")))
        (sha256
          (base32
            "19d23a9k5imf062kcp7n4gi2mxhcjy4ycsk35qff4z38fkpjhxvn"))
	(snippet
	 (quasiquote
           (begin
	    (with-output-to-file ".tarball-version"
	      (lambda _ (format #t "~a~%" ,version)))
	    #t)))))
    (native-inputs
     (cons*
      (quasiquote ("guile-hall" ,guile-hall))
      (package-native-inputs guile-ldp-local)))))