@@ -16,6 +16,8 @@

                #:parenscript

                #:serapeum

                #:spinneret

+               #:spinneret/ps

+               #:spinneret/cl-markdown

                #:uiop)

   :components ((:file "package")

                (:file "utils" :depends-on ("package"))

@@ -1,11 +1,20 @@

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

-(defun homepage ()

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

-          "hi"))

-     (:main#content "home 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))))

@@ -7,22 +7,27 @@

   "basic html and javascript for our app, as well as an invocation of

 the hook that pulls in CSS"

-  (spinneret:with-html-string

-    (:doctype)

-    (:html

-     (:head

-      (:script :src "https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.min.js"

-               :defer "defer")

-      (:script :src

-               "https://cdnjs.cloudflare.com/ajax/libs/intercooler-js/1.2.2/intercooler.min.js"

-               :defer "defer")

-      (:meta :name "intercoolerjs:use-data-prefix"

-             :content "true"/)

-      (:style

-       (apply 'lass:compile-and-write

-              (araneus:styles route))))

-     (:body

-      (call-next-method)))))

+  (ecase model

+    (:full

+     (spinneret:with-html-string

+       (:doctype)

+       (:html

+        (:head

+         (:script :src "https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.min.js"

+                  :defer "defer")

+         (:script :src

+                  "https://cdnjs.cloudflare.com/ajax/libs/intercooler-js/1.2.2/intercooler.min.js"

+                  :defer "defer")

+         (:meta :name "intercoolerjs:use-data-prefix"

+                :content "true"/)

+         (:style

+          (apply 'lass:compile-and-write

+                 (araneus:styles route))))

+        (:body

+         (call-next-method)))))

+    (:partial

+     (spinneret:with-html-string

+       (call-next-method)))))

 (defmethod araneus:styles append ((route rss-reader-route))

   "CSS Reset"

@@ -48,10 +53,21 @@ the hook that pulls in CSS"

   "#BDE0F3")

 (defmethod araneus:controller ((route homepage) params &key)

-  (values))

+  (format t "~&~s~%" params)

+  (if (equal (serapeum:assocdr "ic-request" params

+                               :test 'equal)

+             "true")

+      :partial

+      :full))

 (defmethod araneus:view ((route homepage) model)

-  (fwoar.rss-reader.ui:homepage))

+  (let ((content "home content"))

+    (ecase model

+      (:full (fwoar.rss-reader.ui:homepage content))

+      (:partial (spinneret:with-html

+                  (:raw (with-output-to-string (s)

+                          (cl-markdown:markdown content

+                                                :stream s))))))))

 (araneus:define-controller other (_)

   (values))