From 5a173a7a3bb1b505b3953e7ffec8bffe63c40a2b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Thu, 20 Aug 2026 18:16:20 -0600 Subject: [PATCH] fix dir-locals hooks --- .dir-locals.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/.dir-locals.el b/.dir-locals.el index 0d9facf..8348b19 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -1,9 +1,11 @@ -((haskell-cabal-mode +((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) - (add-to-list 'haskell-font-lock-quasi-quote-modes - '("cps" . scheme-mode)) - (add-to-list 'haskell-font-lock-quasi-quote-modes - '("scm" . scheme-mode))))))) + (add-hook 'before-save-hook #'apply-cabal-fmt-h nil t))))))