resolve-base-path ( string -- string' )
Furnace framework » Miscellaneous Furnace features

Prev:	each-responder ( quot: ( ... responder -- ... ) -- )
Next:	resolve-word-path ( word -- path/f )

Vocabulary
furnace.utilities

Inputs

string

a string

Outputs

string'

a string

Word description
Resolves a responder-relative URL.

Definition

USING: kernel make sequences splitting ;

IN: furnace.utilities

: resolve-base-path ( string -- string' )
    "$" ?head [
        [
            "/" split1 [ base-path [ "/" % % ] each "/" % ] dip
            %
        ] "" make
    ] when ;