! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: environment fry io io.encodings.binary
io.encodings.string io.encodings.utf8 io.files io.launcher
io.pathnames io.standard-paths kernel math sequences splitting
system ;
IN: io.standard-paths.unix

M: unix find-in-path*
    [ "PATH" os-env ":" split ] dip
    '[ _ append-path exists? ] find nip ;

! iterm2 spews some terminal info on every bash command.
: parse-login-paths ( seq -- strings )
    dup [ 7 = ] find-last drop [ 1 + tail-slice ] when*
    utf8 decode ":" split ;

: standard-login-paths ( -- strings )
    { "bash" "-l" "-c" "echo $PATH" }
    binary <process-reader> stream-contents parse-login-paths ;

M: unix find-in-standard-login-path*
    [ standard-login-paths ] dip '[ _ append-path exists? ] find nip ;