git.fiddlerwoaroof.com
Browse code

Clim UI: display the content of an item raw?

fiddlerwoaroof authored on 15/08/2016 08:47:19
Showing 1 changed files
... ...
@@ -54,8 +54,7 @@
54 54
           (format pane "~a <~a>~%"
55 55
                   (alimenta::title item)
56 56
                   (alimenta::link item)))))
57
-    (let ((text (funcall (compose #'plump:text #'plump:parse)
58
-                         (alimenta::content item))))
57
+    (let ((text (alimenta::content item)))
59 58
       (format pane "~&~{~{~a~^ ~}~^~%~}~2&"
60 59
               (remove-if #'null
61 60
                          (mapcar #'tokens