(define-module (vkraus packages web-client-with-cache)
  #:use-module (guix packages)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix gexp)
  #:use-module (guix modules)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system copy)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages base)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages guile-xyz)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages emacs-xyz)
  #:use-module (gnu packages pkg-config))

(define-public (make-web-client-with-cache version commit hash)
  (package
    (name "guile-web-client-with-cache")
    (version version)
    (source
     (origin
      (method git-fetch)
      (uri (git-reference
	    (url "https://labo.planete-kraus.eu/web-client-with-cache.git")
	    (commit commit)))
      (sha256 (base32 hash))))
    (build-system gnu-build-system)
    (native-inputs
     `(("emacs" ,emacs)
       ("emacs-org" ,emacs-org)
       ("autoconf" ,autoconf)
       ("autoconf-archive" ,autoconf-archive)
       ("automake" ,automake)
       ("pkg-config" ,pkg-config)
       ("guile-3.0" ,guile-3.0)))
    (inputs
     `(("guile-3.0" ,guile-3.0)))
    (propagated-inputs
     `(("guile-3.0" ,guile-3.0)))
    (synopsis "A web client for guile, with cache")
    (description "Uses client-side Cache-Control, ETag, and
Last-Modified to cache web resources in memory.")
    (home-page "https://labo.planete-kraus.eu/web-client-with-cache.git/")
    (license 'none)))

(define-public guile-web-client-with-cache
  (make-web-client-with-cache
   "0.0.0"
   "c9533cb89bc9d209d48314c7d608090b3d6ab7b5"
   "15rfdly0qlzdhl43pwdfqyz5plr7z9j4i2w2b0iniwra9jsqjp3q"))