20 lines
750 B
EmacsLisp
20 lines
750 B
EmacsLisp
((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))))))))
|