1 6b4d9ef2 2020-11-09 op (in-package #:phos/ui)
3 073b25eb 2020-11-09 op (defparameter *title-1-font* "serif 22"
4 073b25eb 2020-11-09 op "Font for the level 1 title.")
6 073b25eb 2020-11-09 op (defparameter *title-2-font* "serif 19"
7 073b25eb 2020-11-09 op "Font for the level 2 title.")
9 073b25eb 2020-11-09 op (defparameter *title-3-font* "serif 16"
10 073b25eb 2020-11-09 op "Font for the level 3 title.")
12 073b25eb 2020-11-09 op (defparameter *verbatim-font* "monospace 12"
13 073b25eb 2020-11-09 op "Font for the verbatim element.")
15 073b25eb 2020-11-09 op (defparameter *item-font* "serif 12"
16 073b25eb 2020-11-09 op "Font for the item.")
18 073b25eb 2020-11-09 op (defparameter *link-font* "serif 12"
19 073b25eb 2020-11-09 op "Font for the links.")
21 073b25eb 2020-11-09 op (defparameter *paragraph-font* "serif 12"
22 073b25eb 2020-11-09 op "Font for the normal text")
24 073b25eb 2020-11-09 op (defparameter *window-content* nil)
26 073b25eb 2020-11-09 op (defparameter *current-url* nil)
28 6b4d9ef2 2020-11-09 op (defgeneric render (obj frame)
29 073b25eb 2020-11-09 op (:documentation "Render OBJ in the nodgui FRAME"))
31 6b4d9ef2 2020-11-09 op (defmethod render ((l list) f)
32 6b4d9ef2 2020-11-09 op (dolist (el l)
33 6b4d9ef2 2020-11-09 op (render el f)))
35 6b4d9ef2 2020-11-09 op (defmethod render ((title gemtext:title) f)
36 073b25eb 2020-11-09 op (with-slots ((text phos/gemtext:text)
37 6b4d9ef2 2020-11-09 op (level phos/gemtext:level))
39 6b4d9ef2 2020-11-09 op (let ((w (make-instance 'label
41 073b25eb 2020-11-09 op :font (case level
42 073b25eb 2020-11-09 op (1 *title-1-font*)
43 073b25eb 2020-11-09 op (2 *title-2-font*)
44 073b25eb 2020-11-09 op (3 *title-3-font*))
45 073b25eb 2020-11-09 op :text (format nil "~v{~A~:*~} ~a" level '("#") text))))
46 6b4d9ef2 2020-11-09 op (pack w :side :top))))
48 6b4d9ef2 2020-11-09 op (defmethod render ((link gemtext:link) f)
49 6b4d9ef2 2020-11-09 op (with-slots ((text phos/gemtext:text)
50 6b4d9ef2 2020-11-09 op (url phos/gemtext:url))
52 6b4d9ef2 2020-11-09 op (let ((w (make-instance 'button
54 073b25eb 2020-11-09 op ;; :font *link-font*
55 073b25eb 2020-11-09 op :text (format nil "~a" (or text url))
56 073b25eb 2020-11-09 op :command (lambda ()
57 073b25eb 2020-11-09 op (format t "before rendering ~a~%" url)
58 073b25eb 2020-11-09 op (do-render url)))))
59 6b4d9ef2 2020-11-09 op (pack w :side :top))))
61 6b4d9ef2 2020-11-09 op (defmethod render ((item gemtext:item) f)
62 6b4d9ef2 2020-11-09 op (with-slots ((text phos/gemtext:text)) item
63 6b4d9ef2 2020-11-09 op (let ((w (make-instance 'label
65 073b25eb 2020-11-09 op :font *item-font*
66 6b4d9ef2 2020-11-09 op :text (format nil "* ~a" text))))
67 6b4d9ef2 2020-11-09 op (pack w :side :top))))
69 6b4d9ef2 2020-11-09 op (defmethod render ((par gemtext:paragraph) f)
70 6b4d9ef2 2020-11-09 op (with-slots ((text phos/gemtext:text)) par
71 6b4d9ef2 2020-11-09 op (let ((w (make-instance 'label
73 073b25eb 2020-11-09 op :font *paragraph-font*
75 6b4d9ef2 2020-11-09 op (pack w :side :top))))
77 6b4d9ef2 2020-11-09 op (defmethod render ((v gemtext:verbatim) f)
78 6b4d9ef2 2020-11-09 op (with-slots ((text phos/gemtext:text)
79 6b4d9ef2 2020-11-09 op (alt phos/gemtext:alt))
81 6b4d9ef2 2020-11-09 op (let ((w (make-instance 'label
83 073b25eb 2020-11-09 op :font *verbatim-font*
85 073b25eb 2020-11-09 op (pack w :side :top)
87 073b25eb 2020-11-09 op (pack (make-instance 'label
90 073b25eb 2020-11-09 op :side :top)))))
92 073b25eb 2020-11-09 op (defun clear-window ()
93 073b25eb 2020-11-09 op (pack-forget-all *window-content*))
95 073b25eb 2020-11-09 op (defun do-render (url)
96 073b25eb 2020-11-09 op (let* ((uri (quri:uri url))
97 073b25eb 2020-11-09 op (*current-url* uri)
98 073b25eb 2020-11-09 op (base (quri:copy-uri uri)))
99 073b25eb 2020-11-09 op (setf (quri:uri-path base) nil)
100 073b25eb 2020-11-09 op (clear-window)
101 073b25eb 2020-11-09 op (render (gemtext:parse-string "# loading...")
102 073b25eb 2020-11-09 op *window-content*)
103 073b25eb 2020-11-09 op (clear-window)
104 073b25eb 2020-11-09 op (multiple-value-bind (status body) (gemini:request url)
105 073b25eb 2020-11-09 op (declare (ignore status))
106 073b25eb 2020-11-09 op (render (gemtext:parse-string body base)
107 073b25eb 2020-11-09 op *window-content*))))
109 073b25eb 2020-11-09 op (defun main (url)
110 073b25eb 2020-11-09 op (with-nodgui (:title "phos")
111 073b25eb 2020-11-09 op (let ((sf (make-instance 'scrolled-frame)))
112 073b25eb 2020-11-09 op (setf *window-content* (interior sf))
113 073b25eb 2020-11-09 op (pack sf :side :top :fill :both :expand t)
114 073b25eb 2020-11-09 op (do-render url))))
116 073b25eb 2020-11-09 op ;; (nodgui.demo:demo)
118 073b25eb 2020-11-09 op ;; (main "gemini://gemini.omarpolo.com/")