(use-modules (gnu packages)
	     (gnu packages base)
	     (gnu packages compression)
	     (gnu packages databases)
	     (gnu packages geo)
	     (gnu packages messaging)
	     (gnu packages perl)
	     (gnu packages perl-check)
	     (gnu packages pkg-config)
	     (gnu packages protobuf)
	     (gnu packages web)
	     (gnu packages xml)
	     (guix build-system gnu)
	     (guix build-system perl)
	     (guix download)
	     (guix git-download)
	     (guix licenses)
	     (guix packages))

(define vat
  (package
    (name "vat")
    (version "0.3")
    (source (origin
	      (method url-fetch)
	      (uri (string-append
		     "https://dev.tandem.ws/tandem/" name "/archive/v" version ".tar.gz"))
	      (sha256
		(base32
		  "0jbgakz7ip09hrnbbg1dm02n5zx7sv0magvw7s6g7rbbpy6wpqwh"))))
    (build-system gnu-build-system)
    (arguments
      `(#:tests? #f
	#:make-flags
	(list (string-append "datadir=" (assoc-ref %outputs "out") "/share")
	      (string-append "docdir="(assoc-ref %outputs "out") "/share/doc")
	      (string-append "pkglibdir="(assoc-ref %outputs "out") "/lib")
	      (string-append "bindir=" (assoc-ref %outputs "out") "/bin"))
	#:phases
	(modify-phases %standard-phases
		       (delete 'configure))))
    (inputs
      `(("postgresql" ,postgresql-15)))
    (home-page "https://dev.tandem.ws/tandem/vat/")
    (synopsis "VAT identification numbers for PostgreSQL")
    (description "VAT identification numbers library for PostgreSQL")
    (license (x11-style "https://www.postgresql.org/about/licence/"))))

(define pg-libphonenumber
  (let ((commit "753e2fa4be452620455a099aeda917648f2da70a")
	(revision "1"))
    (package
      (name "pg-libphonenumber")
      (version (git-version "0.1.0" revision commit))
      (source (origin
		(method git-fetch)
		(uri (git-reference
		       (url "https://github.com/blm768/pg-libphonenumber")
		       (commit commit)))
		(file-name (git-file-name name version))
		(sha256
		  (base32
		    "01syw93giq0pz80qzrdr79cr4p6w8lx129y1gsn2avc97r7pqanj"))))
      (build-system gnu-build-system)
      (arguments
	`(#:tests? #f
	  #:make-flags
	  (list (string-append "datadir=" (assoc-ref %outputs "out") "/share")
		(string-append "docdir="(assoc-ref %outputs "out") "/share/doc")
		(string-append "pkglibdir="(assoc-ref %outputs "out") "/lib")
		(string-append "bindir=" (assoc-ref %outputs "out") "/bin"))
	  #:phases
	  (modify-phases %standard-phases
			 (delete 'configure))))
      (inputs
	`(("postgresql" ,postgresql-15)
	  ("libphonenumber" ,libphonenumber)
	  ("protobuf" ,protobuf)))
      (home-page "https://github.com/blm768/pg-libphonenumber")
      (synopsis "PostgreSQL extension for libphonenumber")
      (description "pg_libphonenumber is a (partially implemented!) PostgreSQL extension that provides access to Google’s libphonenumber.")
      (license asl2.0))))

(define pguri
  (let ((commit "00241b96b8a285aa7ec0a81b5a4c0a664a044192")
	(revision "1"))
    (package
      (name "pguri")
      (version (git-version "1.20151224" revision commit))
      (source (origin
		(method git-fetch)
		(uri (git-reference
		       (url "https://github.com/petere/pguri")
		       (commit commit)))
		(file-name (git-file-name name version))
		(sha256
		  (base32
		    "0lz5nlqix60mxcjkqn3zn7q62xx0qbmybng3v0h049mf68l80ch9"))))
      (build-system gnu-build-system)
      (arguments
	`(#:tests? #f
	  #:make-flags
	  (list (string-append "datadir=" (assoc-ref %outputs "out") "/share")
		(string-append "docdir="(assoc-ref %outputs "out") "/share/doc")
		(string-append "pkglibdir="(assoc-ref %outputs "out") "/lib")
		(string-append "bindir=" (assoc-ref %outputs "out") "/bin"))
	  #:phases
	  (modify-phases %standard-phases
			 (delete 'configure))))
      (inputs
	`(("postgresql" ,postgresql-15)
	  ("pkg-config" ,pkg-config)
	  ("uriparser" ,uriparser)))
      (home-page "https://github.com/petere/pguri")
      (synopsis "uri type for PostgreSQL ")
      (description "This is an extension for PostgreSQL that provides a uri data type. Advantages over using plain text for storing URIs include: URI syntax checking, functions for extracting URI components, and human-friendly sorting.")
      (license asl2.0))))

