blog: Make port a configurable knob

diff --git a/blog.lisp b/blog.lisp
index b08ba39..9a218b0 100644 (file)
--- a/blog.lisp
+++ b/blog.lisp
@@ -299,13 +299,13 @@
                             "mogosanu.ro:/virtual/sites/thetarpit.org")
                     :output *standard-output*))
 
-(defun tlbs-run-site (&key kill)
+(defun tlbs-run-site (&key kill (port 8000))
   (cond
     ((and (not *busybox-process*) (not kill))
      (setq *busybox-process*
            (sb-ext:run-program "/bin/busybox"
                                (list "httpd" "-f"
-                                     "-p" "8000"
+                                     "-p" (write-to-string port :base 10)
                                      "-c" (concatenate 'string
                                                        *lbs-base*
                                                        "httpd.conf")