Commit Diff


commit - ecfc3b7be9eacb6664f277cdcda30541a8914d33
commit + 5d775344dc2a8fda0b3c9794f7ae2f66eae9965a
blob - 6942a2359b7346672cb6fcea89b769f7531a81d3
blob + 93764d89dce801ecefacd7278aff8429c5ee93dc
--- ui.lisp
+++ ui.lisp
@@ -18,6 +18,9 @@
 (defparameter *link-font* "serif 12"
   "Font for the links.")
 
+(defparameter *blockquote-font* "serif 12 italic"
+  "Font for the quotations.")
+
 (defparameter *paragraph-font* "serif 12"
   "Font for the normal text")
 
@@ -89,6 +92,16 @@
                             :text (format nil "* ~a" text))))
       (pack w :side :top :fill :both :expand t))))
 
+(defmethod render ((q gemtext:blockquote) f)
+  (with-slots ((text gemtext:text)) q
+    (let ((w (make-instance 'message
+                            :master f
+                            :font *blockquote-font*
+                            :justify :left
+                            :text text
+                            :width 600)))
+      (pack w :side :top :fill :both :expand t))))
+
 (defmethod render ((par gemtext:paragraph) f)
   (with-slots ((text phos/gemtext:text)) par
     (let ((w (make-instance 'message