bug#75126: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253

bug#75126: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253

[Antero Mejr]

[-- Attachment #1: Type: text/plain, Size: 103 bytes --]

Tags: patch

Both SRFIs are finalized and introduce identifiers that need specific
indentation rules.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Add-scheme-mode-indentation-rules-for-SRFI-227-and-2.patch --]
[-- Type: text/patch, Size: 1239 bytes --]

From 183781e6b9813404f457759018f1178205bbe621 Mon Sep 17 00:00:00 2001
From: Antero Mejr <mail@antr.me>
Date: Thu, 26 Dec 2024 15:58:24 -0500
Subject: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253

* lisp/progmodes/scheme.el: Add properties for SRFI 227 and SRFI 253
identifiers.
---
 lisp/progmodes/scheme.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index a0f922f279c..db3e0161f79 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -693,6 +693,19 @@ indentation."
 (put 'match-let* 'scheme-indent-function 1)
 (put 'match-letrec 'scheme-indent-function 1)
 \f
+;; SRFI-227
+(put 'opt-lambda 'scheme-indent-function 1)
+(put 'opt*-lambda 'scheme-indent-function 1)
+(put 'let-optionals 'scheme-indent-function 2)
+(put 'let-optionals* 'scheme-indent-function 2)
+;; define-optionals and define-optionals* already work
+\f
+;; SRFI-253
+(put 'check-case 'scheme-indent-function 1)
+(put 'lambda-checked 'scheme-indent-function 1)
+(put 'case-lambda-checked 'scheme-doc-string-elt 1)
+;; define-checked and define-record-type-checked already work
+\f
 ;;;; MIT Scheme specific indentation.
 
 (if scheme-mit-dialect
-- 
2.46.0

bug#75126: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253

[Stefan Kangas]

Version: 31.1

Antero Mejr <mail@antr.me> writes:

> Tags: patch
>
> Both SRFIs are finalized and introduce identifiers that need specific
> indentation rules.

Thanks for the patch.  Installed on master as commit 099e439ea99.

I'm therefore closing this bug report.

> From 183781e6b9813404f457759018f1178205bbe621 Mon Sep 17 00:00:00 2001
> From: Antero Mejr <mail@antr.me>
> Date: Thu, 26 Dec 2024 15:58:24 -0500
> Subject: [PATCH] Add scheme-mode indentation rules for SRFI 227 and 253
>
> * lisp/progmodes/scheme.el: Add properties for SRFI 227 and SRFI 253
> identifiers.
> ---
>  lisp/progmodes/scheme.el | 13 +++++++++++++
>  1 file changed, 13 insertions(+)
>
> diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
> index a0f922f279c..db3e0161f79 100644
> --- a/lisp/progmodes/scheme.el
> +++ b/lisp/progmodes/scheme.el
> @@ -693,6 +693,19 @@ indentation."
>  (put 'match-let* 'scheme-indent-function 1)
>  (put 'match-letrec 'scheme-indent-function 1)
>  \f
> +;; SRFI-227
> +(put 'opt-lambda 'scheme-indent-function 1)
> +(put 'opt*-lambda 'scheme-indent-function 1)
> +(put 'let-optionals 'scheme-indent-function 2)
> +(put 'let-optionals* 'scheme-indent-function 2)
> +;; define-optionals and define-optionals* already work
> +\f
> +;; SRFI-253
> +(put 'check-case 'scheme-indent-function 1)
> +(put 'lambda-checked 'scheme-indent-function 1)
> +(put 'case-lambda-checked 'scheme-doc-string-elt 1)
> +;; define-checked and define-record-type-checked already work
> +\f
>  ;;;; MIT Scheme specific indentation.
>
>  (if scheme-mit-dialect
> --
> 2.46.0