            (save-excursion
              (goto-char p1)
              (cond
-              ;; lower -> Capitalize
-              ((looking-at "[[:lower:]]")            (put this-command 'next-state "Capitalize"))
-              ;; Capitalize -> UPPER
-              ((looking-at "[[:upper:]][[:lower:]]") (put this-command 'next-state "UPPER"))
-              ;; Default: UPPER -> lower
-              (t                                     (put this-command 'next-state "lower")))))))
+               ;; lower -> Capitalize
+               ((looking-at "[[:lower:]]")            (put this-command 'next-state "Capitalize"))
+               ;; Capitalize -> UPPER
+               ((looking-at "[[:upper:]][[:lower:]]") (put this-command 'next-state "UPPER"))
+               ;; Default: UPPER -> lower
+               (t                                     (put this-command 'next-state "lower")))))))
 
     (cl-case (string-to-char (get this-command 'next-state)) ; `string-to-char' returns first character in string
       (?U (upcase-region p1 p2)

;; zop-to-char
;; Source: https://github.com/thierryvolpiatto/zop-to-char
(use-package zop-to-char
  :load-path "elisp/zop-to-char"
  :config
  (progn
    (bind-keys
     :map modi-mode-map
     ("M-z" . zop-up-to-char)
     ("M-Z" . zop-to-char))))

;; indent-guide
(use-package indent-guide
  :config
  (progn
    (setq indent-guide-recursive t)
    (setq indent-guide-char "|")

;; Time-stamp: <2015-02-25 13:37:26 kmodi>

;; Functions related to editing text in the buffer

