mirror of https://codeberg.org/cage/tinmop/
- improved error reporting in script 'generate-gemlog.lisp'.
This commit is contained in:
parent
416d9356e4
commit
5d3f6b69fe
|
@ -137,20 +137,26 @@
|
|||
(parse-gemini-file (fs:slurp-file a))
|
||||
(error (e)
|
||||
(notify
|
||||
"Unable to parse ~a: ~a"
|
||||
"Unable to parse ~a: ~a~%"
|
||||
a e)
|
||||
nil)))
|
||||
original-post-files))
|
||||
(all-meta (mapcar (lambda (a)
|
||||
(all-meta (mapcar (lambda (a file)
|
||||
(handler-case
|
||||
(let ((meta (extract-meta a)))
|
||||
meta)
|
||||
(if meta
|
||||
meta
|
||||
(progn
|
||||
(notify "Unable to find metadata for ~a~%"
|
||||
file)
|
||||
nil)))
|
||||
(error (e)
|
||||
(notify
|
||||
"Unable to parse meta ~a: ~a"
|
||||
a e)
|
||||
"Unable to parse metadata ~a: ~a~%"
|
||||
file e)
|
||||
nil)))
|
||||
parsed-posts)))
|
||||
parsed-posts
|
||||
original-post-files)))
|
||||
(loop for original-post-file in original-post-files
|
||||
for parsed-post in parsed-posts
|
||||
for meta in all-meta
|
||||
|
|
Loading…
Reference in New Issue