 ;; Author: Dan Harms <danielrharms@gmail.com>
 ;; Created: Saturday, February 28, 2015
 ;; Version: 1.0
-;; Modified Time-stamp: <2015-11-20 13:58:03 dan.harms>
+;; Modified Time-stamp: <2015-12-14 05:34:49 dharms>
 ;; Modified by: Dan Harms
 ;; Keywords:
 

          (message "buffer contains %d words" count))))
    (global-set-key "\M-=" 'wordcount)))

;; clean up buffer
;; indent entire file
(defun clean-up-buffer () "clean up the entire buffer" (interactive)
  (delete-trailing-whitespace)
  (indent-region (point-min) (point-max) nil)
  (untabify (point-min) (point-max)))
(global-set-key "\C-cq" 'clean-up-buffer)

(defun find-file-upwards (dir file-to-find)

  (interactive)
  (let ((root-prefix my/find-file-root-prefix))
    (call-interactively 'find-file)))
(global-set-key "\esrf" 'my/find-file-as-root)

(defun my/find-current-file-as-root()
  "Open the current file for editing by root."
