1 files changed, 4 insertions(+), 1 deletions(-)

M wing.scm

@@ 222,7 222,10 @@
 	    (print (string-append "title: " (car (alist-ref 'title alist))))
 	    (print (string-append "summary: " (car (alist-ref 'summary alist))))
 	    (print (string-append "tags: " (car (alist-ref 'tags alist))))
-	    (print "---"))))))
+	    (print "---")
+	    (newline)
+	    (print (string-append "# " (car (alist-ref 'title alist))))
+	    (newline))))))
 
 (define (post-alist post-name)
   (let* ([filename (string-append (trim-extension post-name) ".md")]