USING: combinators.short-circuit editors io.standard-paths
-kernel make math.parser namespaces sequences system ;
+kernel make math.parser namespaces sequences system vocabs ;
IN: editors.emacs
SINGLETON: emacs
M: object find-emacsclient
"emacsclient" ?find-in-path ;
-M: windows find-emacsclient
- {
- [ { "Emacs" } "emacsclientw.exe" find-in-applications ]
- [ { "Emacs" } "emacsclient.exe" find-in-applications ]
- [ "emacsclient.exe" ]
- } 0|| ;
-
M: emacs editor-command
[
emacsclient-path get [ find-emacsclient ] unless* ,
number>string "+" prepend ,
,
] { } make ;
+
+os windows? [ "editors.emacs.windows" require ] when
\ No newline at end of file