editors.cot: moving to editors.coteditor.
							parent
							
								
									3fc1842ac5
								
							
						
					
					
						commit
						eb68676f31
					
				| 
						 | 
				
			
			@ -1,9 +1,9 @@
 | 
			
		|||
USING: editors io.pathnames io.standard-paths kernel make
 | 
			
		||||
math.parser namespaces ;
 | 
			
		||||
IN: editors.cot
 | 
			
		||||
IN: editors.coteditor
 | 
			
		||||
 | 
			
		||||
SINGLETON: cot
 | 
			
		||||
cot editor-class set-global
 | 
			
		||||
SINGLETON: coteditor
 | 
			
		||||
coteditor editor-class set-global
 | 
			
		||||
 | 
			
		||||
: find-cot-bundle-path ( -- path/f )
 | 
			
		||||
    "com.coteditor.CotEditor" find-native-bundle [
 | 
			
		||||
| 
						 | 
				
			
			@ -12,5 +12,5 @@ cot editor-class set-global
 | 
			
		|||
        f
 | 
			
		||||
    ] if* ;
 | 
			
		||||
 | 
			
		||||
M: cot editor-command ( file line -- command )
 | 
			
		||||
M: coteditor editor-command ( file line -- command )
 | 
			
		||||
    [ find-cot-bundle-path , "-l" , number>string , , ] { } make ;
 | 
			
		||||
		Loading…
	
		Reference in New Issue