From c7fca28305a777e021f6403c0d06fd6f9acd9f6b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 22 Jun 2024 13:05:45 -0500
Subject: [PATCH] Highlighting tiddler collections in the network view.

---
 repository/TiddlyWiki/TiddlyWiki.class.st | 25 +++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index d5b0b01..dd5be0c 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -682,6 +682,31 @@ TiddlyWiki >> networkViewHighlightingCreator: creatorName [
 	^ view
 ]
 
+{ #category : #accessing }
+TiddlyWiki >> networkViewHighlightingNodesIn: aCollection [
+
+	^ self networkViewHighlightingNodesIn: aCollection withColor: self networkViewForeground 
+]
+
+{ #category : #accessing }
+TiddlyWiki >> networkViewHighlightingNodesIn: aCollection withColor: aColor [
+	| view |
+	view := GtMondrian new.
+	view nodes
+		stencil: [ :each | 
+			| color  size |
+			color := (aCollection includes: each )
+					ifTrue: [ aColor ]
+					ifFalse: [ self networkViewBackground ].
+			size := 5 @ 5.
+			BlElement new background: color; size: size ];
+		with: self tiddlers.
+	view edges
+		connectToAll: #linkedTiddlers.
+	view layout force.
+	^ view
+]
+
 { #category : #accessing }
 TiddlyWiki >> oldestCreatedTiddler [