 
 (dolist
     (m '(c-mode python-mode sh-mode rust-mode html-mode js-mode haskell-mode
-		markdown-mode yaml-mode ruby-mode org-mode emacs-lisp-mode))
+		markdown-mode yaml-mode ruby-mode org-mode emacs-lisp-mode
+		sql-mode))
   (font-lock-add-keywords m
    ; Fontify "XXX", even in comments.
    '(("\\<\\(XXX\\)" 1 'font-lock-warning-face prepend))))

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


(custom-set-variables

(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
