(in-package :fwoar.rss-reader.ui)

(defun homepage (content)
  (spinneret:with-html
    (:h1 "Hello, World!")
    (:div.main
     (:nav
      :data-ic-target "main"
      :data-ic-replace-target "true"
      (:a :data-ic-get-from "/"
          "home")
      (:a :data-ic-get-from "/other"
          "other")
      (:a :data-ic-get-from "/third"
          "third")
      (:a :data-ic-get-from "/fourth"
          "fourth"))
     (funcall content))))


(defun intercooler-debugger ()
  (ps
    (defun cdnjs-library (name version &key (file name))
      (chain
       $ (get-script
          "https://cdnjs.cloudflare.com/ajax/libs/intercooler-js/1.2.2/intercooler-debugger.js")))
    (cdnjs-library
     "intercooler-js" "1.2.2" #+(or)"intercooler-debugger.js")))