glenn
/
asteroid
mirror of https://github.com/glenneth1/asteroid.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix: add user management page

This commit is contained in:
Luis Pereira 2025-10-04 18:57:43 +01:00 committed by Brian O'Reilly
parent c2e7cfe943
commit 8589b774ed
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asteroid.lisp
View File

@ -439,6 +439,16 @@
:track-count (format nil "~d" track-count) :track-count (format nil "~d" track-count)
:library-path "/home/glenn/Projects/Code/asteroid/music/library/"))) :library-path "/home/glenn/Projects/Code/asteroid/music/library/")))
;; User Management page (requires authentication)
(define-page users-management #@"/admin/user" ()
"User Management dashboard"
(require-authentication)
(let ((template-path (merge-pathnames "template/users.chtml"
(asdf:system-source-directory :asteroid))))
(clip:process-to-string
(plump:parse (alexandria:read-file-into-string template-path))
:title "🎵 ASTEROID RADIO - User Management")))
(define-page player #@"/player" () (define-page player #@"/player" ()
(let ((template-path (merge-pathnames "template/player.chtml" (let ((template-path (merge-pathnames "template/player.chtml"
(asdf:system-source-directory :asteroid)))) (asdf:system-source-directory :asteroid))))