Fix url-name encoding in edit_post

parent 388343f0
......@@ -266,7 +266,11 @@
(meta-data-status-set! article-meta article-status)
(when update-timestamp?
(meta-data-timestamp-set! article-meta (current-time)))
(git-post-article article-name article-content (record-type->list article-meta))))
(let* ((timestamp (string->number
(meta-data-timestamp article-meta)))
(url-name (uri-encode (gen-proper-url-name
timestamp article-title))))
(git-post-article url-name article-content (record-type->list article-meta)))))
(define (git-remove-article article-name article-content article-oid)
(let* ((article-meta (git/get-meta-data article-oid)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment