From f94d232ffbbb40c67925313dbb8025286035ee06 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 15:12:42 -0500
Subject: Rename: user.lisp home.lisp

---
 home.lisp | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 home.lisp

(limited to 'home.lisp')

diff --git a/home.lisp b/home.lisp
new file mode 100644
index 0000000..c0ec8a6
--- /dev/null
+++ b/home.lisp
@@ -0,0 +1,56 @@
+;;;; user.lisp
+
+(in-package :vampire)
+
+;;; CLIENT STATE
+
+(defclass/std user-ctl ()
+  ())
+
+
+;;; CLIENT CONTROL
+
+;;; CLIENT UI
+
+(defun create-new-playlist-form (parent &rest args)
+  (declare (ignorable args))
+  (with-clog-create parent
+      (div ()
+           (section (:h2 :content "Create New Playlist"))
+           (label (:content "Playlist Title:"))
+           (form-element (:text :bind pl-title))
+           (button (:content "Create" :bind btn)))
+    (set-on-click
+     btn
+     (thunk*
+       (new-playlist (session-user parent) :title (value pl-title))
+       (reload (location (connection-body parent)))))))
+
+(defun url-to-playlist (pl)
+  (format nil "/playlist/~a"
+          (key pl)))
+
+(defun create-playlist-listing (parent &rest args)
+  (declare (ignorable args))
+  (dolist (pl (user-playlists (session-user parent)))
+    (let ((url
+            (url-to-playlist pl)))
+      (with-clog-create parent
+          (div ()
+               (section (:h4)
+                        (a (:link url :content (playlist-title pl) :bind pl-link))))
+        (set-on-click
+         pl-link
+         (thunk*
+           (setf (url (location (connection-body parent)))
+                 url)))))))
+
+(defun user-home-page (body)
+  (with-clog-create body
+      (div ()
+           (navigation-header ())
+           (p (:content (format nil "Welcome ~a" (user-name (session-user body)))))
+           (new-playlist-form ())
+           (playlist-listing ()))))
+
+
-- 
cgit v1.2.3