git.fiddlerwoaroof.com
Raw Blame History
(in-package :fwoar.rss-reader.ui)

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