commit - 4628da9474f8d1b73b8e9d9eb24d8775f9afe02f
commit + 54fe3a5eabbee0dc163a691803c54f6784a670be
blob - 492ce696e0743a8f4bb196b674a383c8e8bdd778
blob + 3726fed82e49d42f025b55778d4c99cced8ff4fc
--- ui.lisp
+++ ui.lisp
(1 *title-1-font*)
(2 *title-2-font*)
(3 *title-3-font*))
- :text (format nil "~v{~A~:*~} ~a" level '("#") text))))
+ :text (format nil "~v{~A~:*~} ~a"
+ level '("#") text))))
(pack w :side :top :fill :both :expand t))))
(defmethod render ((link gemtext:link) f)
*window-content*))))
(defun navigate-button-cb ()
- (navigate-to (quri:uri (string-trim '(#\newline #\space) (text *url-bar*)))))
+ (navigate-to (quri:uri (string-trim '(#\newline #\space)
+ (text *url-bar*)))))
(defun main (url)
(with-nodgui (:title "phos")
(let* ((nav (make-instance 'frame))
(back-btn (make-instance 'button :text "←" :master nav))
(forw-btn (make-instance 'button :text "→" :master nav))
- (go-btn (make-instance 'button :text "GO!" :master nav :command #'navigate-button-cb))
+ (go-btn (make-instance 'button :text "GO!" :master nav
+ :command #'navigate-button-cb))
(url-bar (make-instance 'text :height 1 :master nav))
- (sf (make-instance 'scrolled-frame :padding 10 :takefocus nil)))
+ (sf (make-instance 'scrolled-frame :padding 10
+ :takefocus nil)))
(setf *url-bar* url-bar)
(setf *window-content* (interior sf))
(setf (text url-bar) "about:phos")