webbrowser: adding MAIN.
parent
15b0f07b37
commit
551e079da8
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue