Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 6 additions & 2 deletions src/Cornelis/Pretty.hs
Original file line number Diff line number Diff line change
Expand Up @@ -24,8 +24,8 @@ import Prettyprinter.Internal.Type
--
-- The suffix after @Cornelis/XXX/@ matches the names as returned by Agda, contained in 'C.hl_atoms'.
-- How these names are generated is not documented on Agda's side, but the implementation can be found at
-- ['Agda.Interaction.Highlighting.Common.toAtoms'](https://github.com/agda/agda/src/full/Agda/Interaction/Highlighting/Common.hs).
-- The corresponding Agda types are found in 'Agda.Interaction.Highlighting.Precise'.
-- ['Agda.Interaction.Highlighting.Common.toAtoms'](https://github.com/agda/agda/blob/2ee8d18194b6f6db1f144c12cb177dbc17089d5e/src/full/Agda/Interaction/Highlighting/Common.hs#L19).
-- The corresponding Agda types are found in 'Agda.Syntax.Common.Aspect'.
--
-- NOTE:
-- * When modifying this type, remember to sync the changes to @syntax/agda.vim@
Expand All @@ -39,6 +39,8 @@ data HighlightGroup
| CornelisHole -- ^ An open hole (@{! /.../ !}@ and @?@)
| CornelisUnsolvedMeta -- ^ An unresolved meta variable
| CornelisUnsolvedConstraint -- ^ An unresolved constraint
| CornelisTerminationProblem -- ^ Failed termination check
| CornelisPositivityProblem -- ^ Failed positivity check
| CornelisKeyword -- ^ An Agda keywords (@where@, @let@, etc.)
| CornelisSymbol -- ^ A symbol, not part of an identifier (@=@, @:@, @{@, etc.)
| CornelisType -- ^ A datatype (@Nat@, @Bool@, etc.)
Expand Down Expand Up @@ -73,6 +75,8 @@ priority CornelisErrorWarning = 150
priority CornelisWarn = 150
priority CornelisUnsolvedMeta = 150
priority CornelisUnsolvedConstraint = 150
priority CornelisTerminationProblem = 150
priority CornelisPositivityProblem = 150
priority _ = 100

atomToHlGroup :: Text -> Maybe HighlightGroup
Expand Down
2 changes: 2 additions & 0 deletions syntax/agda.vim
Original file line number Diff line number Diff line change
Expand Up @@ -25,6 +25,8 @@ hi def link CornelisErrorWarning CornelisError
hi def link CornelisWarn DiagnosticWarn
hi def link CornelisUnsolvedMeta CornelisWarn
hi def link CornelisUnsolvedConstraint CornelisWarn
hi def link CornelisTerminationProblem CornelisWarn
hi def link CornelisPositivityProblem CornelisWarn
hi def link CornelisMissingDefinition CornelisWarn
hi def link CornelisTypeChecks CornelisWarn

Expand Down
Loading