steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Create brackets.factor

db4
Dimage Sapelkin 2015-06-14 03:37:23 +03:00 committed by John Benediktsson
parent 178b1971d5
commit ee37e69cba
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
basis/editors/brackets/brackets.factor Normal file
View File

@ -0,0 +1,33 @@
! Copyright (C) 2015 Dimage Sapelkin.
! See http://factorcode.org/license.txt for BSD license.
USING: editors kernel make math.parser namespaces sequences quotations system alien.data alien.strings
windows.advapi32 windows.registry windows.types windows.errors windows.registry.private combinators ;
IN: editors.brackets
SINGLETON: brackets-editor
brackets-editor \ editor-class set-global
! SYMBOL: brackets-path
! HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Brackets.exe
<PRIVATE
: windows-get-brackets-path ( -- path )
HKEY_LOCAL_MACHINE "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Brackets.exe" KEY_READ
[ f f f registry-value-max-length TCHAR <c-array> reg-query-value-ex ] with-open-registry-key
alien>native-string
;
PRIVATE>
M: brackets-editor editor-command ( file line -- command )
[ os {
{ [ dup windows? ] ! only windows implemented so far, though Brackets is a cross-platform app
[ drop windows-get-brackets-path ] }
{ [ t ] [ drop "brackets" ] }
} cond
,
drop ,
] { } make ;