From 6db5407dd45cf92a33f11ab96fe14dc9007cb04c Mon Sep 17 00:00:00 2001
From: Tristan Hume <tris.hume@gmail.com>
Date: Mon, 10 Nov 2014 15:25:20 -0500
Subject: [PATCH] More fanciness for my contrib

---
 contrib/trishume/packages.el | 33 +++++++++++++++++++++++----------
 1 file changed, 23 insertions(+), 10 deletions(-)

diff --git a/contrib/trishume/packages.el b/contrib/trishume/packages.el
index c05df0697..70a1bbc86 100644
--- a/contrib/trishume/packages.el
+++ b/contrib/trishume/packages.el
@@ -1,7 +1,6 @@
 (defvar trishume-packages
   '(
     auctex
-    smooth-scrolling
     idris-mode
     arduino-mode
     scad-mode
@@ -13,6 +12,8 @@
     go-mode
     yaml-mode
     ag
+    aggressive-indent
+    hungry-delete
     ))
 
 (when (member 'trishume dotspacemacs-configuration-layers)
@@ -62,13 +63,6 @@
   (evil-leader/set-key
     "el" 'load-auctex-on-demand))
 
-(defun trishume/init-smooth-scrolling ()
-  (use-package smooth-scrolling
-    :init
-    (setq scroll-margin 5
-          scroll-conservatively 9999
-          scroll-step 1)))
-
 (defun trishume/init-arduino-mode ()
   (use-package arduino-mode :defer t))
 
@@ -111,5 +105,24 @@
     :defer t
     :config
     (add-hook 'racket-mode-hook
-          '(lambda ()
-             (define-key racket-mode-map (kbd "H-r") 'racket-run)))))
+              '(lambda ()
+                 (define-key racket-mode-map (kbd "H-r") 'racket-run)))))
+
+(defun trishume/init-aggressive-indent ()
+  (use-package aggressive-indent
+    :defer t
+    :init
+    (add-to-hooks #'aggressive-indent-mode '(emacs-lisp-mode-hook
+                                             racket-mode-hook
+                                             css-mode-hook))
+    :config
+    (spacemacs//hide-lighter aggressive-indent-mode)))
+
+(defun trishume/init-hungry-delete ()
+  (use-package hungry-delete
+    :init (global-hungry-delete-mode)
+    :config
+    (progn
+      (setq-default hungry-delete-chars-to-skip " \t\f\v") ; only horizontal whitespace
+      (define-key hungry-delete-mode-map (kbd "DEL") 'hungry-delete-backward)
+      (define-key hungry-delete-mode-map (kbd "S-DEL") 'delete-backward-char))))