               (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)

            (let ((helm-ag-base-command "pt --nocolor --nogroup"))
              (call-interactively 'helm-do-ag))
          (message "error: helm-ag not found.")))

      (defun spacemacs//helm-do-search-find-tool (tools)
        "Create a cond form given a TOOLS string list and evaluate it."

           (define-key map (kbd "R") 'ahs-back-to-start)
           (define-key map (kbd "r") (lambda () (interactive)
                                       (eval '(ahs-change-range) nil)))
           (define-key map (kbd "/") (lambda ()
                                       (interactive)
                                       (let ((helm-ag-insert-at-point 'symbol))
                                         (spacemacs/helm-projectile-smart-do-search))))
           (define-key map (kbd "?") (lambda ()
                                       (interactive)
                                       (let ((helm-ag-insert-at-point 'symbol))
                                         (spacemacs/helm-smart-do-search))))
           map) nil)
        (let* ((i 0)
               (overlay-count (length ahs-overlay-list))
