2007-12-09 12:51:25 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								USING: editors io.files io.launcher kernel math.parser
							 | 
						
					
						
							
								
									
										
										
										
											2008-12-15 22:45:18 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								namespaces sequences io.directories.search.windows make ;
							 | 
						
					
						
							
								
									
										
										
										
											2007-11-24 23:44:47 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								IN: editors.notepadpp
							 | 
						
					
						
							
								
									
										
										
										
											2007-11-24 21:48:29 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2008-12-08 21:11:24 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								: notepadpp-path ( -- path )
							 | 
						
					
						
							
								
									
										
										
										
											2007-12-09 12:51:25 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    \ notepadpp-path get-global [
							 | 
						
					
						
							
								
									
										
										
										
											2008-12-08 21:11:24 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								        "notepad++" t [ "notepad++.exe" tail? ] find-in-program-files
							 | 
						
					
						
							
								
									
										
										
										
											2007-12-09 12:51:25 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    ] unless* ;
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2007-11-24 21:48:29 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								: notepadpp ( file line -- )
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    [
							 | 
						
					
						
							
								
									
										
										
										
											2008-01-24 02:50:40 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								        notepadpp-path ,
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								        "-n" swap number>string append , ,
							 | 
						
					
						
							
								
									
										
										
										
											2008-01-29 12:41:12 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    ] { } make run-detached drop ;
							 | 
						
					
						
							
								
									
										
										
										
											2007-11-24 21:48:29 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								[ notepadpp ] edit-hook set-global
							 |