--- a/.emacs-my	Tue Jan 31 23:38:09 2017 +0200
+++ b/.emacs-my	Thu Feb 09 15:41:59 2017 +0200
@@ -770,7 +770,7 @@
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "grep, find")
+(message "grep, find, ack, ag")
 
 (eval-when 'compile (require 'find-dired))
 
@@ -812,6 +812,10 @@
     (cl-flet ( (grep-compute-defaults () nil) )
       (call-interactively #'rgrep))))
 
+(setq ag-highlight-search t)
+(when (featurep 'ag)
+  (global-set-key [f7] 'ag-project))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlighting")