 ;; If the region is active, delete that instead.
 (global-set-key (kbd "C-S-k") #'whole-line-or-region-delete)
 
-(defun indent-four-spaces (beg end)
+(defun wh/indent-four-spaces (beg end)
   "Indent the text in the active region by four spaces.
 Handy when editing markdown."
   (interactive "r")
   (indent-rigidly beg end 4))
 
-(defun unindent-four-spaces (beg end)
+(defun wh/unindent-four-spaces (beg end)
   "Decrease the indent of the text in the active region by four spaces.
 Handy when editing markdown."
   (interactive "r")
   (indent-rigidly beg end -4))
 
-(defun shebang ()
+(defun wh/shebang ()
   "Insert a shebang in the current buffer, and mark the file as executable."
   (interactive)
   (goto-char (point-min))

(global-set-key (kbd "C-M-c") 'cycle-symbol-case)


(defun transpose-symbols (arg)
  "Interchange sybmols around point, leaving point at end of them.
With prefix arg ARG, effect is to take symbol before or around point
and drag it forward past ARG other symbol (backward if ARG negative).

          (replace-match (format (concat "%0" (int-to-string field-width) "d")
                                 answer)))))))

(defun wh/decrement-number-decimal (&optional arg)
  (interactive "p*")
  (wh/increment-number-decimal (if arg (- arg) -1)))

(global-set-key (kbd "<C-up>") #'wh/increment-number-decimal)
(global-set-key (kbd "<C-down>") #'wh/decrement-number-decimal)

;; don't use shift to set the mark, or caps lock creates regions the whole time
(setq-default shift-select-mode nil)
