(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)
  #:use-module (gnu packages texinfo))

(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)
       ("texinfo" ,texinfo)))
    (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.2.0"
   "6c091fd8930df2a1ac605ecd0089710dadba559f"
   "0cwsrlsc3z0v3kxmb1csi10fvb6yplw0hgclb5mwmpvma6b4x0mj"))

(define-public guile-web-client-with-cache-doc
  (package
   (inherit guile-web-client-with-cache)
   (name "guile-web-client-with-cache-doc")
   (arguments
    `(#:phases
      (modify-phases
       %standard-phases
       (replace
	'install
	(lambda* args
	  (invoke "make" "html")
	  (invoke "make" "install-html"))))))))