|
|
|
|
43
|
(with-open-file (out (merge-pathnames path (or output (repo *config*)))
|
43
|
(with-open-file (out (merge-pathnames path (or output (repo *config*)))
|
44
|
:direction :output
|
44
|
:direction :output
|
45
|
:if-exists :supersede
|
45
|
:if-exists :supersede
|
46
|
- :if-does-not-exist :create)
|
|
|
|
|
46
|
+ :if-does-not-exist :create
|
|
|
47
|
+ :external-format :utf-8)
|
47
|
;; TODO: What other data/metadata should we write out?
|
48
|
;; TODO: What other data/metadata should we write out?
|
48
|
(format out ";;;;;~%")
|
49
|
(format out ";;;;;~%")
|
49
|
(format out "title: ~A~%" title)
|
50
|
(format out "title: ~A~%" title)
|