Highlight Structure as a synonym for Record (whonore#357)

Rixxc · Jul 2, 2024 · c956b8c · c956b8c
1 parent 18631b1
commit c956b8c
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 6 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -9,6 +9,8 @@
   (PR #339)
 
 ### Fixed
+- Highlight `Structure` as a synonym for `Record`.
+  (PR #357)
 - Don't try to decode partial JSON responses, avoiding a potential overflow
   error in NeoVim for very long responses.
   (PR #353)

diff --git a/syntax/coq-infos.vim b/syntax/coq-infos.vim
@@ -23,7 +23,7 @@ syn case match
 " Various
 syn match   coqVernacPunctuation ":=\|\.\|:"
 syn match   coqIdent             contained "[[:digit:]']\@!\k\k*"
-syn keyword coqTopLevel          Declare Type Canonical Structure Cd Coercion Derive Drop Existential
+syn keyword coqTopLevel          Declare Type Canonical Cd Coercion Derive Drop Existential
 
 " Binders
 syn region coqBinder            contained contains=coqIdent,coqBinderTypeParen matchgroup=coqVernacPunctuation start="(" end=")" keepend
@@ -114,8 +114,8 @@ syn region coqIndNotScope    contained contains=coqIndBody matchgroup=coqVernacP
 syn match  coqConstructor    contained "[[:digit:]']\@!\k\k*"
 
 " Records
-syn region coqRec        contains=coqRecProfile start="\<Record\>" matchgroup=coqVernacPunctuation end="^\S"me=e-1 keepend
-syn region coqRecProfile contained contains=coqIdent,coqRecTerm,coqBinder matchgroup=coqVernacCmd start="Record" matchgroup=NONE end="^\S"me=e-1
+syn region coqRec        contains=coqRecProfile start="\<Record\>\|\<Structure\>" matchgroup=coqVernacPunctuation end="^\S"me=e-1 keepend
+syn region coqRecProfile contained contains=coqIdent,coqRecTerm,coqBinder matchgroup=coqVernacCmd start="Record\|Structure" matchgroup=NONE end="^\S"me=e-1
 syn region coqRecTerm    contained contains=@coqTerm,coqRecContent matchgroup=coqVernacPunctuation start=":"  end="^\S"me=e-1
 syn region coqRecContent contained contains=coqConstructor,coqRecStart matchgroup=coqVernacPunctuation start=":=" end="^\S"me=e-1
 syn region coqRecStart   contained contains=coqRecField,@coqTerm start="{" matchgroup=coqVernacPunctuation end="}" keepend

diff --git a/syntax/coq.vim b/syntax/coq.vim
@@ -82,7 +82,7 @@ syn case match
 syn match   coqError             "\S\+"
 syn match   coqVernacPunctuation ":=\|\.\|:"
 syn match   coqIdent             contained "[[:digit:]']\@!\k\k*"
-syn keyword coqTopLevel          Type Structure Cd Drop Existential
+syn keyword coqTopLevel          Type Cd Drop Existential
 "...
 syn keyword coqVernacCmd         Local Global Polymorphic Functional Scheme Back Combined
 syn keyword coqVernacCmd         Fail Succeed
@@ -414,8 +414,8 @@ syn region coqIndNotScope    contained contains=coqIndBody matchgroup=coqVernacP
 syn match  coqConstructor    contained "[[:digit:]']\@!\k\k*"
 
 " Records
-syn region coqRec        contains=coqRecProfile start="\<Record\>" matchgroup=coqVernacPunctuation end="\.\_s" keepend
-syn region coqRecProfile contained contains=coqIdent,coqRecTerm,coqBinder matchgroup=coqVernacCmd start="Record" matchgroup=NONE end="\.\_s"
+syn region coqRec        contains=coqRecProfile start="\<Record\>\|\<Structure\>" matchgroup=coqVernacPunctuation end="\.\_s" keepend
+syn region coqRecProfile contained contains=coqIdent,coqRecTerm,coqBinder matchgroup=coqVernacCmd start="Record\|Structure" matchgroup=NONE end="\.\_s"
 syn region coqRecTerm    contained contains=@coqTerm,coqRecContent matchgroup=coqVernacPunctuation start=":"  end="\.\_s"
 syn region coqRecContent contained contains=coqConstructor,coqRecStart matchgroup=coqVernacPunctuation start=":=" end="\.\_s"
 syn region coqRecStart   contained contains=coqRecField,@coqTerm start="{" matchgroup=coqVernacPunctuation end="}" keepend