             #'ar/after-prog-mode-text-change
             t t)
   (let ((m org-mode-map))
-    (define-key m [f6] #'ar/export-blog-to-html))
+    (define-key m [f6] #'ar/ox-html-export))
   (setq show-trailing-whitespace t)
   (set-fill-column 1000)
   (ar/org-src-color-blocks-dark)

    (term-send-string
     proc
     (concat "cd ~/Downloads && youtube-dl " url "\n"))))

;; Try to guess the target directory for operations.
(setq dired-dwim-target t)

(defun ar/view-clipboard-buffer ()
  "View clipboard buffer."

                                          (org-show-subtree)))))


(use-package cl
  :commands (cl-flet))
;; Ignore running processes when closing Emacs
;; From http://oremacs.com/2015/01/04/dired-nohup
(defadvice save-buffers-kill-emacs
    (around no-query-kill-emacs activate)
  "Prevent \"Active processes exist\" query on exit."
  (cl-flet ((process-list ())) ad-do-it))

(defun ar/build-org-link ()
  "Build an org link, prompting for url and description."
