--- a/.emacs-my	Thu Mar 02 22:41:44 2017 +0200
+++ b/.emacs-my	Mon Mar 06 15:40:53 2017 +0200
@@ -818,6 +818,7 @@
       (call-interactively #'rgrep))))
 
 (global-set-key [f7] 'my/ag)
+(global-set-key [S-f7] 'my/ag-default-directory)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlighting")