   "Search current repo/project using ag."
   (interactive)
   (helm-do-ag (projectile-project-root)))
+
+;; http://stackoverflow.com/questions/6133799/delete-a-word-without-adding-it-to-the-kill-ring-in-emacs
+(defun ar/backward-delete-word (arg)
+  "Delete characters backward until encountering the beginning of a word.
+With argument ARG, do this that many times."
+  (interactive "p")
+  (delete-region (point)
+                 (progn
+                   (backward-word arg)
+                   (point))))
+(global-set-key (kbd "M-DEL") 'ar/backward-delete-word)
+(global-set-key (kbd "<C-backspace>") 'ar/backward-delete-word)
 
 (use-package helm-dash
   :ensure t

  :ensure t)
(set-face-attribute 'linum nil :background "#1B1D1E")
(set-face-attribute 'fringe nil :background "#1B1D1E")
(set-cursor-color "#0087ff")

;; Hide UI.
(menu-bar-mode -1)

   ("f" ar/find-all-dired-current-dir "find all")
   ("q" nil "cancel")))

;; Hotspots WIP.
;; (setq ar/helm-source-hotspots '((name . "Hotspots")
;;                                   (candidates . (("yadda" . "/Users/tuco/stuff/active/xenodium.github.dotfiles/emacs/init.el")
;;                                                  ("second" . "/Users/tuco/stuff/active/xenodium.github.dotfiles/emacs/init.el")))
;;                                   (action . (("Open" . (lambda (x) (find-file x)))))))

;; (defun ar/helm-hotspots ()
;;   "Show my hotspots."
;;   (interactive)
;;   (helm :sources '(ar/helm-source-hotspots
;;                    helm-source-buffers-list
;;                    helm-source-ido-virtual-buffers
;;                    helm-source-recentf)))

(global-set-key
 (kbd "C-c o")
 (defhydra hydra-open (:color blue)
