supports-open-to-line? ( -- ? )

Vocabulary

editors.focus.macos

Inputs

None

Outputs

?

an object

Definition

USING: assocs cocoa.plists io.pathnames io.standard-paths kernel
math.order math.parser sequences splitting ;

IN: editors.focus.macos

IDENTITY-MEMO: supports-open-to-line? ( -- ? )
    "dev.focus-editor" find-native-bundle [
        "Contents/Info.plist" append-path
        read-plist "CFBundleVersion" of "." split
        [ string>number ] map { 0 3 7 } after?
    ] [ f ] if* ;