Fix style of pragmas

src/Shout-Tests/SHRBStyleAttributionTest.class.st

@@ -539,11 +539,32 @@ SHRBStyleAttributionTest >> testPragmaStyle [
 
 	self
 		assertStyleOf: aText
-		between: 4
+		between: 3
 		and: 8
 		shouldBe: #pragma
 ]
 
+{ #category : #tests }
+SHRBStyleAttributionTest >> testPragmaStyleWithCrazyPragma [
+
+	| aText |
+	aText := 'm 	<  test: #toto test2: 2 > ^ a' asText.
+	self style: aText.
+
+	self assertStyleOf: aText at: 4 shouldBe: #pragma.
+	self
+		assertStyleOf: aText
+		between: 7
+		and: 11
+		shouldBe: #pragma.
+	self
+		assertStyleOf: aText
+		between: 19
+		and: 24
+		shouldBe: #pragma.
+	self assertStyleOf: aText at: 28 shouldBe: #pragma
+]
+
 { #category : #tests }
 SHRBStyleAttributionTest >> testReturnStyle [
 

src/Shout/SHRBTextStyler.class.st

@@ -1072,8 +1072,13 @@ SHRBTextStyler >> visitParseErrorNode: anErrorNode [
 
 { #category : #visiting }
 SHRBTextStyler >> visitPragmaNode: aPragmaNode [
+	"Lets imagin this pragma: `<  test: #toto test2: 2 >`
 
-	aPragmaNode selectorParts with: aPragmaNode keywordsPositions do: [ :keyword :position | self addStyle: #pragma from: position to: position + keyword size ].
+	We want to highlight the `<`, the `test:`, the `test2:` and the `>` but we do not want to highlight the arguments."
+
+	self addStyle: #pragma from: aPragmaNode left to: aPragmaNode left.
+	aPragmaNode keywordsIntervals do: [ :i | self addStyle: #pragma from: i first to: i last ].
+	self addStyle: #pragma from: aPragmaNode right to: aPragmaNode right.
 
 	aPragmaNode arguments do: [ :each | self visitNode: each ]
 ]