new file mode 100644

@@ -0,0 +1,68 @@

+(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))))