find-cursor-path ( -- path )

Vocabulary

editors.cursor

Inputs

None

Outputs

path

an object

Definition

USING: combinators combinators.short-circuit generalizations
io.files io.pathnames io.standard-paths kernel system
tools.which ;

IN: editors.cursor

: find-cursor-path ( -- path )
    os {
        {
            linux
            [
                {
                    [ "cursor" which ]
                    [ "/usr/local/bin/cursor" ]
                } [ [ file-exists? ] 1guard ] map-compose 0||
            ]
        }
        {
            macos
            [
                "com.todesktop.230313mzl4w4u92"
                find-native-bundle
                [ "Contents/MacOS/Cursor" append-path ] [ f ]
                if*
            ]
        }
        { windows [ "cursor.cmd" ] }
    } case ;