forked from factor/factor
-
Notifications
You must be signed in to change notification settings - Fork 3
/
emacs.factor
30 lines (23 loc) · 809 Bytes
/
emacs.factor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
USING: definitions io.launcher kernel parser words sequences math
math.parser namespaces editors make system combinators.short-circuit
fry threads vocabs ;
IN: editors.emacs
SINGLETON: emacsclient
emacsclient editor-class set-global
SYMBOL: emacsclient-path
HOOK: default-emacsclient os ( -- path )
M: object default-emacsclient ( -- path ) "emacsclient" ;
M: emacsclient editor-command ( file line -- command )
[
{
[ emacsclient-path get-global ]
[ default-emacsclient dup emacsclient-path set-global ]
} 0|| ,
"--no-wait" ,
number>string "+" prepend ,
,
] { } make
os windows? [ run-detached drop ] [ try-process ] if ;
: emacs ( word -- )
where first2 emacsclient ;
os windows? [ "editors.emacs.windows" require ] when