gemini.ui: adding a MAIN:

[factor.git] / extra / gemini / ui / ui.factor

diff --git a/extra/gemini/ui/ui.factor b/extra/gemini/ui/ui.factor
index a9f3ed1bf99107ec62800447f2ab068159014d21..671e943a1b37142f4980d5617b310172c284ba82 100644 (file)
--- a/extra/gemini/ui/ui.factor
+++ b/extra/gemini/ui/ui.factor
@@ -110,3 +110,8 @@ gemini-gadget "scrolling" f {
 } define-command-map
 
 [ dup url? [ protocol>> "gemini" = ] [ drop f ] if ] \ com-gemini H{ { +primary+ t } } define-operation
+
+: gemini-main ( -- )
+    [ "gemini.circumlunar.space" open-gemini-window ] with-ui ;
+
+MAIN: gemini-main