From ed62c40cc6aa503ba30182b7eb7b091089e3928a 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 | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/.dir-locals.el b/.dir-locals.el index 6196589c..3ac21304 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -1,5 +1,5 @@ ;;; GNU Mes --- Maxwell Equations of Software -;;; Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2018,2019,2020 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of GNU Mes. ;;; @@ -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))