- [script] [generate-gemlog] added command line switch to force publishing of posts.

data/scripts/generate-gemlog.lisp

@@ -156,6 +156,8 @@
 (defparameter *indices-home-backlink-name*
   (getenv +environment-variable-gemlog-indices-home-backlink-name+ "home"))
 
+(defparameter *force-publish* nil)
+
 (defun parse-date (timestring)
   (local-time:parse-timestring timestring))
 
@@ -328,7 +330,8 @@
         (cond
           ((cdr (assoc +meta-skip-p+ (meta post)))
            (format t "skipping ~a as instructed by metadata.~%" file-path))
-          ((fs:file-exists-p file-path)
+          ((and (fs:file-exists-p file-path)
+                (not *force-publish*))
            (push post effective-posts)
            (setf (archive-file-path post) file-path))
           (t
@@ -526,6 +529,10 @@
   (finish-output)
   (read-line))
 
+(when (string= (first command-line:*free-arguments*)
+               "force")
+  (setf *force-publish* t))
+
 (if (ui:tui-active-p)
     (generate-on-tui)
     (let* ((bulk-posts-dir   (or (getenv +environment-variable-gemlog-posts-archive+ nil)