diff --git a/basis/webbrowser/webbrowser.factor b/basis/webbrowser/webbrowser.factor index a712fb1f5a..9b6986d710 100644 --- a/basis/webbrowser/webbrowser.factor +++ b/basis/webbrowser/webbrowser.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2011 John Benediktsson ! See http://factorcode.org/license.txt for BSD license -USING: accessors io.pathnames kernel sequences strings system -ui.operations urls vocabs ; +USING: accessors command-line io.pathnames kernel namespaces +sequences strings system ui.operations urls vocabs ; IN: webbrowser HOOK: open-item os ( item -- ) @@ -15,3 +15,8 @@ PREDICATE: url-string < string >url protocol>> >boolean ; [ pathname? ] \ open-item H{ } define-operation [ [ url? ] [ url-string? ] bi or ] \ open-url H{ } define-operation + +: webbrowser-main ( -- ) + command-line get [ open-url ] each ; + +MAIN: webbrowser-main