gopher.ui: adding a MAIN:

diff --git a/extra/gopher/ui/ui.factor b/extra/gopher/ui/ui.factor
index be7f9b8d9fd8967241f1451c1a6750cf806a1b55..455ecf2516b29a03e0df4df77b8f6d5c0ae939f2 100644 (file)
--- a/extra/gopher/ui/ui.factor
+++ b/extra/gopher/ui/ui.factor
@@ -100,3 +100,8 @@ gopher-gadget "scrolling" f {
 } define-command-map
 
 [ gopher-link? ] \ com-gopher H{ { +primary+ t } } define-operation
+
+: gopher-main ( -- )
+    [ "gopher.quux.org" open-gopher-window ] with-ui ;
+
+MAIN: gopher-main