current-theme ( -- )

Vocabulary

ui.backend.cocoa

Inputs

None

Outputs

None

Definition

USING: cocoa.classes cocoa.messages cocoa.runtime
core-foundation.strings kernel ui.theme ui.theme.switching ;

IN: ui.backend.cocoa

: current-theme ( -- )
    NSAppearance { id { id SEL } } "currentAppearance" send
    { id { id SEL } } "name" send [
        CF>string "NSAppearanceNameDarkAqua" =
        dark-theme light-theme ? switch-theme-if-default
    ] when* ;