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