title) + (<meta> (@ :charset "UTF-8")) + (<meta> (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) + (<body> + ($center + (<div> (@ :class "container") (apply 'eval body))))) + str))) diff --git a/site/login.lisp b/site/login.lisp index cb1f82f..6a6c8aa 100644 --- a/site/login.lisp +++ b/site/login.lisp @@ -6,17 +6,14 @@ :handle (login-page)) (defun login-page () - (page (:title "V A M P I R E ~ LOGIN") - (:div (:h1 "I vant to suck your blood") - (:form :method "POST" :action (wknd:route-to 'create.session) - (:input :placeholder "Name" :name "name") - (:br) - (:input :placeholder "Password" :type "password" :name "password") - (:br) - (:button :type "submit" "Click to Login")) - (:a :href (wknd:route-to 'new-account.html) - "Become Undead")))) - - - - + (page + "V A M P I R E ~ LOGIN" + (<div> (@ :class "title") + (<h1> "I vant to suck your blood") + (<form> (@ :method "POST" :action (wknd:route-to 'create.session)) + (<input> (@ :placeholder "Name" :name "name")) + (<input> (@ :placeholder "Password" :type "password" :name "password")) + (<button> (@ :type "submit") "Click to Login")) + ($center + (<a> (@ :href (wknd:route-to 'new-account.html)) + "Hath thou been bitten? Click here to become one of us..."))))) -- cgit v1.2.3

From a95cdd714187903ed24e40804c449e8e4737f027 Mon Sep 17 00:00:00 2001 From: Grant Shoshin Shangreaux Date: Sat, 6 Jul 2024 15:44:51 -0500 Subject: Add: redefined pages with hypnotisml syntax --- package.lisp | 4 ++-- site/home.lisp | 33 ++++++++++++++++----------------- site/html.lisp | 22 ++++++++++++---------- site/login.lisp | 25 +++++++++++-------------- 4 files changed, 41 insertions(+), 43 deletions(-) diff --git a/package.lisp b/package.lisp index d4cf438..a6543c9 100644 --- a/package.lisp +++ b/package.lisp @@ -1,13 +1,13 @@ ;;;; package.lisp (defpackage #:vampire - (:use #:cl) + (:use #:cl #:hypnotisml) (:local-nicknames (#:db #:bknr.datastore) (#:wknd #:weekend) - (#:html #:hypnotisml) (#:a #:alexandria-2) (#:zippy #:org.shirakumo.zippy )) + (:import-from #:hypnotisml) (:import-from #:flatbind #:do>) (:import-from #:bknr.datastore #:with-transaction diff --git a/site/home.lisp b/site/home.lisp index 0b02e0c..ebc644b 100644 --- a/site/home.lisp +++ b/site/home.lisp @@ -4,20 +4,19 @@ :using user-known :get :route "" :returns "text/html" - :handle (page (:title "V A M P I R E") - (:div :id "main" - (:h1 "hey " (user-name user)) - (:br) - (:div - (:form :method "POST" :action (wknd:route-to 'destroy.session) - (:button :type "submit" "Logout"))) - (:br) - (:br) - (:div - (:form :method "POST" :action (wknd:route-to 'create.invite) - (:p "Initiate an invitation...") - (:button :type "submit" "Bite Someone"))) - (:br) - (:h2 "Outstanding inBites:") - (:ul (dolist (i (invites-by-maker user)) - (:li (key i))))))) + :handle + (page + "V A M P I R E" + (

+ ($vcenter + (

(