 ;; 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:
 

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

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

  (set-visited-file-name (concat my/find-file-root-prefix
                                 (buffer-file-name)))
  (setq buffer-read-only nil))
(global-set-key "\esrr" 'my/find-current-file-as-root)

(defun read-file-into-list-of-lines(file)
  "Read a file into a list of strings split line by line."
