 
 ;;  From http://oremacs.com/2015/01/05/youtube-dl
 (defun ar/youtube-dowload ()
+  "Download youtube video from url in clipboard."
   (interactive)
   (let* ((str (current-kill 0))
          (default-directory "~/Downloads")

(defun ar/char-upcasep (letter)
  (eq letter (upcase letter)))

;;  Capitalize word toggle.
;;  http://oremacs.com/2014/12/25/ode-to-toggle
(defun ar/capitalize-word-toggle ()
  (interactive)
  (let ((start
         (car

(setq magit-status-buffer-switch-function 'switch-to-buffer)

(defun ar/sort-lines-ignore-case ()
  "Sort region (case-insensitive)."
  (interactive)
  (let ((sort-fold-case t))
    (call-interactively 'sort-lines)))
