 
 (global-set-key (kbd "C-c a") 'org-agenda)
 (global-set-key (kbd "C-c c") 'org-capture)
-;; TODO is there a helm autocomplete I could use?
 (global-set-key (kbd "C-c b") 'org-switchb)
-(global-set-key (kbd "C-c h") 'bh/hide-other)
-(global-set-key (kbd "C-c n") 'bh/toggle-next-task-display)
-
-(defun bh/hide-other ()
-  (interactive)
-  (save-excursion
-    (org-back-to-heading 'invisible-ok)
-    (hide-other)
-    (org-cycle)
-    (org-cycle)
-    (org-cycle)))
-
+(global-set-key (kbd "C-c n") 'pjs-cleanup-buffer)
+(global-set-key (kbd "C-c C-n") 'pjs-cleanup-buffer)
 (global-set-key (kbd "C-c o a") 'bh/show-org-agenda)
 
 (defun bh/show-org-agenda ()


(defun bh/org-todo (arg)
  (interactive "p")
  (if (equal arg 4)
      (save-restriction
        (bh/narrow-to-org-subtree)
        (org-show-todo-tree nil))
    (bh/narrow-to-org-subtree)
    (org-show-todo-tree nil)))

(global-set-key (kbd "<S-f5>") 'bh/widen)


           :nick "paul"
           :password (concat "paul:" pjs-znc-password)))

(defcustom pjs-inhibit-cleanup nil
  "If true will disable buffer cleanup on save."
  :group 'pjs
  :type 'boolean
  :safe #'booleanp)

(defun pjs-cleanup-buffer ()
  (interactive)
  (when (derived-mode-p 'prog-mode)
    (let ((inhibit-redisplay 't))
      (delete-trailing-whitespace)
      (untabify (point-min) (point-max))
