                             "~/Dropbox/Notes"
                           "~/Notes") "Location of note files")
 
-;; some useful functions
+;; replace prefix part of a string
 (defun me:replace-prefix (prefix input)
   (replace-regexp-in-string ( concat "^" (regexp-quote prefix)) "" input))
 
+;; replace any matches in a string
 (defun me:replace-all (input from to)
   (replace-regexp-in-string (regexp-quote from) to input nil))
 

                          (t 120)))
  (whitespace-mode -1)
  (whitespace-mode))
(defun me:switch-to-compile-buffer ()
  (interactive)
  (switch-to-buffer "*compilation*"))

  (when (and (>= (recursion-depth) 1) (active-minibuffer-window))
    (abort-recursive-edit)))

;; save any dirty buffers
(defun me:save-dirty-buffers ()
  "Save any dirty buffers"
  (interactive)
  (save-some-buffers t))

;; select the nth other buffer
(defun me:select-nth-other-buffer (arg)
  (interactive "p")
  (let ((buffer (nth arg (-filter 'buffer-file-name (buffer-list)))))
    (if buffer
        (switch-to-buffer buffer))))

;; rotate the current fill-column
(defun me:rotate-fill-column ()
  (interactive)
  (setq fill-column (cond ((= fill-column 70) 80)
