From: Johannes Sixt <j6t@kdbg.org>
Date: Wed, 15 Apr 2026 06:54:21 GMT
Subject: Re: [PATCH v4 0/2] userdiff: extend Scheme support to cover other Lisp dialects
Message-ID: <5880e69f-a617-426f-ab1b-12a27c763fcd@kdbg.org>
In-Reply-To: <pull.2000.v4.git.1776220063.gitgitgadget@gmail.com>

Am 15.04.26 um 04:27 schrieb Scott L. Burson via GitGitGadget:
> Range-diff vs v3:
> 
>  1:  e20ac5b6a6 = 1:  8e0b1e3d01 userdiff: tighten word-diff test case of the scheme driver
>  2:  fb4c8dc5d4 ! 2:  0bd51e02ba userdiff: extend Scheme support to cover other Lisp dialects
>      @@ Commit message
>       
>        ## Documentation/gitattributes.adoc ##
>       @@ Documentation/gitattributes.adoc: patterns are available:
>      + 
>        - `rust` suitable for source code in the Rust language.
>        
>      - - `scheme` suitable for source code in the Scheme language.
>      -+Also handles Emacs Lisp, Common Lisp, and most other dialects.
>      +-- `scheme` suitable for source code in the Scheme language.
>      ++- `scheme` suitable for source code in most Lisp dialects,
>      ++  including Scheme, Emacs Lisp, Common Lisp, and Clojure.
>        
>        - `tex` suitable for source code for LaTeX documents.
>        
>      @@ t/t4034/scheme/expect
>          ; This is a <RED>really<RESET><GREEN>(moderately)<RESET> cool function.
>          (<RED>this\place<RESET><GREEN>that\place<RESET> (+ 3 4))
>       -  (define <RED>|the greeting|<RESET><GREEN>|a greeting|<RESET> "hello")
>      -+  (define <RED>|the \greeting|<RESET><GREEN>|a \greeting|<RESET> |hello there|)
>      ++  (define <RED>|the \| \greeting|<RESET><GREEN>|a \greeting|<RESET> |hello there|)
>          ({<RED>}<RESET>(([<RED>]<RESET>(func-n)<RED>[<RESET>]))<RED>{<RESET>})
>          (let ((c (<RED>+ a b<RESET><GREEN>add1 first<RESET>)))
>            (format "one more than the total is %d" (<RED>add1<RESET><GREEN>+<RESET> c <GREEN>second<RESET>))))
>      @@ t/t4034/scheme/pre
>          ; This is a really cool function.
>          (this\place (+ 3 4))
>       -  (define |the greeting| "hello")
>      -+  (define |the \greeting| |hello there|)
>      ++  (define |the \| \greeting| |hello there|)
>          ({}(([](func-n)[])){})
>          (let ((c (+ a b)))
>            (format "one more than the total is %d" (add1 c))))
> 

This implements the conclusion of our discussion from three months ago.

Acked-by: Johannes Sixt <j6t@kdbg.org>

-- Hannes