28 lines
701 B
Factor
28 lines
701 B
Factor
! Copyright (C) 2011 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
USING: combinators combinators.short-circuit io.pathnames
|
|
present sequences strings system ui.operations urls vocabs ;
|
|
|
|
IN: webbrowser
|
|
|
|
HOOK: open-file os ( path -- )
|
|
|
|
{
|
|
{ [ os macosx? ] [ "webbrowser.macosx" ] }
|
|
{ [ os linux? ] [ "webbrowser.linux" ] }
|
|
{ [ os windows? ] [ "webbrowser.windows" ] }
|
|
} cond require
|
|
|
|
: open-url ( url -- )
|
|
>url open-file ;
|
|
|
|
[ pathname? ] \ open-file H{ } define-operation
|
|
|
|
[ url? ] \ open-url H{ } define-operation
|
|
|
|
PREDICATE: url-string < string
|
|
{ [ "http://" head? ] [ "https://" head? ] } 1|| ;
|
|
|
|
[ url-string? ] \ open-url H{ } define-operation
|