Use speakeasy static site generator

Author: swlkr

Vagrantfile

@@ -0,0 +1,10 @@
+(import joy :prefix "")
+
+(route :get "/" :home)
+
+(defn home [request]
+  (text/plain "You found joy!"))
+
+(def app (app))
+
+(server app 9001)

css/tailwind.min.css

@@ -0,0 +1,37 @@
+(use joy)
+
+
+(route :get "/todos/new" :new)
+(route :post "/todos" :create)
+
+
+(def todo
+  (body :todos
+    (validates :name :required true)
+    (permit :name :finished)))
+
+
+(defn new [request &opt errors]
+  (default errors {})
+
+  (let [todo (todo request)]
+
+    (form-for [request :create]
+      (text-field todo :name)
+      [:div (errors :name)]
+
+      (label-for :finished
+        # generates hidden input for false/zero values
+        (checkbox-field todo :finished)
+        [:span " Finished"])
+      [:div (errors :finished)]
+
+      (submit "Save"))))
+
+
+(defn create [request]
+  (let [todo (-> request todo db/save)]
+
+    (if (saved? todo)
+      (redirect-to :home)
+      (new request (errors todo)))))

examples/app.janet

@@ -0,0 +1 @@
+<h1 class="text-2xl text-gray-400">You found joy!</h1>

examples/controller.janet

@@ -0,0 +1,2 @@
+[:h1.text-2xl.text-gray-400
+  "You found joy!"]

examples/css.html

@@ -0,0 +1,3 @@
+  (def h1 :h1.text-2xl.text-gray-400)
+
+  [h1 "You found joy!"]

examples/css.janet

@@ -0,0 +1,5 @@
+<form>
+  <input type="text" placeholder="Your name" />
+  <input type="email" placeholder="Your email" />
+  <input type="submit" value="Submit" />
+</form>

examples/css1.janet

@@ -0,0 +1,4 @@
+[:form
+  [:input {:type "text" :placeholder "Your name"}]
+  [:input {:type "email" :placeholder "Your email"}]
+  [:input {:type "submit" :value "Submit"}]]

examples/form.html

@@ -0,0 +1,5 @@
+<ul>
+  <li>eggs</li>
+  <li>milk</li>
+  <li>tomatoes</li>
+</ul>

examples/form.janet

@@ -0,0 +1,6 @@
+(let [groceries [{:name "eggs"}
+                 {:name "milk"}
+                 {:name "tomatoes"}]]
+  [:ul
+    (foreach [g groceries]
+      [:li (g :name)])])

examples/loop.html

@@ -0,0 +1,36 @@
+(defn class [el & args]
+  (keyword el ;(map |(string "." $) args)))
+
+(def container :div.lg:w-2/3.p-4.mx-auto)
+
+(def h1 :h1.text-5xl.text-gray-800)
+(def h2 :h2.text-3xl.tracking-tight.text-gray-800)
+(def h3 :h3.text-2xl.text-gray-800)
+(def h4 :h4.text-l.text-gray-800)
+
+(def list :div.divide-y-2.divide-gray-200)
+(def hstack :div.self-stretch.flex-row.lg:flex)
+(def hstack:md (class hstack :lg:space-x-4))
+(def vstack :div.self-stretch.flex-col.flex-1)
+(def vstack:sm (class vstack :space-y-2))
+(def vstack:md (class vstack :space-y-4))
+(def vstack:lg (class vstack :space-y-16))
+(def spacer :div.flex-1)
+
+(def cta :a.inline-block.my-6.px-5.py-3.rounded-lg.bg-indigo-500.text-white.shadow-lg.hover:bg-indigo-700)
+
+(def mt-4 :div.mt-4)
+(def mt-10 :div.lg:mt-10)
+(def mt-16 :div.lg:mt-16)
+(def space-y-4 :div.space-y-4)
+
+(def pre :pre.flex-1)
+(def code :code.rounded-lg.p-6)
+
+(def install-container :div.bg-gray-100.py-4.mt-6)
+(def install-instruction :div.mt-2.inline-block.rounded-lg.border.border-gray-500.p-2)
+
+(def text:light :div.text-gray-600)
+(def text :div.text-gray-800.flex-1)
+
+(def link :a.text-indigo-500.underline)