basis/editors/notepad++/notepad++.factor

   1 USING: editors io.standard-paths kernel make math.parser
   2 namespaces sequences ;
   3 IN: editors.notepad++
   4
   5 SINGLETON: notepad++
   6 notepad++ editor-class set-global
   7
   8 : notepad++-path ( -- path )
   9     \ notepad++-path get [
  10         { "notepad++" } "notepad++.exe" find-in-applications
  11         [ "notepad++.exe" ] unless*
  12     ] unless* ;
  13
  14 M: notepad++ editor-command ( file line -- command )
  15     [
  16         notepad++-path ,
  17         number>string "-n" prepend , ,
  18     ] { } make ;