~fancycade/wing

c04574fc54a177b48f16831c66066553b11cf7e8 — Harley Swick 5 months ago 75b287e master
New post includes markdown header with title
1 files changed, 4 insertions(+), 1 deletions(-)

M wing.scm
M wing.scm => wing.scm +4 -1
@@ 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")]