 (eval-after-load "org-archive"
   '(org-defkey org-mode-map "\C-c\C-x\C-a"
 	       'org-archive-subtree-default-with-confirmation))
+
+(when (file-exists-p "~/.org/at.org")
+  (global-set-key "\C-cb"
+		  '(lambda () (interactive) (find-file "~/.org/at.org"))))
 
 ;;; --------------------------------------------------------------------
 ;;; Haskell

  (global-set-key (kbd "M-x") 'counsel-M-x)
  (global-set-key (kbd "C-x C-f") 'counsel-find-file)
  (global-set-key (kbd "C-c j") 'counsel-git)
  (global-set-key (kbd "C-c g") 'counsel-git-grep)
  (global-set-key (kbd "C-c i") 'counsel-imenu)
  (global-set-key (kbd "C-c p") 'ivy-push-view)
  (global-set-key (kbd "C-c P") 'ivy-pop-view))

;;; in a frame.
(windmove-default-keybindings)

(global-set-key (kbd "C-c H") 'hl-line-mode)
(when (fboundp 'column-highlight-mode)
  (global-set-key (kbd "C-c h") 'column-highlight-mode))

(custom-set-variables
