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

remove duplicated code.

This commit is contained in:
Brian O'Reilly 2025-10-04 10:31:46 -04:00
parent 803555b8b1
commit 439da74bb3
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
asteroid.lisp
View File

@ -20,27 +20,6 @@
(asdf:system-source-directory :asteroid)))
(defparameter *supported-formats* '("mp3" "flac" "ogg" "wav"))
;; ;; Authentication functions
;; (defun require-authentication ()
;; "Require user to be authenticated"
;; (handler-case
;; (unless (session:field "user-id")
;; (radiance:redirect "/asteroid/login"))
;; (error (e)
;; (format t "Authentication error: ~a~%" e)
;; (radiance:redirect "/asteroid/login"))))
;; (defun require-role (role)
;; "Require user to have a specific role"
;; (handler-case
;; (let ((current-user (get-current-user)))
;; (unless (and current-user (user-has-role-p current-user role))
;; (radiance:redirect "/asteroid/login")))
;; (error (e)
;; (format t "Role check error: ~a~%" e)
;; (radiance:redirect "/asteroid/login"))))
;; API Routes
(define-page admin-scan-library #@"/admin/scan-library" ()
"API endpoint to scan music library"