             (helm-find-files-up-one-level 1)
           ad-do-it))
 
+      (defun spacemacs/helm-do-ag-symbol ()
+        "Perform a search with ag using `helm-ag.' Defaults to symbol at point."
+        (interactive)
+        (let ((helm-ag-insert-at-point 'symbol))
+          (call-interactively 'helm-do-ag)))
+
       (defun spacemacs/helm-do-ack ()
         "Perform a search with ack using `helm-ag.'"
         (interactive)

        "rm"  'helm-all-mark-rings
        "s/"  'spacemacs/helm-smart-do-search
        "sa"  'helm-do-ag
        "sg"  'helm-do-grep
        "sk"  'spacemacs/helm-do-ack
        "sp"  'spacemacs/helm-do-pt
        "sL"  'spacemacs/last-search-buffer
        "sl"  'helm-semantic-or-imenu)


              (call-interactively 'helm-do-ag))
          (message "error: helm-ag not found.")))

      (defun spacemacs/helm-do-ack-symbol ()
        "Perform a search with ack using `helm-ag.' Defaults to symbol at point."
        (interactive)
        (let ((helm-ag-insert-at-point 'symbol))
          (spacemacs/helm-do-ack)))

      (defun spacemacs/helm-do-pt ()
        "Perform a search with the platinum searcher using `helm-ag.'"
        (interactive)
