basis/editors/brackets/brackets.factor

   1 ! Copyright (C) 2015 Dimage Sapelkin.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: editors io.pathnames io.standard-paths kernel make
   4 namespaces system vocabs ;
   5 IN: editors.brackets
   6
   7 SINGLETON: brackets
   8
   9 editor-class [ brackets ] initialize
  10
  11 HOOK: brackets-path os ( -- path )
  12
  13 M: macosx brackets-path
  14     "io.brackets.appshell" find-native-bundle [
  15         "Contents/MacOS/Brackets" append-path
  16     ] [
  17         f
  18     ] if* ;
  19
  20 M: brackets editor-command
  21     [ brackets-path "brackets" or , drop , ] { } make ;
  22
  23 os windows? [ "editors.brackets.windows" require ] when