(define postgresql-15/xml
  (package
    (inherit postgresql-15)
    (arguments
      `(#:configure-flags '("--with-uuid=e2fs" "--with-openssl" "--with-libxml")
	#:phases
	(modify-phases %standard-phases
		       (add-before 'configure 'patch-/bin/sh
				   (lambda _
				     ;; Refer to the actual shell.
				     (substitute* '("src/bin/pg_ctl/pg_ctl.c"
						    "src/bin/psql/command.c")
						  (("/bin/sh") (which "sh")))
				     #t))
		       (add-after 'build 'build-contrib
				  (lambda _
				    (invoke "make" "-C" "contrib")))
		       (add-after 'install 'install-contrib
				  (lambda _
				    (invoke "make" "-C" "contrib" "install"))))))
    (inputs
      `(("libxml2" ,libxml2)
	,@(package-inputs postgresql-15)))))

(define perl-tap-parser-sourcehandler-pgtap
  (package
    (name "perl-tap-parser-sourcehandler-pgtap")
    (version "3.36")
    (source
      (origin
	(method url-fetch)
	(uri (string-append "mirror://cpan/authors/id/D/DW/DWHEELER/"
			    "TAP-Parser-SourceHandler-pgTAP-" version ".tar.gz"))
	(sha256
	  (base32 "0rwcx6z0xg1jrwnsyhb4a3aq3g7ff1a510g5v1paqgh65r9m3gh7"))))
    (build-system perl-build-system)
    (inputs
      `(("perl-module-build" ,perl-module-build)
	("perl-test-pod" ,perl-test-pod)
	("perl-test-pod-coverage" ,perl-test-pod-coverage)))
    (home-page "https://metacpan.org/pod/TAP::Parser::SourceHandler::pgTAP")
    (synopsis "Stream TAP from pgTAP test scripts")
    (description "This source handler executes pgTAP tests. It does two things: 1) Looks at the TAP::Parser::Source passed to it to determine whether or not the source in question is in fact a pgTAP test (\"can_handle\"). And, 2) Creates an iterator that will call psql to run the pgTAP tests (\"make_iterator\").  Unless you're writing a plugin or subclassing TAP::Parser, you probably won't need to use this module directly.")
    (license perl-license)))

(define pgtap
  (package
    (name "pgtap")
    (version "1.2.0")
    (source (origin
	      (method url-fetch)
	      (uri (string-append
		     "https://api.pgxn.org/dist/pgtap/" version
		     "/pgtap-" version ".zip"))
	      (sha256
		(base32
		  "106p24wslq39h9hrscf415x7s1nb6l21xjdzpg3dh73gawslfmqv"))))
    (build-system gnu-build-system)
    (arguments
      `(#:tests? #f
	#:make-flags
	(list (string-append "datadir=" (assoc-ref %outputs "out") "/share")
	      (string-append "docdir="(assoc-ref %outputs "out") "/share/doc")
	      (string-append "pkglibdir="(assoc-ref %outputs "out") "/lib")
	      (string-append "bindir=" (assoc-ref %outputs "out") "/bin"))
	#:phases
	(modify-phases %standard-phases
		       (delete 'configure))))
    (inputs
      `(("postgresql" ,postgresql)))
    (native-inputs
      `(("perl" ,perl)
	("which" ,which)
	("unzip" ,unzip)))
    (home-page "https://pgtap.org")
    (synopsis "Unit testining for PostgreSQL")
    (description "pgTAP is a suite of database functions that make it easy to write TAP-emitting unit tests in psql scripts or xUnit-style test functions.")
    (license (x11-style "https://www.postgresql.org/about/licence/"))))

(package
  (name "camper")
  (version "0.1.0")
  (source (origin
	    (method git-fetch)
	    (uri (git-reference
		   (url "https://dev.tandem.ws/tandem/camper.git")
		   (commit "666935b54c8f2d735d8fe5591407ca231bba7e4c")))
	    (sha256
	      (base32
		"0p31j7qing7nhnpngsnnfvx6wz70ryj4q5k7l81anh2z19nzwbk8"))))
  (build-system gnu-build-system)
  (inputs
    `(("sqitch" ,sqitch)
      ("pgtap" ,pgtap)
      ("vat" ,vat)
      ("perl-tap-parser-sourcehandler-pgtap" ,perl-tap-parser-sourcehandler-pgtap)
      ("perl" ,perl)
      ("pg-libphonenumber" ,pg-libphonenumber)
      ("pguri" ,pguri)
      ("postgresql" ,postgresql-15/xml)))
  (synopsis "Simple camping management and booking web application")
  (description "A simple web application to manage small campings and other touristic accomodations in Spain.")
  (home-page "https://dev.tandem.ws/tandem/camper")
  (license agpl3+))