Add a command line utility to build static site from the cli.

.gitignore

@@ -5,3 +5,4 @@
 .*.~undo-tree~
 *.fasl
 /example/stage/
+/stage/

roswell/staticl.ros

@@ -0,0 +1,15 @@
+#!/bin/sh
+#|-*- mode:lisp -*-|#
+#|
+exec ros -Q -- $0 "$@"
+|#
+(progn
+  (ros:ensure-asdf)
+  #+quicklisp
+  (ql:quickload '("staticl"
+                  "staticl/main")
+                :silent t))
+
+(in-package #:staticl/main)
+
+;;; vim: set ft=lisp lisp:

src/main.lisp

@@ -0,0 +1,46 @@
+(uiop:define-package #:staticl/main
+  (:use #:cl)
+  (:import-from #:staticl/core
+                #:stage)
+  (:import-from #:defmain
+                #:subcommand
+                #:defcommand
+                #:defmain))
+(in-package #:staticl/main)
+
+
+(defvar *verbose* nil)
+
+
+(defmain (main :program-name "staticl") ((verbose "Output more information"
+                                                  :flag t)
+                                         &subcommand)
+  (let ((*verbose* verbose))
+    (defmain:subcommand)))
+
+
+(defcommand (main generate) ((source-dir "A with site's source files."
+                                         :default (namestring
+                                                   (uiop:ensure-directory-pathname
+                                                    *default-pathname-defaults*)))
+                             (output-dir "An output directory to write HTML files to."
+                                         :default (namestring
+                                                   (uiop:ensure-directory-pathname
+                                                    (merge-pathnames "stage")))))
+  "Generates HTML static site from the source files."
+  (let ((source-dir (uiop:ensure-directory-pathname
+                     source-dir))
+        (output-dir (uiop:ensure-directory-pathname
+                     output-dir)))
+    (unless (probe-file (merge-pathnames ".staticlrc"
+                                         source-dir))
+      (format *standard-output*
+              "Config file .staticlrc is missing from the ~A directory.~%"
+              (namestring source-dir))
+      (uiop:quit 1))
+
+    (stage :root-dir source-dir
+           :stage-dir output-dir)
+    (when *verbose*
+      (format t "Site was written to: ~A~%"
+              (namestring output-dir)))))