diff options
Diffstat (limited to 'vampire.lisp')
| -rw-r--r-- | vampire.lisp | 21 |
1 files changed, 4 insertions, 17 deletions
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))))) |