Zander671/truth-table
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove prefix option

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-09-05 19:01:22 -07:00
parent 76ae43160a
commit 0d9b68a75a
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
web.lisp
View File

@ -284,7 +284,7 @@ reblocks bug.")
(call-next-method))) (call-next-method)))
(defapp truth-table-app (defapp truth-table-app
:prefix "/") :prefix *default-prefix*)
(defmethod reblocks/page:init-page ((app truth-table-app) (url-path string) (defmethod reblocks/page:init-page ((app truth-table-app) (url-path string)
expire-at) expire-at)
@ -299,10 +299,7 @@ reblocks bug.")
,(format nil "specify port to use (default: ~d)" *default-port*)) ,(format nil "specify port to use (default: ~d)" *default-port*))
(#\a "address" address t (#\a "address" address t
,(format nil "specify address to bind to (default: ~a)" ,(format nil "specify address to bind to (default: ~a)"
*default-address*)) *default-address*)))
(#\x "prefix" prefix t
,(format nil "specify the URL prefix (default: ~a)"
*default-prefix*)))
"Spec for use in `parse-command-line.") "Spec for use in `parse-command-line.")
(defun determine-port (opts) (defun determine-port (opts)
@ -347,9 +344,6 @@ arguments."
(uiop:quit 0))) (uiop:quit 0)))
(when cmdline-error (when cmdline-error
(uiop:quit 1)) (uiop:quit 1))
(defapp truth-table-app
:prefix (or (option-value 'prefix opts)
*default-prefix*))
(reblocks/server:start :apps '(truth-table-app) (reblocks/server:start :apps '(truth-table-app)
:port port :port port
:interface address :interface address