 (defun ar/bazel-mode-hook-fun ()
   (validate-setq company-grep-grep-flags "--type-add bazel:BUILD --type bazel --no-line-number --color never --no-filename  --smart-case --regexp")
   (validate-setq company-grep-grep-format-string "^\\s*\"//.*%s")
-  (validate-setq company-backends '((company-rfiles company-grep)))
   (validate-setq company-grep-grep-trigger "\"//")
   (validate-setq company-grep-grep-cleanup-fun (lambda (items)
                                                  (mapcar (lambda (item)

  ;; Enable company completion on TAB when in shell mode.
  ;; (company-mode)
  ;; (bind-key "TAB" #'company-manual-begin shell-mode-map)
  (validate-setq company-backends '((company-bash-history
                                     company-rfiles
                                     company-shell))))

;; This is a hack. Let's see how it goes.
(defun ar/shell-directory-tracker (str)

;; (require 'company-rtags)
;; (validate-setq rtags-path
;;       (concat (getenv "HOME") "/.emacs.d/downloads/rtags/bin"))
;; (setq-local company-backends (delete 'company-clang company-backends))
;; (validate-setq company-rtags-begin-after-member-access t)
;; (validate-setq rtags-completions-enabled t)
;; (add-to-list 'company-backends 'company-rtags)
