(define-module (influx)
#:use-module (web client)
#:use-module (web uri)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu) ;records
#:use-module (srfi srfi-11) ;let-values
#:use-module (srfi srfi-19) ;new (current-time)
#:use-module (srfi srfi-26) ;cut
#:use-module (ice-9 iconv) ;decode utf8
#:use-module (ice-9 match)
#:use-module (json))
(define-record-type <influx>
(influx url version)
influx?
(url influx-url)
(version influx-version))
(define* (make-influx #:key
(host "localhost")
(port 8086)
(version 1))
(influx (build-uri 'http #:host host #:port port)
version))
(define my/influx (make-influx #:host "ZZZZZ"))
(define* (create-db influx db #:optional (duration "30d"))
(req influx (format #false "CREATE DATABASE ~a~a~a WITH DURATION