IN: system

SINGLETON: macosx

USING: alien.libraries io.pathnames system ;

M: macosx >deployed-library-path
file-name "@executable_path/../Frameworks" prepend-path ;

USING: system ui.gestures ;

M: macosx action-modifier A+ ;

USING: editors.sublime io.pathnames io.standard-paths kernel
system ;

M: macosx find-sublime-path
"com.sublimetext.2" find-native-bundle
[ "Contents/SharedSupport/bin/subl" append-path ] [ f ] if*
;

USING: ascii system ui.gestures ;

M: macosx keysym>string >upper ;

USING: combinators sequences system ui.gestures ;

M: macosx modifiers>string
[
{
{ A+ [ "⌘" ] }
{ M+ [ "⌥" ] }
{ S+ [ "⇧" ] }
{ C+ [ "⌃" ] }
} case
] map "" concat-as ;

USING: cuda.nvcc system ;

M: macosx nvcc-path "/usr/local/cuda/bin/nvcc" ;