(defpackage :fwoar.lisp-sandbox.wordpress-api
   (:use :cl )
   (:export ))
 (in-package :fwoar.lisp-sandbox.wordpress-api)
 
 (defun needs-encoding-p (char)
   (not (digit-char-p char 36)))
 
 (defun encode-char (char)
   (format nil "%~2,'0X" (char-code char)))
 
 (defun url-encode (s url _ __)
   (declare (ignore _ __))
   (map nil (lambda (char)
              (princ (if (needs-encoding-p char)
                         (encode-char char)
                         (string char))
                     s))
        url))
 
 (defun uri (base path &key (per-page 10) (page 1) fields)
   (make-instance 'puri:uri
                  :scheme :https
                  :host base
                  :path path
                  :query
                  (format nil "per_page=~d&page=~d&~:[~;~:*&_fields=~{~/fwoar.lisp-sandbox.wordpress-api::url-encode/~^,~}~]"
                          per-page page fields)))
 
 (defun json-get (uri &optional (caching t))
   (let ((drakma:*text-content-types* (acons "application" "json"
                                             drakma:*text-content-types*)))
     (let ((cache (load-time-value (vector nil nil nil))))
       #+(or)
       (when (and caching (not (elt cache 1)) (when (elt cache 0) (not (puri:uri= uri (elt cache 0))))))
       (multiple-value-bind (result _ headers) (drakma:http-request uri)
         (declare (ignore _))
         (let ((json (yason:parse result)))
           (setf (elt cache 0) uri
                 (elt cache 1) json
                 (elt cache 2) (pairlis '(:x-wp-total :x-wp-totalpages)
                                        (funcall (data-lens:• (data-lens:over 'parse-integer)
                                                              (apply 'data-lens:juxt
                                                                     (mapcar 'data-lens:key
                                                                             '(:x-wp-total :x-wp-totalpages))))
                                                 headers)))))
       (values (elt cache 1)
               (elt cache 2)
               (elt cache 0)))))
 
 (defparameter *title*
   (data-lens:• (data-lens.lenses:make-hash-table-lens "title")
                (data-lens.lenses:make-hash-table-lens "rendered")))
 
 (defun view-title (it)
   (data-lens.lenses:view *title* it))
 
 (defvar *site*)
 (defun get-page-of-titles (page-number)
   (let ((uri *site*
              "/wp-json/wp/v2/posts"
              :per-page 100
              :page page-number
              :fields '("title")))
     (multiple-value-bind (r p) (json-get the-uri)
       (values (funcall (data-lens:over 'view-title)
                        r)
               p))))