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: emacsclient
-emacsclient editor-class set-global
+SINGLETON: emacs
SYMBOL: emacsclient-path
SYMBOL: emacsclient-args
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: emacsclient editor-command
+M: emacs editor-command
[
emacsclient-path get [ find-emacsclient ] unless* ,
emacsclient-args get [ { "-a=emacs" "--no-wait" } ] unless* %
number>string "+" prepend ,
,
] { } make ;
+
+os windows? [ "editors.emacs.windows" require ] when
\ No newline at end of file