                    (point))))
 (bind-key "M-DEL" #'ar/backward-delete-subword)
 (bind-key "<C-backspace>" #'ar/backward-delete-subword)
-
-;; Duplicate line.
-(global-set-key "\C-x\C-d" "\C-a\C- \C-e\M-w\C-j\C-y")
+(bind-key "C-x C-d" "\C-a\C- \C-e\M-w\C-j\C-y")
 
 (bind-key "C-q" #'previous-buffer)
 (bind-key "C-z" #'next-buffer)

        ;; TODO: Avoid adding trailing caused by org-indent-line.
        (delete-trailing-whitespace)))))

(setq org-html-format-drawer-function #'ar/org-html-export-format-drawer)

(defun ar/update-blog-timestamp-at-point ()
  "Update blog entry timestamp at point."

                                (hide-other)
                                (save-buffer)))))))

(use-package profiler)
(defun ar/profiler-start-cpu ()
  "Start cpu profiler."
