From 23873b455554ba40f79be561b5150b4526a19d3f Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 18 May 2024 07:50:16 -0700 Subject: Remove: Purged CLOG --- vampire.lisp | 21 ++++----------------- 1 file changed, 4 insertions(+), 17 deletions(-) (limited to 'vampire.lisp') diff --git a/vampire.lisp b/vampire.lisp index a45b853..247ff4d 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -47,28 +47,15 @@ (setf *config* config) (initialize-database config ) (start-downloader-service config) - (clog:initialize 'main - :port (port config) - :host (host config) - :extended-routing t - :static-root (static-directory config)) - (set-on-new-window (when-logged-in? 'about-page) :path "/about") - (set-on-new-window (when-logged-in? 'user-home-page) :path "/home") - (set-on-new-window (when-logged-in? 'user-listing-page) :path "/user") - (set-on-new-window 'login-page :path "/login") - (set-on-new-window (when-logged-in? 'playlist-page) :path "/playlist") - (set-on-new-window 'new-accout-page :path "/new-account") - (set-on-new-window (when-logged-in? 'explore-page) :path "/explore") (when (swank-port config) (swank:create-server :port (swank-port config) :dont-close t))) (defun hacking-start () - (start-vampire (make-instance - 'config - :static-directory (merge-pathnames "vampire-static/" (user-homedir-pathname)) - :datastore-directory (merge-pathnames "vampire-store/" (user-homedir-pathname)))) - (clog:open-browser)) + (start-vampire + (make-instance 'config + :static-directory (merge-pathnames "vampire-static/" (user-homedir-pathname)) + :datastore-directory (merge-pathnames "vampire-store/" (user-homedir-pathname))))) -- cgit v1.2.3