             #'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."

(use-package hungry-delete :ensure t)
(global-hungry-delete-mode)
(global-font-lock-mode)
(global-auto-revert-mode)

;; Auto refresh dired.
