Conditional machine specific hostname sourcing

scripts/guestbook/guestbook.lisp

@@ -1,26 +0,0 @@
-(ql:quickload :woo)
-
-(defparameter *icon-file* "~/scripts/guestbook/icon.png")
-(defparameter *message-list-file* "~/scripts/guestbook/list.txt")
-
-(defparameter *routes* (make-hash-table :test 'equal))
-(defparameter *rate-limits* (make-hash-table :test 'equal))
-(defparameter *not-seen-messages* '())
-
-(defun send-alert (msg)
-  (uiop:run-program `("notify-send" "--icon" ,*icon-file* ,msg)))
-
-
-(defun add-message (env)
-
-  
-
-(woo:run
-  (lambda (env)
-    (let* ((path-info (getf env :path-info))
-           (req-method (getf env :request-method))
-           (ip (getf env :remote-addr))
-           (route-fn (getf *routes* path-info
-      
-    '(200 (:content-type "text/plain") ("Hello, World")))
-  :worker-num 1)