find-dotenv-file ( -- path/f )

Vocabulary

dotenv

Inputs

None

Outputs

path/f

an object

Definition

USING: io.directories io.files io.pathnames kernel namespaces ;

IN: dotenv

: find-dotenv-file ( -- path/f )
    f current-directory get absolute-path [
        nip [
            ".env" append-path dup file-exists?
            [ drop f ] unless
        ] [ ?parent-directory ] bi over [ f ] [ dup ] if
    ] loop drop ;