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

---
 user.lisp | 56 --------------------------------------------------------
 1 file changed, 56 deletions(-)
 delete mode 100644 user.lisp

(limited to 'user.lisp')

diff --git a/user.lisp b/user.lisp
deleted file mode 100644
index c0ec8a6..0000000
--- a/user.lisp
+++ /dev/null
@@ -1,56 +0,0 @@
-;;;; 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