commit 5d775344dc2a8fda0b3c9794f7ae2f66eae9965a
from: Omar Polo <op@omarpolo.com>
date: Thu Jan 13 21:57:49 2022 UTC

add ui bindings for the blockquotes, see #1

I had this in my local tree for a while and forgot to commit them!
Since they're here, it'd be a waste to just delete it, even if the ui
stuff may not stay around in the long run.

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