basis/editors/gvim/gvim.factor

   1 USING: editors.vim io.backend io.standard-paths kernel
   2 namespaces system vocabs editors ;
   3 IN: editors.gvim
   4
   5 ! This code builds on the code in editors.vim; see there for
   6 ! more information.
   7
   8 SINGLETON: gvim
   9
  10 INSTANCE: gvim vim-base
  11
  12 editor-class get-global dup [ vim? not ] when
  13 [ gvim editor-class set-global ] unless
  14
  15 HOOK: find-gvim-path io-backend ( -- path )
  16
  17 M: object find-gvim-path f ;
  18
  19 M: windows find-gvim-path
  20     { "vim" } "gvim.exe" find-in-applications ;
  21
  22 M: gvim find-vim-path
  23     find-gvim-path [ "gvim" ?find-in-path ] unless* ;
  24
  25 M: gvim vim-ui? t ;
  26
  27 M: gvim editor-detached? t ;