commit - ecfc3b7be9eacb6664f277cdcda30541a8914d33
commit + 5d775344dc2a8fda0b3c9794f7ae2f66eae9965a
blob - 6942a2359b7346672cb6fcea89b769f7531a81d3
blob + 93764d89dce801ecefacd7278aff8429c5ee93dc
--- ui.lisp
+++ ui.lisp
(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")
: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