                    (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)

    (org-html-export-to-html)
    (browse-url (format "file:%s" (expand-file-name
                                   "~/stuff/active/blog/index.html")))))

(defun ar/org-mode-hook-function ()
  "Called when entering org mode."

  (with-current-buffer (find-file-noselect (expand-file-name
                                            "~/stuff/active/non-public/daily.org"))
    (ar/org-helm-entry-child-candidates "current-week")))

(defun ar/org-point-to-heading-1 ()
  "Move point to heading level 1."
