new file mode 100644

@@ -0,0 +1,27 @@

+(cl:in-package :cl-user)

+(defpackage :fwoar.intercooler

+  (:use :cl )

+  (:import-from :fw.lu defclass+)

+  (:import-from :araneus controller)

+  (:export #:partial-request

+           #:full-request

+           #:intercooler-route

+           #:intercooler-request

+           #:request))

+(in-package :fwoar.intercooler)

+

+(defclass+ intercooler-request ()

+  ((%request :initarg :request :reader request)))

+(defclass+ partial-request ((intercooler-request (request)))

+  ())

+(defclass+ full-request ((intercooler-request (request)))

+  ())

+(defclass intercooler-route ()

+  ())

+(defmethod controller :around ((route intercooler-route) params &key)

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

+                                        :test 'equal)

+                      "true")

+               'partial-request

+               'full-request)

+           (call-next-method)))

@@ -6,19 +6,12 @@

 (defclass rss-reader-route ()

   ((%feed-list :initarg :feed-list :reader feed-list)))

-(defclass+ intercooler-request ()

-  ((%request :initarg :request :reader request)))

-(defclass+ partial-request ((intercooler-request (request)))

-  ())

-(defclass+ full-request ((intercooler-request (request)))

-  ())

-

 (defmethod araneus:view :around ((route rss-reader-route) model)

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

 the hook that pulls in CSS"

   (etypecase model

-    (full-request

+    (fwoar.intercooler:full-request

      (spinneret:with-html-string

        (:doctype)

        (:html

@@ -36,7 +29,7 @@ the hook that pulls in CSS"

                        (araneus:styles route)))))

         (:body

          (call-next-method)))))

-    (partial-request

+    (fwoar.intercooler:partial-request

      (spinneret:with-html-string

        (call-next-method)))))

@@ -47,7 +40,7 @@ the hook that pulls in CSS"

      :margin 0

      :padding 0

      :font-family "\"Lato\", sans"

-     :box-sizing border-box)              

+     :box-sizing border-box)

     ((:or pre code)

      :font-family "\"Source Code Pro\", monospace")

     (body

@@ -67,24 +60,22 @@ the hook that pulls in CSS"

                 (,layout content)))

        (:partial (funcall content)))))

-(defclass+ feed-page ((rss-reader-route (feed-list)) fwoar.default-layout:default-layout)

+

+(defclass+ feed-page ((rss-reader-route (feed-list))

+                      fwoar.intercooler:intercooler-route

+                      fwoar.default-layout:default-layout)

   ((%feed :initarg :feed :reader feed)))

 (defmethod araneus:controller ((route feed-page) params &key)

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

-                                        :test 'equal)

-                      "true")

-               'partial-request

-               'full-request)

-           (resolve-feed-reference (feed route))))

+  (resolve-feed-reference (feed route)))

-(defmethod araneus:view ((route feed-page) (model intercooler-request))

+(defmethod araneus:view ((route feed-page) (model fwoar.intercooler:intercooler-request))

   (spinneret:with-html

     (:main#content

-     (alimenta:render (request model)

+     (alimenta:render (fwoar.intercooler:request model)

                       (feed route)))))

-(defmethod araneus:view ((route feed-page) (model full-request))

+(defmethod araneus:view ((route feed-page) (model fwoar.intercooler:full-request))

   (spinneret:with-html

     (:h1 "Hello, World!")

     (:div.main

@@ -96,7 +87,7 @@ the hook that pulls in CSS"

             collect (:a :data-ic-get-from (format nil "/f/~a" (string-downcase (feed-key feed)))

                         (feed-key feed))))

      (:main#content

-      (alimenta:render (request model)

+      (alimenta:render (fwoar.intercooler:request model)

                        (feed route))))))

 (defmethod fwoar.default-layout:border-color ((layout rss-reader-route))