marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use separator defined by config instead of hardcoding the default.

Browse source
This commit is contained in:
Alfredo Beaumont 2017-03-29 21:39:27 +02:00
parent ec2eb2464c
commit 67ef0dc71e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/import.lisp
View file

@ -46,12 +46,12 @@
:if-does-not-exist :create :if-does-not-exist :create
:external-format :utf-8) :external-format :utf-8)
;; TODO: What other data/metadata should we write out? ;; TODO: What other data/metadata should we write out?
(format out ";;;;;~%") (format out "~A~%" (separator *config*))
(format out "title: ~A~%" title) (format out "title: ~A~%" title)
(format out "tags: ~A~%" (format nil "~{~A~^, ~}" tags)) (format out "tags: ~A~%" (format nil "~{~A~^, ~}" tags))
(format out "date: ~A~%" date) (format out "date: ~A~%" date)
(format out "format: html~%") ; post format: html, md, rst, etc (format out "format: html~%") ; post format: html, md, rst, etc
(format out ";;;;;~%") (format out "~A~%" (separator *config*))
(format out "~A~%" (regex-replace-all (string #\Newline) content "<br>")))) (format out "~A~%" (regex-replace-all (string #\Newline) content "<br>"))))
(defun import-posts (filepath output &optional since) (defun import-posts (filepath output &optional since)