feat: generate now produces a proper slug if given a normal title

Author: Adam Simpson

Makefile

@@ -8,3 +8,7 @@ ecl:
 clean:
 	rm cycle
 .PHONY: cycle
+
+install:
+	mv cycle /usr/local/bin/cycle
+.PHONY: install

cycle.asd

@@ -4,12 +4,13 @@
   :description "A opinionated static site builder."
   :author "Adam Simpson <adam@adamsimpson.net>"
   :license "GNU GPLv3"
-  :version "0.2.1"
+  :version "0.2.6"
   :serial t
   :depends-on (
     :local-time
     :cl-json
     :cl-mustache
+    :cl-ppcre
     :3bmd
     :3bmd-ext-code-blocks
     :unix-opts)

cycle.lisp

@@ -303,10 +303,13 @@
 
 (defun generate-post (title)
   "Take TITLE and create the necessary JSON and MD files for it."
-  (let ((date (shell "date +%Y-%m-%dT%R:%S%:z"))
+  (let* ((date (shell "date +%Y-%m-%dT%R:%S%:z"))
+        (slug (cl-ppcre:regex-replace-all ","
+                                          (cl-ppcre:regex-replace-all " " (string-downcase title) "-")
+                                          ""))
         (id (get-id))
-        (json-file (concat "./posts/" title ".json"))
-        (md-file (concat "./posts/" title ".md")))
+        (json-file (concat "./posts/" slug ".json"))
+        (md-file (concat "./posts/" slug ".md")))
     (write-file (json:encode-json-to-string `(("id" . ,id)
                                               ("published" . ,date)
                                               ("title" . ,title)