factor/basis/webbrowser/webbrowser.factor

! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license

USING: accessors combinators.short-circuit io.pathnames
sequences strings system ui.operations urls vocabs ;

IN: webbrowser

HOOK: open-file os ( path -- )

"webbrowser." os name>> append 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