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

editors.brackets: add support for Mac OS X.

db4
John Benediktsson 2015-06-15 09:45:23 -07:00
parent 9008562265
commit 588a05bc62
3 changed files with 30 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
basis/editors/brackets/brackets.factor
View File

@ -1,33 +1,22 @@
! Copyright (C) 2015 Dimage Sapelkin. ! Copyright (C) 2015 Dimage Sapelkin.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: editors kernel make math.parser namespaces sequences quotations system alien.data alien.strings USING: editors io.pathnames io.standard-paths kernel make
windows.advapi32 windows.registry windows.types windows.errors windows.registry.private combinators ; namespaces system vocabs ;
IN: editors.brackets IN: editors.brackets
SINGLETON: brackets-editor SINGLETON: brackets-editor
brackets-editor \ editor-class set-global brackets-editor editor-class set-global
! SYMBOL: brackets-path HOOK: brackets-path os ( -- path )
! HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Brackets.exe M: macosx brackets-path
"io.brackets.appshell" find-native-bundle [
<PRIVATE "Contents/MacOS/Brackets" append-path
] [
: windows-get-brackets-path ( -- path ) f
HKEY_LOCAL_MACHINE "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Brackets.exe" KEY_READ ] if* ;
[ 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 ) M: brackets-editor editor-command ( file line -- command )
[ os { [ brackets-path "brackets" or , drop , ] { } make ;
{ [ 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 ;
os windows? [ "editors.brackets.windows" require ] when

1
basis/editors/brackets/windows/platforms.txt Normal file
View File

@ -0,0 +1 @@
windows

17
basis/editors/brackets/windows/windows.factor Normal file
View File

@ -0,0 +1,17 @@
! Copyright (C) 2015 Dimage Sapelkin.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.data alien.strings combinators editors kernel make
math.parser namespaces quotations sequences system
windows.advapi32 windows.registry windows.registry.private
windows.types windows.errors ;
IN: editors.brackets.windows
M: windows brackets-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 ;