new file mode 100644

@@ -0,0 +1,2 @@

+*~

+*.fasl

new file mode 100644

@@ -0,0 +1,43 @@

+(defpackage :fwoar.default-layout

+  (:use :cl )

+  (:export

+   #:default-layout

+   #:border-color))

+(in-package :fwoar.default-layout)

+

+(defclass default-layout ()

+  ((%border-color :reader border-color :initform "#eee")))

+

+(defgeneric border-color (layout)

+  )

+

+(defmethod araneus:styles append ((layout default-layout))

+  `((body

+     :display flex

+     :flex-direction column

+     :min-height 100vh)

+    (h1

+     :height 3em

+     :border-bottom 1px solid ,(border-color layout)

+     :text-align center

+     :line-height 3em)

+    (div.main

+     :display flex

+     :width 100%

+     :flex-grow 1)

+    (nav

+     :width 10%

+     :display flex

+     :flex-direction column)

+    ((nav a)

+     :font-weight bold

+     :padding 1.5rem

+     :text-align right

+     :text-decoration underline)

+    ((nav (:and a :hover))

+     :background "#eee")

+    (main

+     :flex-grow 1

+     :padding 1.5rem

+     :border-left 1px solid ,(border-color layout)

+     :flex-shrink 1)))

new file mode 100644

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

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

+

+(defgeneric app (obj)

+  (:documentation "the ningle app that is to be run"))

+

+(defgeneric handler (obj)

+  (:documentation "the clack handler representing the currently running application"))

+

+(defclass+ rss-reader ()

+  ((%app :initform (make-instance 'ningle:<app>)

+         :reader app)

+   (%handler :accessor handler))

+  (:documentation

+   "A simple wrapper that ties a ningle app to a clack handler"))

+

+(defmethod araneus:routes progn ((app rss-reader))

+  (araneus:defroutes (app app)

+    (("/") (serapeum:partial 'araneus:run-route (make-instance 'homepage)))

+    (("/other") (serapeum:partial 'araneus:run-route 'other))))

+

+(defun start (app)

+  (setf (handler app)

+        (clack:clackup (app app)))

+  app)

+

+(defun main ()

+  (start (araneus:routes (rss-reader))))

new file mode 100644

@@ -0,0 +1,13 @@

+(defpackage :fwoar.rss-reader.utils

+  (:use :cl)

+  (:export #:defclass+))

+

+(defpackage :fwoar.rss-reader.ui

+  (:use :cl :parenscript)

+  (:export ui

+           #:homepage))

+

+(defpackage :fwoar.rss-reader

+  (:use :cl )

+  (:import-from :fwoar.rss-reader.utils #:defclass+)

+  (:export ))

new file mode 100644

@@ -0,0 +1,25 @@

+;;; -*- Mode:Lisp; Syntax:ANSI-Common-Lisp; Package: ASDF-USER -*-

+(in-package :asdf-user)

+

+(defsystem :rss-reader 

+  :description ""

+  :author "Ed L <edward@elangley.org>"

+  :license "MIT"

+  :pathname #+fw.dev #p"PROJECTS:RSS-READER;" #-fw.dev nil

+  :depends-on (#:alexandria

+               #:alimenta

+               #:araneus

+               #:clack

+               #:fwoar-lisputils

+               #:lass

+               #:ningle

+               #:parenscript

+               #:serapeum

+               #:spinneret

+               #:uiop)

+  :components ((:file "package")

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

+               (:file "default-layout")

+               (:file "ui" :depends-on ("package"))

+               (:file "view" :depends-on ("package" "ui" "default-layout"))

+               (:file "main" :depends-on ("package" "utils" "view"))))

new file mode 100644

@@ -0,0 +1,11 @@

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

+

+(defun homepage ()

+  (spinneret:with-html

+    (:h1 "Hello, World!")

+    (:div.main

+     (:nav

+      (:a :data-ic-get-from "/other"

+          :data-ic-target "#content"

+          "hi"))

+     (:main#content "home content"))))

new file mode 100644

@@ -0,0 +1,19 @@

+(in-package  :fwoar.rss-reader.utils)

+

+(defmacro defclass+ (name (&rest super) &body (direct-slots &rest options))

+  (let ((initargs (append (mapcan (lambda (class)

+                                    (typecase class

+                                      (cons (cadr class))

+                                      (t nil)))

+                                  super)

+                          (mapcan (lambda (slot)

+                                    (alexandria:ensure-list

+                                     (alexandria:when-let ((initarg (getf (cdr slot)

+                                                                          :initarg)))

+                                       (make-symbol (symbol-name initarg)))))

+                                  direct-slots))))

+    `(progn (defclass ,name ,super

+              ,direct-slots

+              ,@options)

+            (defun ,name (,@initargs)

+              (fw.lu:new ',name ,@initargs)))))

new file mode 100644

@@ -0,0 +1,59 @@

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

+

+(defclass rss-reader-route ()

+  ())

+

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

+

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

+

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

+  "CSS Reset"

+

+  '((*

+     :margin 0

+     :padding 0

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

+     :box-sizing border-box)              

+    ((:or pre code)

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

+    (body

+     :font-size 12pt)

+    ((:or h1 h2 h3 h4 h5 h6)

+     :font-size 1.6rem)

+    ((:or ul ol)

+     :padding-left 2rem)))

+

+(defclass homepage (rss-reader-route fwoar.default-layout:default-layout)

+  ())

+

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

+  "#BDE0F3")

+

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

+  (values))

+

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

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

+

+(araneus:define-controller other (_)

+  (values))

+(araneus:define-view other (_)

+  "<h2>???</h2>")