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 TUPLE: gvim < vim ;
   9
  10 editor-class [ T{ gvim } ] initialize
  11
  12 HOOK: find-gvim-path io-backend ( -- path )
  13
  14 M: object find-gvim-path f ;
  15
  16 M: windows find-gvim-path
  17     { "vim" } "gvim.exe" find-in-applications ;
  18
  19 M: gvim find-vim-path
  20     find-gvim-path [ "gvim" ?find-in-path ] unless* ;
  21
  22 M: gvim vim-ui? t ;
  23
  24 M: gvim editor-detached? t ;