11 lines
		
	
	
	
		
			464 B
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			11 lines
		
	
	
	
		
			464 B
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
| ;; if in a project
 | |
|   ;; if ansi-term is an existing process for the current project
 | |
|     ;; ok
 | |
|     ;; create an ansi-term buffer for the current project
 | |
|   ;; if ansi-term is an open window
 | |
|     ;; if number of open windows == 1, visit MRU source code buffer
 | |
|     ;; if number of open windows  > 1, (delete-window ansi-term-window)
 | |
|   ;; if ansi-term is not an open window
 | |
|     ;; open ansi-term other-window
 | |
| ;; else
 | |
|   ;; (message "You are not currently in a project.")
 |