   "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

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

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

    (declare (indent defun))
    `(eval-after-load ,feature
       '(progn ,@body))))

;; Increase memory threshold for garbage collection.
(setq gc-cons-threshold 20000000)

;; Enhanced list-packages replacement.
(use-package paradox
