Add the "stop" command.

40ants · Oct 29, 2024 · 4fdcac0 · 4fdcac0
1 parent e6a9de5
commit 4fdcac0
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/docs/changelog.lisp b/docs/changelog.lisp
@@ -11,6 +11,7 @@
                               "HTTP"))
   (0.3.1 2024-10-29
          "* `stop` function was exported and `serve` function was extended to return the server handler.
+          * `stop` command was added.
           * A typo was fixed in the documentation.")
   (0.3.0 2024-05-27
          "* Field `url` was added to `content` objects of type `post` and `page`. It contains a full URL of the page and can be used as `canonical` URL in templates.")

diff --git a/docs/making-a-static-site.lisp b/docs/making-a-static-site.lisp
@@ -195,6 +195,12 @@ CL-USER> (staticl:stop)
 ; No values
 ```
 
+Or from the command line:
+
+```bash
+$ staticl stop
+```
+
 ## How to add comments using Disqus
 
 

diff --git a/src/main.lisp b/src/main.lisp
@@ -94,3 +94,7 @@
                                    port)
                            (uiop:quit 1)))
                  :interface interface))
+
+(defcommand (main stop) ()
+  "Stops the web server."
+  (staticl:stop))