 ;;;    C-z         kill selected region (like cut)
 ;;;    C-x/c C-k   cut selected text
 ;;;    M-Shift-L   toggle line numbers
+;;;    C-q         Goto line
+;;;    C-c C-s     Search DuckDuckGo
+;;;    C-`         Insert character literal (`quoted-insert`)
+;;;
 ;;;  Multiple cursors
 ;;;    C-S-s C-S-s Add cursor to each line in a region
 ;;;    C->         Mark the next similar (not-continuous)
 ;;;    C->         Mark the previous similiar (not-continuous)
 ;;;    C-c C-<     Mark all similar (not-continuous)
-;;;    C-q         Goto line
-;;;    C-c C-s     Search DuckDuckGo
-;;;    C-`         Insert character literal (`quoted-insert`)
+;;;
+
+;; Don't disable the upcase-region function, I seem to use it alot
+(put 'upcase-region 'disabled nil)
 
 (global-set-key (kbd "C-:") 'eshell-here)
 (global-set-key (kbd "C-;") 'execute-extended-command)

  "Loads my init file"
  (interactive)
  (load-file (concat emacs-root "init.el")))

(defun open-github (&optional path)
  "Opens GitHub.com. Prompts for an optional argument of a path to GitHub.

  (interactive "sDDG: ")
  (let ((q (replace-regexp-in-string "\s" "+" query t t)))
    (browse-url (concat "https://duckduckgo.com?q=" q))))

;;this not workie
(defun jabber ()
  "Starts up jabber and switches to the buffer."
  (interactive)
  (jabber-connect jabber-username jabber-server jabber-network-server nil jabber-password)
  (switch-to-buffer "*-jabber-*"))

(defun connect-remote (user ip)
  "Opens an SSH tunnel to remote host with full emacs functionality."
  (interactive "sUser: \nsIP: ")
  (dired (format "/%s@%s:/" user ip)))

(defun markdown-to-html ()
  (interactive)
