don't say I'm not lenient

* tekuti/post.scm (post-sxml-content): Don't throw an exception if a post
  fails to format.

1 files changed, 10 insertions, 5 deletions

diff --git a/tekuti/post.scm b/tekuti/post.scm
index e295c9d..2b96c3f 100644
--- a/tekuti/post.scm
+++ b/tekuti/post.scm
@@ -105,11 +105,16 @@
   (git "show" (string-append (assq-ref post 'sha1) ":content")))
 
 (define (post-sxml-content post)
-  (let ((format (or (assq-ref post 'format) 'wordpress)))
-    ((case format
-       ((wordpress) wordpress->sxml)
-       (else (lambda (text) `(pre ,text))))
-     (post-raw-content post))))
+  (let ((format (or (assq-ref post 'format) 'wordpress))
+        (raw (post-raw-content post)))
+    (catch #t
+           (lambda ()
+             (with-backtrace
+              (case format
+                ((wordpress) (wordpress->sxml raw))
+                (else `(pre ,raw)))))
+           (lambda args
+             `(pre "Formatting error\n" ,raw)))))
 
 (define (post-readable-date post)
   (let ((date (time-utc->date