*scratch*.el

(defun async-command-and-highlight (command highlights &optional output-buffer)
	(kill-buffer output-buffer)
	(async-shell-command command output-buffer)
	(with-current-buffer output-buffer
		(mapcar
		 (lambda (highlight) 
			 (highlight-phrase (car highlight) (cdr highlight)))
		 highlights)))

(async-command-and-highlight
 "ls -la"
 '(("atom" . hi-pink)
	 ("root" . hi-blue)
	 ("lrwxrwxrwx" . hi-green))
 "*my-test-results*")