changeset 381: |
386d51cf61ca |
parent: |
aeef48e62bc0
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Tue, 28 May 2024 23:12:31 -0400 |
permissions: |
-rw-r--r-- |
description: |
add ffi/readline, net updates |
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)))))