((haskell-mode
  . ((eval
      . (progn (add-to-list 'haskell-font-lock-quasi-quote-modes
                            '("cps" . scheme-mode))
               (add-to-list 'haskell-font-lock-quasi-quote-modes
                            '("scm" . scheme-mode))))))
 (haskell-cabal-mode
  . ((eval
      . (progn (defun apply-cabal-fmt-h ()
                 (haskell-mode-buffer-apply-command "cabal-fmt"))
               (add-hook 'before-save-hook #'apply-cabal-fmt-h nil t)))))
 (scheme-mode
  . ((eval . (dolist (s '(kappa κ prim))
               (put s 'scheme-indent-function 1)))))
 (nil
  . ((eval
      . (progn (defun display-ansi ()
                 (interactive)
                 (ansi-color-apply-on-region (point-min) (point-max))))))))