diff --git a/behaviour.el b/behaviour.el
index 12f470c..438e25f 100644
--- a/behaviour.el
+++ b/behaviour.el
@@ -56,7 +56,7 @@
 ;; (setq whitespace-space 'underline)
 (toggle-truncate-lines t)
 
-;; Show trailing whitespaces and remove whitespace on save
+;; Show trailing whitespace and remove whitespace on save
 (require 'whitespace)
 (setq-default show-trailing-whitespace t)
 (add-hook 'prog-mode-hook 'whitespace-mode)
diff --git a/layouts/small_screen.window-layout b/layouts/small_screen.window-layout
index bce5831..f8e1050 100644
--- a/layouts/small_screen.window-layout
+++ b/layouts/small_screen.window-layout
@@ -1 +1 @@
-(t (0 0 186 54) (:purpose code :purpose-dedicated t :width 1.0108695652173914 :height 0.8 :edges (0.0 0.0 1.0108695652173914 0.8)) (:purpose tools :purpose-dedicated t :width 1.0108695652173914 :height 0.18181818181818182 :edges (0.0 0.8 1.0108695652173914 0.9818181818181818)))
\ No newline at end of file
+(t (0 0 186 54) (nil (0 0 186 44) (:purpose code :purpose-dedicated t :width 0.5054347826086957 :height 0.8 :edges (0.0 0.0 0.5054347826086957 0.8)) (:purpose test :purpose-dedicated nil :width 0.5054347826086957 :height 0.8 :edges (0.5054347826086957 0.0 1.0108695652173914 0.8))) (:purpose tools :purpose-dedicated t :width 1.0108695652173914 :height 0.18181818181818182 :edges (0.0 0.8 1.0108695652173914 0.9818181818181818)))
\ No newline at end of file
diff --git a/windows.el b/windows.el
index 25af461..02e4ed2 100644
--- a/windows.el
+++ b/windows.el
@@ -14,7 +14,7 @@
 (add-to-list 'purpose-user-mode-purposes '(shell-mode . test))
 (add-to-list 'purpose-user-mode-purposes '(magit-diff-mode . test))
 
-;; Enumarate through all stuff.
+;; Enumerate through all stuff.
 (add-to-list 'purpose-user-regexp-purposes
              '("COMMIT_EDITMSG\\(<.*>\\)?$" . code))
 (add-to-list 'purpose-user-mode-purposes '(diff-mode . code))
@@ -28,6 +28,7 @@
 (add-to-list 'purpose-user-mode-purposes '(javascript-mode . code))
 
 ;; Tools
+(add-to-list 'purpose-user-mode-purposes '(dired-mode . tools))
 (add-to-list 'purpose-user-mode-purposes '(magit-mode . tools))
 (add-to-list 'purpose-user-mode-purposes '(help-mode . tools))
 (add-to-list 'purpose-user-mode-purposes '(helm-mode . tools))
@@ -36,7 +37,7 @@
 ;; Markdown and others
 (add-to-list 'purpose-user-mode-purposes '(markdown-mode . code))
 
-;; Elisp
+;; Emacs lisp
 (add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . code))
 
 (setq purpose-use-default-configuration nil)