|
|
|
|
58
|
(ensure-directories-exist (or output (repo *config*)))
|
58
|
(ensure-directories-exist (or output (repo *config*)))
|
59
|
(let* ((xml (cxml:parse-file filepath (cxml-dom:make-dom-builder)))
|
59
|
(let* ((xml (cxml:parse-file filepath (cxml-dom:make-dom-builder)))
|
60
|
(posts (dom:get-elements-by-tag-name xml "item")))
|
60
|
(posts (dom:get-elements-by-tag-name xml "item")))
|
61
|
- (loop for post across posts do (import-post post output since))
|
|
|
|
|
61
|
+ (loop for post across posts do (if since (import-post post output since)
|
|
|
62
|
+ (import-post post output)))
|
62
|
(delete-file filepath))))
|
63
|
(delete-file filepath))))
|
63
|
|
64
|
|
64
|
(defun enable (&key filepath output)
|
65
|
(defun enable (&key filepath output)
|