mirror of
https://github.com/nvim-treesitter/nvim-treesitter.git
synced 2026-07-01 19:17:02 -04:00
1ae9b0e455
Problem: Sharing highlight queries with upstream tree-sitter and
Helix is difficult.
Solution: Where reasonable, use capture names in tree-sitter's standard
list or Helix's Atom-style hierarchy.
Specifically:
* tree-sitter "standard capture names"
(3f44b89685/highlight/src/lib.rs (L20-L72)):
- `@parameter` -> `@variable.parameter`
- `@field` -> `@variable.member`
- `@namespace` -> `@module`
- `@float` -> `@number.float`
- `@symbol` -> `@string.special.symbol`
- `@string.regex` -> `@string.regexp`
- `@text.*` -> `@markup.*` (`strong`, `italic`, `link`, `strikethrough`; with exceptions; see below)
- `@text.title` -> `@markup.heading`
- `@text.literal` -> `@markup.raw`
- `@text.reference` -> `@markup.link`
- `@text.uri` -> `@markup.link.url` (in markup links)
- `@string.special` -> `@markup.link.label` (non-url links)
- `@punctuation.special` -> `@markup.list` (markdown lists only; move subitems from `@text.todo`)
* Helix captures
(https://docs.helix-editor.com/master/themes.html#syntax-highlighting):
- `@method` -> `@function.method`
- `@method.call` -> `@function.method.call`
- `@text.{todo,warning,note,danger}` -> `@comment.{error,warning,hint,info,todo}`
- `@text.diff.{add,delete,}` -> `@diff.{plus,minus,delta}`
- `@text.uri` -> `@string.special.url` (outside markup)
- `@preproc` -> `@keyword.directive`
- `@define` -> `@keyword.directive`(`.define`?)
- `@storageclass` -> `@keyword.storage`
- `@conditional` -> `@keyword.conditional`
- `@debug` -> `@keyword.debug`
- `@exception` -> `@keyword.exception`
- `@include` -> `@keyword.import`
- `@repeat` -> `@keyword.repeat`
* cleanup
- remove some redundant `@conceal` (but still allow it for conceal-only patterns)
- remove obsolete `@error` (syntax linting is out of scope for this repo)
- sort, cleanup capture list in `CONTRIBUTING.md`
332 lines
9.2 KiB
Haskell
332 lines
9.2 KiB
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
-- ^ @keyword.directive
|
|
|
|
module Main
|
|
-- ^ @keyword.import
|
|
-- ^ @module
|
|
( main
|
|
) where
|
|
-- ^ @keyword
|
|
|
|
import Prelude hiding (show)
|
|
-- ^ @keyword.import
|
|
-- ^ @module
|
|
-- ^ @keyword
|
|
-- ^ @variable
|
|
import Data.Map (fromList)
|
|
-- ^ @module
|
|
import qualified Data.Map as Map
|
|
-- ^ @constructor
|
|
-- ^ @module
|
|
import qualified Chronos
|
|
-- ^ @module
|
|
import qualified Chronos as C
|
|
-- ^ @constructor
|
|
-- ^ @module
|
|
import FooMod (BarTy (barField))
|
|
-- ^ @variable.member
|
|
|
|
x = mempty { field = 5 }
|
|
-- ^ @variable.member
|
|
|
|
data ADT
|
|
-- ^ @keyword
|
|
= A Int
|
|
-- ^ @constructor
|
|
-- ^ @type
|
|
| B
|
|
-- ^ @constructor
|
|
deriving (Eq, Show)
|
|
-- ^ @keyword
|
|
-- ^ @type
|
|
-- ^ @type
|
|
mkA x = A x
|
|
-- ^ @variable
|
|
mkAQualified x = SomeModule.A x
|
|
-- ^ @variable
|
|
|
|
class Ord a => PartialOrd a
|
|
-- ^ @type
|
|
-- ^ @type
|
|
-- ^ @type
|
|
-- ^ @type
|
|
|
|
instance Ord ADT where
|
|
-- ^ @type
|
|
-- ^ @type
|
|
|
|
newtype Rec
|
|
-- ^ @keyword
|
|
-- ^ @type
|
|
= Rec
|
|
-- ^ @constructor
|
|
{ field :: Double
|
|
-- ^ @punctuation.bracket
|
|
-- ^ @variable.member
|
|
-- ^ @type
|
|
}
|
|
-- ^ @punctuation.bracket
|
|
deriving Eq
|
|
-- ^ @type
|
|
recordWildCard Rec { field } = field
|
|
-- ^ @variable.member
|
|
recordDotSyntax rec = rec.field
|
|
-- ^ @variable.member
|
|
|
|
|
|
main :: IO ()
|
|
-- ^ @function
|
|
-- ^ @operator
|
|
-- ^ @type
|
|
-- ^ @string.special.symbol
|
|
main = undefined
|
|
-- ^ @function
|
|
-- ^ @keyword.exception
|
|
|
|
someFunc0 :: Int -> Int
|
|
-- ^ @operator
|
|
someFunc0 x = someFunc1 x
|
|
-- ^ @variable.parameter
|
|
-- ^ @function.call
|
|
where
|
|
-- ^ @keyword
|
|
someFunc1 _ = 5
|
|
-- ^ @function
|
|
-- ^ @number
|
|
scopedTypeParam (x :: Int) = someFunc x
|
|
-- ^ @variable.parameter
|
|
scopedTypeParam (Just x :: Int) = someFunc x
|
|
-- ^ @variable.parameter
|
|
|
|
someInfix :: Integral a => a -> Double
|
|
-- ^ @type
|
|
-- ^ @type
|
|
-- ^ @operator
|
|
-- ^ @type
|
|
someInfix x = fromIntegral x `myAdd` floatVal
|
|
-- ^ @function.call
|
|
-- ^ @variable
|
|
-- ^ @operator
|
|
-- ^ @variable
|
|
where
|
|
myAdd :: Num a => a -> a
|
|
-- ^ @function
|
|
myAdd x y = x + y
|
|
-- ^ @variable
|
|
-- ^ @variable
|
|
floatVal :: Double
|
|
-- ^ @variable
|
|
floatVal = 5.5
|
|
-- ^ @variable
|
|
-- ^ @number.float
|
|
intVal :: Int
|
|
-- ^ @variable
|
|
intVal = getInt 5
|
|
-- ^ @variable
|
|
boolVal :: Bool
|
|
-- ^ @variable
|
|
boolVal = bool False True $ 1 + 2 == 3
|
|
-- ^ @variable
|
|
refVal = boolVal
|
|
-- ^ @variable
|
|
namespacedRecord = NS.Rec { field = bar }
|
|
-- ^ @variable
|
|
record = Rec { field = bar }
|
|
-- ^ @variable
|
|
constructorRef = A
|
|
-- ^ @function
|
|
isInt :: Either Double Int -> Bool
|
|
-- ^ @function
|
|
isInt eith@Left{} = False
|
|
-- ^ @variable.parameter
|
|
isInt eith@(Left x) = False
|
|
-- ^ @function
|
|
-- ^ @variable.parameter
|
|
isInt (Left x) = False
|
|
-- ^ @variable.parameter
|
|
isInt (Right _) = True
|
|
-- ^ @function
|
|
|
|
someIOaction :: IO ()
|
|
-- ^ @function
|
|
someIOaction = do
|
|
-- ^ @keyword
|
|
foo <- SomeModule.someFun <$> getArgs
|
|
-- ^ @variable
|
|
-- ^ @module
|
|
-- ^ @function.call
|
|
-- ^ @operator
|
|
_ <- someFunc0 =<< someIOAction
|
|
-- ^ @function.call
|
|
let bar = SomeModule.doSomething $ "a" "b"
|
|
-- ^ @variable
|
|
-- ^ @module
|
|
-- ^ @function.call
|
|
-- ^ @operator
|
|
func x y = x + y - 7
|
|
-- ^ @function
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable
|
|
-- ^ @variable
|
|
gunc x y = func x $ y + 7
|
|
-- ^ @variable
|
|
-- ^ @variable
|
|
valueFromList = HashSet.fromList []
|
|
-- ^ @variable
|
|
when foo $ putStrLn $ T.showt =<< bar
|
|
-- ^ @function.call
|
|
-- ^ @variable
|
|
-- ^ @function.call
|
|
-- ^ @function.call
|
|
|
|
pure $ func 1 2
|
|
-- ^ @function.call
|
|
-- ^ @function.call
|
|
|
|
intVal :: Int
|
|
intVal = 5
|
|
-- ^ @variable
|
|
|
|
intFun :: Int -> Int
|
|
intFun = 5
|
|
-- ^ @function
|
|
|
|
undefinedFun :: Int -> Int
|
|
undefinedFun = undefined
|
|
-- ^ @function
|
|
|
|
mbInt :: Maybe Int
|
|
-- ^ @variable
|
|
mbInt = Just 5
|
|
-- ^ @variable
|
|
|
|
tupleVal :: (a, b)
|
|
-- ^@variable
|
|
tupleVal = (1, "x")
|
|
-- ^@variable
|
|
|
|
listVal :: [a]
|
|
-- ^@variable
|
|
listVal = [1, 2]
|
|
-- ^@variable
|
|
-- ^@variable
|
|
condVal = if otherwise
|
|
-- ^@variable
|
|
then False
|
|
else True
|
|
|
|
getLambda x = \y -> x `SomeModule.someInfix` y
|
|
-- ^ @variable.parameter
|
|
-- ^ @module
|
|
-- ^ @operator
|
|
lambdaTyped = \(y :: Int) -> x
|
|
-- ^ @variable.parameter
|
|
lambdaPattern = \(Just x) -> x
|
|
-- ^ @variable.parameter
|
|
lambdaPatternTyped = \(Just x :: Int) -> x
|
|
-- ^ @variable.parameter
|
|
|
|
isVowel = (`elem` "AEIOU")
|
|
-- ^ @operator
|
|
isVowelQualified = (`SomeModule.elem` "AEIOU")
|
|
-- ^ @module
|
|
-- ^ @operator
|
|
|
|
hasVowels = ("AEIOU" `elem`)
|
|
-- ^ @operator
|
|
hasVowelsQualified = ("AEIOU" `SomeModule.elem`)
|
|
-- ^ @module
|
|
-- ^ @operator
|
|
|
|
quasiQuotedString = [qq|Some string|]
|
|
-- ^ @variable
|
|
-- ^ @function.call
|
|
-- ^ @string
|
|
quasiQuotedString2 = [SomeModule.qq|Some string|]
|
|
-- ^ @module
|
|
-- ^ @function.call
|
|
|
|
composition f g = f . g
|
|
-- ^ @function
|
|
-- ^ @function
|
|
qualifiedComposition = SomeModule.f . SomeModule.g
|
|
-- ^ @function
|
|
-- ^ @function
|
|
takeMVarOrThrow = evaluate <=< takeMVar
|
|
-- ^ @function
|
|
-- ^ @function
|
|
modifyMVarOrThrow v f = modifyMVar v $ f >=> evaluate
|
|
-- ^ @variable
|
|
-- ^ @function
|
|
-- ^ @function
|
|
assertNonEmpty xs = xs `shouldSatisfy` not . null
|
|
-- ^ @variable
|
|
-- ^ @function
|
|
-- ^ @function
|
|
appliedComposition f g var = (f . g) var
|
|
-- ^ @function.call
|
|
-- ^ @function.call
|
|
appliedComposition f g var = (NS.f . NS.g) var
|
|
-- ^ @function.call
|
|
-- ^ @function.call
|
|
param1 |*| param2 = Qu $ param1 * param2
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
(param1 :: Int) |*| (param2 :: Int) = Qu $ param1 * param2
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
(Qu a) |/| (SomeModule.Qu b) = a / b
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
(Qu a :: Int) |/| (SomeModule.Qu b :: Int) = a / b
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
(Qu a, b, c :: Int) |/| x = undefined
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
[Qu a, b, c :: Int] >< x = undefined
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
listParam [a, b :: Int, Just c] = undefined
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
tupleParam (a :: Int, b, Just c) = undefined
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
listLambda = \[a, a :: Int, Just c] -> undefined
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
tupleLambda = \(a, b :: Int, Just c) -> undefined
|
|
-- ^ @variable.parameter
|
|
-- ^ @variable.parameter
|
|
nestedDestructure (Left (Just a)) = undefined
|
|
-- ^ @variable.parameter
|
|
typeApplication x y = someFun @ty x y
|
|
-- ^ @variable
|
|
-- ^ @variable
|
|
encrypt key pass = encrypt (defaultOAEPParams SHA1) key pass
|
|
-- ^ @variable
|
|
-- ^ @variable
|
|
recordUpdate x y rec = someFun rec {field = 5} (x, x) y
|
|
-- ^ @variable
|
|
-- ^ @variable
|
|
viewPattern (func -> var) = 5
|
|
-- ^ @function.call
|
|
-- ^ @variable.parameter
|
|
g (func :: a -> b) x = func y
|
|
-- ^ @variable.parameter
|
|
-- ^ @function
|
|
lambdaAlias :: LambdaAlias
|
|
lambdaAlias _ _ _ = undefined
|
|
-- ^ @function
|
|
spec :: Spec
|
|
spec = describe "test ns" $ it "test case" pending
|
|
-- ^ @variable
|
|
|
|
composed = f . g
|
|
-- ^ @function
|