From f0c7df0dab9cdb539502249c6db878f7065c8347 Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Wed, 30 Dec 2020 11:47:32 +0100 Subject: [PATCH] .dir-locals: Add test macro indentation. * .dir-locals.el (scheme-mode): Add indentation for pass-if, pass-if-not, pass-if-eq, pass-if-equal, expect-fail, pass-if-timeout. --- .dir-locals.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/.dir-locals.el b/.dir-locals.el index 6196589c..0cfdc246 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -35,6 +35,14 @@ . ((geiser-active-implementations . (guile)) + ;; Guile syntax + (eval . (put 'pass-if 'scheme-indent-function 1)) + (eval . (put 'pass-if-not 'scheme-indent-function 1)) + (eval . (put 'pass-if-eq 'scheme-indent-function 2)) + (eval . (put 'pass-if-equal 'scheme-indent-function 2)) + (eval . (put 'expect-fail 'scheme-indent-function 2)) + (eval . (put 'pass-if-timeout 'scheme-indent-function 2)) + ;; Guix package (eval . (put 'package 'scheme-indent-function 0)) (eval . (put 'origin 'scheme-indent-function 0)) @@ -50,6 +58,7 @@ (eval . + (progn (defun prefix-dir-locals-dir (elt) (concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))