pulsar-edit/pulsar
1
1
Fork 0
mirror of https://github.com/pulsar-edit/pulsar.git synced 2024-08-16 14:40:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed tags

Browse Source
This commit is contained in:
Maurício Szabo 2024-04-30 19:06:06 -03:00
parent 781060e01b
commit 9e70a723c7
3 changed files with 53 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/language-clojure/grammars/ts/highlights.scm
View File

@ -95,7 +95,7 @@
(list_lit
"(" @punctuation.section.expression.begin (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "^def(on[^\s]*|test|macro|n|n-|)$")
(sym_lit) @keyword.control (#match? @keyword.control "^def(on[^\s]*|test|macro|n|n-|protocol|record|struct|)$")
.
(sym_lit) @meta.definition.global @entity.global
")" @punctuation.section.expression.end)

46
packages/language-clojure/grammars/ts/tags.scm
View File

@ -1,7 +1,47 @@
(list_lit
"(" (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "^def(on[^\s]*|test|macro|n|n-|)$")
(sym_lit) @keyword.control (#match? @keyword.control "defmacro")
.
(sym_lit) @definition.function
")")
(sym_lit) @name
")") @definition.constructor
(list_lit
"(" (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "def(protocol|struct|record)")
.
(sym_lit) @name
")") @definition.struct
(list_lit
"(" (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "^def(on[^\s]*|test|macro|n|n-)$")
.
(sym_lit) @name
")") @definition.function
(list_lit
"(" (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "^def(on[^\s]*|test|macro|n|n-)$")
.
(sym_lit) @name
")") @definition.variable
(list_lit
"(" @punctuation.section.expression.begin (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "/def.")
.
(sym_lit) @name
")") @definition.function
(list_lit
"(" @punctuation.section.expression.begin (#is-not? test.descendantOfNodeWithData "clojure.dismissTag")
.
(sym_lit) @keyword.control (#match? @keyword.control "/def")
.
(sym_lit) @name
")") @definition.variable

9
packages/language-clojure/spec/fixtures/tokens.clj vendored
View File

@ -38,6 +38,15 @@
; ^ keyword.control
; ^ entity.global
(defprotocol FooBar
; ^ keyword.control
; ^ entity.global
(-eq [this other]))
(defrecord Lol [a b])
; ^ keyword.control
; ^ entity.global
(def a "A STRING")
; <- keyword.control
; ^ entity.global