aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-30 18:01:54 -0500
committerColin Okay <colin@cicadas.surf>2022-10-30 18:01:54 -0500
commitaca3f9e03e5768cce31cbb560fa312a87ab7d49b (patch)
treed396560a9622cf0202aafa640710807338821e99
parent32ed79e62f1c045c8a62504f76b8d505a1988f98 (diff)
Tweaks
-rw-r--r--explore.lisp1
-rw-r--r--home.lisp29
-rw-r--r--playlist.lisp5
3 files changed, 18 insertions, 17 deletions
diff --git a/explore.lisp b/explore.lisp
index ca9cb8e..e2bc55c 100644
--- a/explore.lisp
+++ b/explore.lisp
@@ -11,6 +11,7 @@
(div (:bind card)
(a (:link (url-to-playlist pl) )
(img (:bind thumb))
+ (br ())
(span (:content (playlist-title pl)))
(span (:content " -- "))
(span (:content (secs-to-hms (playlist-duration pl))))))
diff --git a/home.lisp b/home.lisp
index 0446b72..71fe31c 100644
--- a/home.lisp
+++ b/home.lisp
@@ -7,7 +7,7 @@
(defun create-new-playlist-form (parent)
(with-clog-create parent
(form ()
- (section (:h2 :content "Create New Playlist"))
+ (section (:h3 :content "Create New Playlist"))
(label (:content "Playlist Title:"))
(form-element (:text :bind pl-title))
(button (:content "Create" :bind btn)))
@@ -23,18 +23,16 @@
(defun create-playlist-listing (parent)
(dolist (pl (user-playlists (session-user parent)))
- (let ((url
- (url-to-playlist pl)))
- (with-clog-create parent
- (div (:bind pl-item)
- (p ()
- (a (:link url :content (playlist-title pl)))
- (button (:content "X" :bind btn))))
- (set-on-click
- btn
- (thunk*
- (destroy-playlist pl)
- (destroy pl-item)))))))
+ (with-clog-create parent
+ (div (:bind pl-item)
+ (div ()
+ (playlist-explore-card (pl))
+ (button (:content "delete" :bind btn))))
+ (set-on-click
+ btn
+ (thunk*
+ (destroy-playlist pl)
+ (destroy pl-item))))))
(defun create-invite-list-item (invite-list invite)
(with-clog-create invite-list
@@ -84,9 +82,10 @@
(navigation-header ())
(div (:class "row")
(div ()
- (p (:content (format nil "Welcome ~a" (user-name (session-user body)))))
+ (section (:pre :content (format nil "Welcome ~a" (user-name (session-user body)))))
+ (section (:h3 :content "Your Playlists"))
+ (div (:class "row") (playlist-listing ()))
(new-playlist-form ())
- (playlist-listing ())
(invite-control ()))))))
diff --git a/playlist.lisp b/playlist.lisp
index c222395..4eaba3d 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -269,12 +269,13 @@
(defun create-track-list-item (list track ctl)
(with-clog-create list
(list-item (:bind container)
+
+ (div (:bind item :class "track-list-item")
+ (section (:pre :content (track-listing-line track))))
(div (:bind edit-controls)
(button (:content "delete " :bind delbtn))
(button (:content "↓" :bind downbtn))
(button (:content "↑" :bind upbtn)))
- (div (:bind item :class "track-list-item")
- (section (:pre :content (track-listing-line track))))
(audio (:source (media-url-path track) :controls nil :bind audio)))
(let ((track-ctl
(make-instance 'track-ctl