Add man page

clash/clash.lisp

@@ -15,7 +15,8 @@
                 #:read-directorysizes-for-trash-directory
                 #:write-directorysizes-for-trash-directory)
   (:use #:cl #:clash/parse-date #:clash/format)
-  (:export #:toplevel))
+  (:export #:toplevel
+           #:make-markdown-doc))
 
 (in-package :clash)
 
@@ -1041,3 +1042,13 @@ Args can be supplied to facilitate testing in SLIME."
         (clingon:run (toplevel/command) args)
         (clingon:run (toplevel/command)))
     (flush-directorysizes-cache)))
+
+;; Used from the build system
+(defun make-markdown-doc ()
+  "Generate documentation in a markdown format."
+  ;; the first argument is "--"
+  (let ((target (second (uiop:command-line-arguments))))
+    (with-open-file (out target :direction :output
+                                :if-exists :overwrite
+                                :if-does-not-exist :create)
+      (clingon:print-documentation :markdown (toplevel/command) out))))