             #'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)

                                          (org-show-subtree)))))


(use-package cl :commands (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."
  (flet ((process-list ())) ad-do-it))

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

      _b_lock"
  ("l" ar/buffer-sort-lines-ignore-case nil)
  ("o" org-sort-list nil)
  ("b" ar/buffer-sort-current-block nil)
  ("q" nil nil :color blue))
(bind-key "M-s" #'hydra-sort/body)

