Mercurial > core / lisp/lib/web/dash.lisp
changeset 698: |
96958d3eb5b0 |
parent: |
4d8451fe5423
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; web/dash.lisp --- local user dashboard 4 (uiop:define-package :web/dash 5 (:use :cl :std #+nil :lass #+nil :spinneret :cli/clap) 6 ;; (:import-from :clack :clackup) 12 (in-package :web/dash) 14 (defparameter *web-dash-port* 8800) 15 (defparameter *web-dash-static-directory* #P"/tmp/web/dash/static/") 19 (defun main (&key (output *standard-output*) (port *web-dash-port*)) 20 (let ((*standard-output* output)) 21 (print "starting dash server on ~A" port) 22 (handler-case (sb-thread:join-thread (find-if (lambda (th) 23 (search "hunchentoot" (sb-thread:thread-name th))) 24 (sb-thread:list-all-threads))) 26 (#+sbcl sb-sys:interactive-interrupt 28 (format *error-output* "Aborting.~&") 29 ;; (clack:stop *server*) 31 (error (c) (format t "Woops, an unknown error occured:~&~a~&" c)))))