diff --git a/src/NewTools-DocumentationReader-Tests/StGithubDocSpecificationTest.class.st b/src/NewTools-DocumentationReader-Tests/StGithubDocSpecificationTest.class.st
new file mode 100644
index 0000000..1358b92
--- /dev/null
+++ b/src/NewTools-DocumentationReader-Tests/StGithubDocSpecificationTest.class.st
@@ -0,0 +1,26 @@
+"
+A StGithubDocSpecificationTest is a test class for testing the behavior of StGithubDocSpecification
+"
+Class {
+	#name : #StGithubDocSpecificationTest,
+	#superclass : #TestCase,
+	#category : #'NewTools-DocumentationReader-Tests'
+}
+
+{ #category : #tests }
+StGithubDocSpecificationTest >> testUrlForDocFolder [
+	| spec |
+	spec := StGithubDocSpecification new branch: 'Pharo10'.
+	self 
+		assert: spec urlForDocFolder 
+		equals: 'https://api.github.com/repos/pharo-project/pharo/git/trees/Pharo10'
+]
+
+{ #category : #tests }
+StGithubDocSpecificationTest >> testUrlForFile [
+	| spec |
+	spec := StGithubDocSpecification new branch: 'Pharo10'.
+	self 
+		assert: (spec urlForFile: 'foo/bar.md')
+		equals: 'https://raw.githubusercontent.com/pharo-project/pharo/Pharo10/doc/foo/bar.md'
+]
diff --git a/src/NewTools-DocumentationReader-Tests/StHelpBrowserPresenterTest.class.st b/src/NewTools-DocumentationReader-Tests/StHelpBrowserPresenterTest.class.st
index ccb1599..4b2f784 100644
--- a/src/NewTools-DocumentationReader-Tests/StHelpBrowserPresenterTest.class.st
+++ b/src/NewTools-DocumentationReader-Tests/StHelpBrowserPresenterTest.class.st
@@ -77,89 +77,15 @@ StHelpBrowserPresenterTest >> tearDown [
 	super tearDown.
 ]
 
-{ #category : #'tests - cache' }
-StHelpBrowserPresenterTest >> testHelpCache [
-
-	| docFolder file cache save |
-	[ 
-	save := self presenterClass helpCache.
-
-	filesystem createDirectory: 'doc'.
-	docFolder := filesystem workingDirectory / 'doc'.
-	file := filesystem workingDirectory / 'doc' / 'file.mic'.
-	file writeStreamDo: [ :stream | stream nextPutAll: 'this is a text' ].
-	self presenterClass internalizeHelpFrom: docFolder.
-	cache := self presenterClass helpCache.
-	self assert: cache basenameWithoutExtension equals: 'doc'.
-	self
-		assert: cache children first basenameWithoutExtension
-		equals: 'file' ] ensure: [ self presenterClass helpCache: save ]
-]
-
-{ #category : #'tests - cache' }
-StHelpBrowserPresenterTest >> testHelpCacheHandleShittyFiles [
-
-	| docFolder file cache save |
-	[ 
-	save := self presenterClass helpCache.
-
-	filesystem createDirectory: 'doc'.
-	docFolder := filesystem workingDirectory / 'doc'.
-	file := filesystem workingDirectory / 'doc' / 'file.mic'.
-	file writeStreamDo: [ :stream | stream nextPutAll: 'this is a text' ].
-
-	file := filesystem workingDirectory / 'doc' / '.DS_Store'.
-	file writeStreamDo: [ :stream | stream nextPutAll: 'crap crap' ].
-	self presenterClass internalizeHelpFrom: docFolder.
-	cache := self presenterClass helpCache.
-	self assert: cache basenameWithoutExtension equals: 'doc'.
-	self assert: cache children size equals: 1 ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #'tests - cache' }
-StHelpBrowserPresenterTest >> testHelpCacheOnlyAcceptFolderAndMicFiles [
-
-	| docFolder file cache save |
-	[ 
-	save := self presenterClass helpCache.
-
-	filesystem createDirectory: 'doc'.
-	docFolder := filesystem workingDirectory / 'doc'.
-	file := filesystem workingDirectory / 'doc' / 'file.mic'.
-	file writeStreamDo: [ :stream | stream nextPutAll: 'this is a text' ].
-
-	file := filesystem workingDirectory / 'doc' / 'Stupid.txt'.
-	file writeStreamDo: [ :stream | 
-		stream nextPutAll: 'This is a stupid mistyped extension text' ].
-
-	filesystem createDirectory: 'doc/Epicea'.
-	file := filesystem workingDirectory / 'doc' / 'Epicea' / 'fileEp.mic'.
-	file writeStreamDo: [ :stream | 
-		stream nextPutAll: 'this is a text about Epicea' ].
-	self presenterClass internalizeHelpFrom: docFolder.
-	cache := self presenterClass helpCache.
-	self assert: cache children size equals: 2.
-	self assert: cache allChildren size equals: 4 ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #'tests - cache' }
-StHelpBrowserPresenterTest >> testHelpCacheReturnFileReferenceEmptyIfNil [
-
-	| cache |
-	cache := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	self assert: self presenterClass helpCache hasChildren not.
-	self presenterClass helpCache: cache
-]
-
 { #category : #'tests - interaction' }
 StHelpBrowserPresenterTest >> testOpenIsWorkingSmokeTest [
-
+	"When this fails we have found a default way to open the help browser, then this test should be changed"
 	| browser |
-	browser := self presenterClass new.
-	window := browser openWithSpec
+	self 
+		should: [
+			browser := self presenterClass new.
+			window := browser openWithSpec]
+		raise: Exception 
 ]
 
 { #category : #'tests - interaction' }
@@ -185,94 +111,6 @@ StHelpBrowserPresenterTest >> testOpenOnCustomHelp2 [
 	window := browser openWithSpec
 ]
 
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testOpenOnCustomHelpWithClass [
-
-	| browser rootTopic save |
-	[ 
-	save := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	browser := self presenterClass openOnCustomHelp: self presenterClass.
-	rootTopic := browser rootTopic.
-	self assert: rootTopic title equals: '/'.
-	window := browser window ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testOpenOnCustomHelpWithDescription [
-
-	| browser rootTopic save |
-	[ 
-	save := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	browser := self presenterClass openOnCustomHelp: SUnitTutorial.
-	rootTopic := browser rootTopic.
-	self assert: rootTopic title equals: 'Tutorial'.
-	window := browser window ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testOpenOnCustomHelpWithMethod [
-
-	| browser rootTopic save |
-	[ 
-	save := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	browser := self presenterClass openOnCustomHelp:
-		           self presenterClass >> #rootTopic:.
-	rootTopic := browser rootTopic.
-	self assert: rootTopic title equals: '/'.
-	window := browser window ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testOpenOnCustomHelpWithObject [
-
-	| browser rootTopic save |
-	[ 
-	save := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	browser := self presenterClass openOnCustomHelp: Object new.
-	rootTopic := browser rootTopic.
-	self assert: rootTopic title equals: '/'.
-	window := browser window ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testOpenOnCustomHelpWithString [
-
-	| browser rootTopic save |
-	[ 
-	save := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	browser := self presenterClass openOnCustomHelp:
-		           self presenterClass >> #rootTopic:.
-	rootTopic := browser rootTopic.
-	self assert: rootTopic title equals: '/'.
-	window := browser window ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testOpenOnDoesNotExistFolder [
-
-	| browser rootTopic save |
-	[ 
-	save := self presenterClass helpCache.
-	self presenterClass emptyHelpCache.
-	browser := self presenterClass openOnHelpFolder:
-		           FileSystem workingDirectory
-		           / 'ojdoajdjvsaidqsjkjfzeuican'.
-	rootTopic := browser rootTopic.
-	self assert: rootTopic title equals: '/'.
-	window := browser window ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
-
 { #category : #tests }
 StHelpBrowserPresenterTest >> testOpenOnSystemHelp2 [
 
@@ -283,140 +121,3 @@ StHelpBrowserPresenterTest >> testOpenOnSystemHelp2 [
 	self assert: rootTopic icon isNil.
 	window := browser openWithSpec
 ]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserGotHelpTopicVisitorPerDefault [
-
-	| visitor browser |
-	browser := self presenterClass new.
-	visitor := browser helpTopicVisitor.
-	self assert: visitor equals: StTopicBuilderVisitor
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserGotHelpTopicVisitorThatISpecify [
-
-	| visitor browser |
-	browser := self presenterClass new.
-	browser helpTopicVisitor: StTopicBuilderVisitor.
-	visitor := browser helpTopicVisitor.
-	self assert: visitor equals: StTopicBuilderVisitor
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserGotRootTopicThatISpecify [
-
-	| topic browser |
-	browser := self presenterClass new.
-	topic := self helpTopicClass  named: 'Test'.
-	browser rootTopic: topic.
-	self assert: browser rootTopic equals: topic
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserGotTopicsPerDefault [
-
-	| topic browser |
-	browser := self presenterClass new.
-	topic := browser rootTopic.
-	self assert: topic title equals: 'Help'
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserGotTopicsThatISpecify [
-
-	| topic browser |
-	browser := self presenterClass new.
-	browser rootTopic: (self helpTopicClass named: 'foo').
-	topic := browser rootTopic.
-	self assert: topic title equals: 'foo'
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserPresenterDocTopicFromFileSystemOnFile [
-
-	| file browser rootTopic |
-	file := filesystem workingDirectory / 'fd1.mic'.
-	file writeStreamDo: [ :stream | stream nextPutAll: self class spFd1 ].
-	browser := self presenterClass new.
-	rootTopic := browser createTopicsFromFileOrFolder: file.
-	self assert: rootTopic size equals: 2
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserPresenterDocTopicFromSystem [
-
-	| file directory browser rootTopic |
-	filesystem createDirectory: 'test'.
-	directory := filesystem workingDirectory / 'test'.
-	file := filesystem workingDirectory / 'test/fd1.mic'.
-	file writeStreamDo: [ :stream | stream nextPutAll: self class spFd1 ].
-	browser := self presenterClass new.
-	rootTopic := (browser createRootTopicFromFolder: directory) rootTopic.
-	self assert: rootTopic subtopics size equals: 2
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserPresenterOpenADirectory [
-
-	| directory browser |
-	directory := filesystem workingDirectory / self class spDirectoryName.
-	filesystem createDirectory: self class spDirectoryName.
-	browser := self presenterClass new.
-	browser createRootTopicFromFolder: directory.
-
-	self
-		assert: browser rootTopic title
-		equals: directory basenameWithoutExtension capitalized
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserPresenterTopicFromSystemOnDirectoryWithFiles [
-
-	| directory file1 file2 browser rootTopic |
-	filesystem createDirectory: 'test'.
-	directory := filesystem workingDirectory / 'test'.
-
-
-	file1 := filesystem workingDirectory / 'test/fd1.mic'.
-	file1 writeStreamDo: [ :stream | stream nextPutAll: self class spFd1 ].
-
-	file2 := filesystem workingDirectory / 'test/fd2.mic'.
-	file2 writeStreamDo: [ :stream | stream nextPutAll: self class spFd2 ].
-
-	browser := self presenterClass new.
-	rootTopic := (browser createRootTopicFromFolder: directory) rootTopic.
-	self assert: rootTopic subtopics size equals: 3
-]
-
-{ #category : #tests }
-StHelpBrowserPresenterTest >> testSpHelpBrowserPresenterTopicFromSystemOnFile [
-
-	| file browser rootTopic |
-	file := filesystem workingDirectory / 'fd1.mic'.
-	file writeStreamDo: [ :stream | stream nextPutAll: self class spFd1 ].
-	browser := self presenterClass new.
-	rootTopic := (browser createRootTopicFromFolder: file) rootTopic.
-	self assert: rootTopic subtopics size equals: 2
-]
-
-{ #category : #'tests - cache' }
-StHelpBrowserPresenterTest >> testTopicsWithCacheFrom [
-
-	| docFolder file browser save |
-	[ 
-	save := self presenterClass helpCache.
-
-	filesystem createDirectory: 'doc'.
-	docFolder := filesystem workingDirectory / 'doc'.
-	file := filesystem workingDirectory / 'doc' / 'file.mic'.
-	file writeStreamDo: [ :stream | 
-		stream nextPutAll: '# section
-this is a text' ].
-	self presenterClass internalizeHelpFrom: docFolder.
-	browser := self presenterClass open.
-	window := browser window.
-	self assert: browser rootTopic title equals: 'Doc'.
-	self assert: browser rootTopic subtopics size equals: 1 ] ensure: [ 
-		self presenterClass helpCache: save ]
-]
diff --git a/src/NewTools-DocumentationReader-Tests/StTopicBuilderVisitorTest.class.st b/src/NewTools-DocumentationReader-Tests/StTopicBuilderVisitorTest.class.st
index bc9996b..87cd334 100644
--- a/src/NewTools-DocumentationReader-Tests/StTopicBuilderVisitorTest.class.st
+++ b/src/NewTools-DocumentationReader-Tests/StTopicBuilderVisitorTest.class.st
@@ -1,10 +1,6 @@
 Class {
 	#name : #StTopicBuilderVisitorTest,
 	#superclass : #TestCase,
-	#instVars : [
-		'filesystem',
-		'visitor'
-	],
 	#category : #'NewTools-DocumentationReader-Tests'
 }
 
@@ -70,125 +66,85 @@ StTopicBuilderVisitorTest class >> spFileName [
 	^ 'test.md'
 ]
 
-{ #category : #tests }
-StTopicBuilderVisitorTest >> helpTopicClass [
-
-	^ StNodeHelpTopic
-]
-
-{ #category : #running }
-StTopicBuilderVisitorTest >> setUp [
-	super setUp.
-	filesystem := FileSystem memory.
-	visitor := StTopicBuilderVisitor new
-	
-]
-
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorVisitHeader [
 
-	| file text header |
+	| text topic |
 	text := '# SectionTest
 	This is a paragraphe'.
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-		stream nextPutAll: text ].
-	header := (MicroDownParser new parse: file contents) children first.
-	visitor visitHeader: header.
-	self assert: visitor helpTopics subtopics first title equals: 'SectionTest'.
-	self assert: visitor helpTopics subtopics first contents equals: ''
+	topic := self topicIn: text.
+	self assert: topic subtopics first title equals: 'SectionTest'.
+	self assert: topic subtopics first subtopics isEmpty 
 
 ]
 
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorVisitHeaderAtLevel2 [
 
-	| file text header |
+	| text topic |
 	text := '## SectionTest
 	This is a paragraphe'.
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-		stream nextPutAll: text ].
-	header := (MicroDownParser new parse: file contents) children first.
-	visitor visitHeader: header.
-	self assert: visitor helpTopics subtopics first title equals: 'SectionTest'.
-	self assert: visitor helpTopics subtopics first contents equals: ''
+	topic := self topicIn: text.
+	self assert: topic subtopics first title equals: 'SectionTest'.
+	self assert: topic subtopics first subtopics isEmpty 
 
 ]
 
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorWithLevelsSections [
 
-	| file topics |
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-		stream nextPutAll: self class spFileContentsLevelsSections ].
-	self visitFile: file.
-	topics := visitor helpTopics subtopics.
-	self assert: topics first title equals: 'Section 1'.
-	self assert: topics first subtopics first title equals: 'Section 2'.
+	|  topic |
+	
+	topic := self topicIn: self class spFileContentsLevelsSections.
+	self assert: topic subtopics first title equals: 'Section 1'.
+	self assert: topic subtopics first subtopics first title equals: 'Section 2'.
 ]
 
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorWithMoreSections [
-
-	| file |
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-		stream nextPutAll: self class spFileContentsMoreSections ].
-	self visitFile: file.
-	self assert: (visitor helpTopics subtopics second) title equals: 'Section 2'.
-	self assert: visitor helpTopics subtopics size equals: 2
+	| topic |
+	topic := self topicIn: self class spFileContentsMoreSections.
+	self assert: topic subtopics second title equals: 'Section 2'.
+	self assert: topic subtopics size equals: 2
 ]
 
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorWithMoreSubSection [
-
-	| file |
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-			stream nextPutAll: self class spFileContentsWithMoreSubSection ].
-	self visitFile: file.
+	| topic |
+	
+	topic := self topicIn: self class spFileContentsWithMoreSubSection.
 	self
-		assert: (visitor helpTopics subtopics first subtopics second) title
+		assert: (topic subtopics first subtopics second) title
 		equals: 'Section 3'.
-	self assert: visitor helpTopics subtopics size equals: 1.
-	self assert: visitor helpTopics subtopics first subtopics size equals: 2
+	self assert: topic subtopics size equals: 1.
+	self assert: topic subtopics first subtopics size equals: 2
 ]
 
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorWithOneSection [
-
-	| file text |
-	text := '
-blabla
-blabla
-'.
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-		stream nextPutAll: self class spFileContentsOneSection ].
-	self visitFile: file.
-	self assert: (visitor helpTopics subtopics first) title equals: 'Section 1'.
-	self assert: visitor helpTopics subtopics size equals: 1
+	
+	| topic |
+	topic := self topicIn: self class spFileContentsOneSection.
+	self assert: topic subtopics first title equals: 'Section 1'.
+	self assert: topic subtopics size equals: 1
 ]
 
 { #category : #tests }
 StTopicBuilderVisitorTest >> testTopicBuilderVisitorWithOneSubSection [
 
-	| file |
-	(file := filesystem workingDirectory / self class spFileName) 
-		writeStreamDo: [ :stream | 
-			stream nextPutAll: self class spFileContentsWithOneSubSection ].
-	self visitFile: file.
+	| topic |
+	topic := self topicIn: self class spFileContentsWithOneSubSection.
 	self
-		assert: ((visitor helpTopics subtopics first) subtopics first) title
+		assert: topic subtopics first subtopics first title
 		equals: 'Section 2'.
-	self assert: visitor helpTopics subtopics size equals: 1.
-	self assert: visitor helpTopics subtopics first subtopics size equals: 1
+	self assert: topic subtopics size equals: 1.
+	self assert: topic subtopics first subtopics size equals: 1
 ]
 
 { #category : #helper }
-StTopicBuilderVisitorTest >> visitFile: file [
-
-	visitor visit: (MicroDownParser new parse: file contents)
+StTopicBuilderVisitorTest >> topicIn: aString [
+	| visitor |
+	visitor := StTopicBuilderVisitor new.
+	visitor visit: (MicroDownParser new parse: aString).
+	^ visitor helpTopic 
 ]
diff --git a/src/NewTools-DocumentationReader-Tests/StTopicFromFileFolderBuilderTest.class.st b/src/NewTools-DocumentationReader-Tests/StTopicFromFileFolderBuilderTest.class.st
new file mode 100644
index 0000000..b23f00b
--- /dev/null
+++ b/src/NewTools-DocumentationReader-Tests/StTopicFromFileFolderBuilderTest.class.st
@@ -0,0 +1,179 @@
+"
+A StTopicFromFileFolderBuilderTest is a test class for testing the behavior of StTopicFromFileFolderBuilder
+"
+Class {
+	#name : #StTopicFromFileFolderBuilderTest,
+	#superclass : #TestCase,
+	#instVars : [
+		'docDir',
+		'rootTopic'
+	],
+	#category : #'NewTools-DocumentationReader-Tests'
+}
+
+{ #category : #'as yet unclassified' }
+StTopicFromFileFolderBuilderTest class >> eyeballTest [
+	"This should be able to open the HelpBrowser on the test data"
+	<script>
+	StHelpBrowserPresenter openOnHelpFolder: self new initializeTestFileStore.
+]
+
+{ #category : #initialization }
+StTopicFromFileFolderBuilderTest >> contribute_md [
+	^'# How to Contribute
+
+Yes you can have an impact on Pharo. 
+You can join and participate to build a great system and learn so much
+
+Contributions can be
+- answering question on the mailing-list or discord channel (see Documentation item) [https://discord.gg/QewZMZa](https://discord.gg/QewZMZa)
+- fixing typos in books [http://books.pharo.org](http://books.pharo.org)
+- writing tests
+- reproducing and confirming a bug on your OS
+- fixing bugs
+
+You see there are plenty of opportunities to learn while improve Pharo 
+
+To propose a bug fix or enhancement is easy and relatively well documented. 
+The following website contains a clear description of the change:
+	[http://pharo.org/contribute-propose-fix](http://pharo.org/contribute-propose-fix) 
+ '
+]
+
+{ #category : #initialization }
+StTopicFromFileFolderBuilderTest >> createFilesIn: root from: anArray [
+	"Helper method to create a directory hierarchy with files.
+	Adapted from MemoryFileSystemTest>>createFilesIn:from:"
+
+	| dir path |
+
+	dir := (root / anArray first) createDirectory.
+	anArray allButFirstDo: [ :each |
+		each isArray ifTrue: 
+			[ self createFilesIn: dir from: each ]
+		ifFalse: 
+			[ (path := dir / each) writeStreamDo: [ :stream |
+				stream nextPutAll: (self fileContents: each) ] ] ].
+	^dir
+]
+
+{ #category : #initialization }
+StTopicFromFileFolderBuilderTest >> fileContents: fileName [
+	^ self perform: (fileName copyReplaceAll: '.' with: '_' )asSymbol 
+	
+]
+
+{ #category : #initialization }
+StTopicFromFileFolderBuilderTest >> initializeTestFileStore [
+	"I return a file reference to the root of the test file directory"
+	"My structure is:
+	doc
+		welcome
+			welcome.md
+			contribute.md
+		sunit
+			sunitFramework.md
+	The subject files are made in the methods topic1Subject11 etc
+	"
+	docDir ifNotNil: [ ^docDir  ].
+	docDir := self 
+		createFilesIn: FileSystem memory workingDirectory
+		from:  #( doc #(welcome 'welcome.md' 'contribute.md') #(sunit 'sunitFramework.md')).
+	^docDir
+]
+
+{ #category : #running }
+StTopicFromFileFolderBuilderTest >> setUp [
+	super setUp.
+	self initializeTestFileStore.
+	rootTopic := StTopicFromFileFolderBuilder new createRootTopicFromFolder: docDir
+]
+
+{ #category : #initialization }
+StTopicFromFileFolderBuilderTest >> sunitFramework_md [
+	^'# SUnit framework
+
+SUnit is the mother of all unit testing frameworks, and serves as one of the cornerstones of test-driven development methodologies such as eXtreme Programming. 
+
+The culture of testing has always been part of the philosophy of development in Smalltalk:
+You write a method, accept the code and test it by writing a small script in a workspace, in a comment or an example as a class method. But this approach does not allow to automatically repeat the testing or ensure that the code is working. SUnit is a framework you can use to describe and execute unit tests. Unit testing is a method by which individual units of source code are tested to determine if they are fit for use. A unit is the smallest testable part of an application.'
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testCaching [
+	"test that the presumed caching speeds things up"
+	| raw cached first second |
+	StTopicFromFileFolderBuilder resetCache.
+	raw := Time microsecondsToRun: 
+		[ first := StTopicFromFileFolderBuilder onDirectory: docDir ].
+	cached := Time microsecondsToRun: 
+		[ second := StTopicFromFileFolderBuilder onDirectory: docDir ].
+	self assert: raw > cached.
+	self assert: second equals: first.
+	
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testGetsTopics [
+	"Checking that anything works at all"
+	self assert: rootTopic isNotNil.
+	self assert: rootTopic class equals: StNodeHelpTopic.
+	self assert: rootTopic title equals: 'Doc'
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testHeadersExtractedToTopics [
+	"The Welcome file in the test data has a header 'Quick setup' which should be made into a topic"
+	| welcome welcomeTo10 |
+	welcome := rootTopic subtopics detect: [ :topic | topic title = 'Welcome' ].
+	welcomeTo10 := welcome subtopics detect: [ :topic | topic title = 'Welcome to Pharo 10' ].
+	self assert: welcomeTo10 subtopics first title equals: 'Quick setup'
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testNodesGetLifted [
+	"The document contents of files should be aggregated into a combined document for folders"
+	rootTopic subtopics do: [ :dirLevelTopic |
+		self assert: dirLevelTopic node children isNotEmpty ]
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testOpenOnDoesNotExistFolder [
+
+	self 
+		should: [ StTopicFromFileFolderBuilder new createRootTopicFromFolder: 'nowhere' asFileReference  ]
+		raise: DirectoryDoesNotExist 
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testRootTopicHasNoContents [
+	self assert: rootTopic contents children isEmpty
+]
+
+{ #category : #tests }
+StTopicFromFileFolderBuilderTest >> testSubtopics [
+	self assert: rootTopic subtopics size equals: 2.
+	self assert: (rootTopic subtopics collect: #title) asSet equals: #(Welcome Sunit) asSet
+]
+
+{ #category : #initialization }
+StTopicFromFileFolderBuilderTest >> welcome_md [
+	^'# Welcome to Pharo 10
+
+Welcome to Pharo, an immersive live programming environment.
+
+Pharo is a pure object-oriented programming language and a powerful environment, focused on simplicity and immediate feedback (think IDE and OS rolled into one).
+
+For more information, please visit here: [http://pharo.org](http://pharo.org)
+
+## Quick setup
+
+Choose your preferred color theme: 
+- `PharoLightTheme beCurrent` or `PharoDarkTheme beCurrent` 
+- and  switch fullscreen mode executing  `Display toggleFullscreen`
+
+Click if you have access to a: regular network connection or slow network
+or if need to setup a network proxy.
+
+You can also apply many other other settings by opening the `SettingBrowser open`.'
+]
diff --git a/src/NewTools-DocumentationReader-Tests/StTopicFromGithubBuilderTest.class.st b/src/NewTools-DocumentationReader-Tests/StTopicFromGithubBuilderTest.class.st
new file mode 100644
index 0000000..ef581d1
--- /dev/null
+++ b/src/NewTools-DocumentationReader-Tests/StTopicFromGithubBuilderTest.class.st
@@ -0,0 +1,65 @@
+"
+A StTopicFromGithubBuilderTest is a test class for testing the behavior of StTopicFromGithubBuilder
+"
+Class {
+	#name : #StTopicFromGithubBuilderTest,
+	#superclass : #TestCase,
+	#instVars : [
+		'root'
+	],
+	#classInstVars : [
+		'root'
+	],
+	#category : #'NewTools-DocumentationReader-Tests'
+}
+
+{ #category : #'as yet unclassified' }
+StTopicFromGithubBuilderTest class >> eyeballTest [
+	"This should be able to open the HelpBrowser on the test data (actual data from github)"
+	<script>
+	StHelpBrowserPresenter openTopic: self new root.
+]
+
+{ #category : #initialization }
+StTopicFromGithubBuilderTest >> initialize [
+	"Reset cache first time"
+	StTopicFromGithubBuilder reset.
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilderTest >> root [
+	^ StTopicFromGithubBuilder githubTopics
+]
+
+{ #category : #tests }
+StTopicFromGithubBuilderTest >> testIncludesWelcome [
+	| welcome |
+	welcome := self root subtopics detect: [ :topic | topic title = 'Welcome to Pharo 10' ].
+	self assert: welcome isNotNil.
+	self assert: welcome subtopics size equals: 4.
+	self assert: (welcome subtopics detect: [ :t | t title = 'To Learn Pharo'] ) subtopics size equals: 5.
+]
+
+{ #category : #tests }
+StTopicFromGithubBuilderTest >> testNodesGetLifted [
+	"The document contents of files should be aggregated into a combined document for folders"
+	self root subtopics do: [ :dirLevelTopic |
+		self assert: dirLevelTopic node children isNotEmpty ]
+]
+
+{ #category : #tests }
+StTopicFromGithubBuilderTest >> testReadRoot [
+	self assert: self root class equals: StNodeHelpTopic 
+]
+
+{ #category : #tests }
+StTopicFromGithubBuilderTest >> testRootTopicHasNoContents [
+	self assert: self root contents children isEmpty
+]
+
+{ #category : #tests }
+StTopicFromGithubBuilderTest >> testSubtopics [
+	self assert: 
+		((self root subtopics collect: #title) 
+				intersection: #(Introduction 'Regular expressions framework')) size = 2
+]
diff --git a/src/NewTools-DocumentationReader/StGithubDocSpecification.class.st b/src/NewTools-DocumentationReader/StGithubDocSpecification.class.st
new file mode 100644
index 0000000..f9e7029
--- /dev/null
+++ b/src/NewTools-DocumentationReader/StGithubDocSpecification.class.st
@@ -0,0 +1,92 @@
+"
+I represent a specification of where to find documentation in a github repository.
+
+
+"
+Class {
+	#name : #StGithubDocSpecification,
+	#superclass : #Object,
+	#instVars : [
+		'user',
+		'project',
+		'branch',
+		'folder'
+	],
+	#category : #'NewTools-DocumentationReader'
+}
+
+{ #category : #accessing }
+StGithubDocSpecification >> branch [
+
+	^ 'master'
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> branch: anObject [
+
+	branch := anObject
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> folder [
+
+	^ folder
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> folder: anObject [
+
+	folder := anObject
+]
+
+{ #category : #initialize }
+StGithubDocSpecification >> initialize [
+	super initialize.
+	branch := 'master'.
+	folder := 'doc'.
+	project := 'pharo'.
+	user := 'pharo-project'
+]
+
+{ #category : #printing }
+StGithubDocSpecification >> printOn: aStream [
+	aStream
+		<< 'GithubSpec['
+		<< user << '/' << project << '/' << branch << '/' << folder
+		<< ']'.
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> project [
+
+	^ project
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> project: anObject [
+
+	project := anObject
+]
+
+{ #category : #url }
+StGithubDocSpecification >> urlForDocFolder [
+	^ 'https://api.github.com/repos/{1}/{2}/git/trees/{3}' format: { user. project. branch }
+]
+
+{ #category : #url }
+StGithubDocSpecification >> urlForFile: aPath [
+	^ 'https://raw.githubusercontent.com/{1}/{2}/{3}/{4}/{5}' 
+			format: { user. project. branch. folder. aPath }
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> user [
+
+	^ user
+]
+
+{ #category : #accessing }
+StGithubDocSpecification >> user: anObject [
+
+	user := anObject
+]
diff --git a/src/NewTools-DocumentationReader/StHelpBrowserPresenter.class.st b/src/NewTools-DocumentationReader/StHelpBrowserPresenter.class.st
index f901cf9..741f79f 100644
--- a/src/NewTools-DocumentationReader/StHelpBrowserPresenter.class.st
+++ b/src/NewTools-DocumentationReader/StHelpBrowserPresenter.class.st
@@ -36,8 +36,6 @@ Class {
 		'helpTopicVisitor'
 	],
 	#classInstVars : [
-		'filesystem',
-		'helpCache',
 		'lastopenHelp'
 	],
 	#category : #'NewTools-DocumentationReader'
@@ -60,84 +58,18 @@ StHelpBrowserPresenter class >> defaultSpec [
 			yourself
 ]
 
-{ #category : #accessing }
-StHelpBrowserPresenter class >> emptyHelpCache [
-
-	helpCache := nil
-]
-
-{ #category : #accessing }
-StHelpBrowserPresenter class >> filesystem [
-	^ filesystem
-]
-
-{ #category : #accessing }
-StHelpBrowserPresenter class >> filesystem: aFileSystem [
-	filesystem := aFileSystem
-]
-
-{ #category : #accessing }
-StHelpBrowserPresenter class >> helpCache [
-
-	^ helpCache ifNil: [ helpCache := FileSystem memory workingDirectory ]
-]
-
-{ #category : #accessing }
-StHelpBrowserPresenter class >> helpCache: aCache [
-	helpCache := aCache
-]
-
-{ #category : #cache }
-StHelpBrowserPresenter class >> internalizeHelpFrom: aFolderOrFile [
-
-	| fileRef |
-	fileRef := aFolderOrFile asFileReference.
-	self filesystem: FileSystem memory.
-	[ self internalizeHelpFrom: fileRef at: filesystem workingDirectory basename.
-	self helpCache: self filesystem workingDirectory / fileRef basename ] 
-		on: FileDoesNotExistException 
-		do: [  'We do not do anything special because the only thing we could do is to reinitialize
-and we may lose the contents if there was one.' ]
-]
-
-{ #category : #cache }
-StHelpBrowserPresenter class >> internalizeHelpFrom: aFolderOrFile  at: aFolderName [
-
-	aFolderOrFile isDirectory 
-		ifTrue:  [ | directoryPath |
-					directoryPath := aFolderName , '/' , aFolderOrFile basename.
-					self filesystem createDirectory: directoryPath.
-					aFolderOrFile children do: [ :folderOrFile | self internalizeHelpFrom: folderOrFile  at: directoryPath ] ]
-		ifFalse: [ | file filePath |
-					(self new isMicFile: aFolderOrFile) 
-						ifTrue: [ 
-							filePath := aFolderName , '/' , aFolderOrFile basename.
-							file := self filesystem workingDirectory / filePath.
-							file writeStreamDo: [ :stream |stream nextPutAll: aFolderOrFile contents ] ] ]
-]
-
 { #category : #'instance creation' }
 StHelpBrowserPresenter class >> open [
 	"Open a HelpBrowser on the internalized docs."
 	<example>
 
-	^ self openOnHelpFolder: self helpCache 
-]
-
-{ #category : #'instance creation' }
-StHelpBrowserPresenter class >> openOn: aHelpTopic [
-	"Open the receiver on the given help topic or any other object that can be transformed into
-	 a help topic by sending #asHelpTopic."
-
-	^ (self on:  aHelpTopic)
-		openWithSpec;
-		yourself
+	^ self error: 'We need to define a default starting point' 
 ]
 
 { #category : #'instance creation' }
 StHelpBrowserPresenter class >> openOnCustomHelp: aDescription [
 	[ aDescription bookName.
-	 ^ self openOn: (CustomHelpHelpBuilder new createTopicFrom: aDescription)] 
+	 ^ self openTopic: (CustomHelpHelpBuilder new createTopicFrom: aDescription)] 
 	on: MessageNotUnderstood do: [ | inst |
 		inst:= self basicNew.
 		inst createTopicsFromCache.
@@ -151,33 +83,28 @@ StHelpBrowserPresenter class >> openOnCustomHelp: aDescription [
 ]
 
 { #category : #'instance creation' }
-StHelpBrowserPresenter class >> openOnHelpFolder [
-	"Open an help browser."
-	
-	self openOnHelpFolder: FileSystem workingDirectory / 'pharo-local' / 'doc'
+StHelpBrowserPresenter class >> openOnHelpFolder: aFileReference [
+	"Open an help browser on a given folder."
 
-	
+	self openTopic: (StTopicFromFileFolderBuilder onDirectory: aFileReference )
 ]
 
 { #category : #'instance creation' }
-StHelpBrowserPresenter class >> openOnHelpFolder: aFileReference [
+StHelpBrowserPresenter class >> openPharoRepo [
+	"Open a HelpBrowser on the internalized docs."
+	<example>
 
-	"Open an help browser on a given folder."
+	self openTopic: (StTopicFromGithubBuilder githubTopics)
+]
 
-	"Implementation note: the logic is not really good because I have to copy the logic from SpPresenter class>>#newApplication:model:.
-	Especially how to pass a model before the initialization which is normally done via message #on: "
-
-	| fileReference |
-	lastopenHelp := self basicNew.
-	fileReference := aFileReference exists
-		ifFalse: [  self helpCache ]
-		ifTrue: [ aFileReference ].
-	lastopenHelp createRootTopicFromFolder: fileReference.
-	^ lastopenHelp
-		  setModelBeforeInitialization: lastopenHelp rootTopic;
-		  initialize;
-		  openWithSpec;
-		  yourself
+{ #category : #'instance creation' }
+StHelpBrowserPresenter class >> openTopic: aHelpTopic [
+	"Open the receiver on the given help topic or any other object that can be transformed into
+	 a help topic by sending #asHelpTopic."
+
+	^ (self on:  aHelpTopic)
+		openWithSpec;
+		yourself
 ]
 
 { #category : #'basic search' }
@@ -210,46 +137,6 @@ StHelpBrowserPresenter >> connectPresenters [
 				displayIcon: [ :each | each icon ]
 ]
 
-{ #category : #internals }
-StHelpBrowserPresenter >> createRootTopicFromFolder: aFolder [
-	| topic |
-	topic := (self createTopicsFromFileOrFolder: aFolder) first.
-	topic subtopics do: [ :each | self propagateNodeIn: each ].
-	self rootTopic: topic.
-]
-
-{ #category : #internals }
-StHelpBrowserPresenter >> createTopicsFromCache [
-	self createRootTopicFromFolder: self class helpCache.
-]
-
-{ #category : #internals }
-StHelpBrowserPresenter >> createTopicsFromFile: aFileOrFolder [
-
-	| visitor |
-	visitor := self helpTopicVisitor new.
-	visitor visit: (Microdown new resolvedTreeFromFile: aFileOrFolder).
-	^ visitor helpTopics subtopics
-]
-
-{ #category : #internals }
-StHelpBrowserPresenter >> createTopicsFromFileOrFolder: aFileOrFolder [
-
-	| subTopic sorted topic |
-	(aFileOrFolder isFile and: [ self isMicFile: aFileOrFolder ]) 
-		ifTrue: [ ^ self createTopicsFromFile: aFileOrFolder ].
-
-	topic := self helpTopicClass named:
-		         aFileOrFolder basenameWithoutExtension capitalized.
-	sorted := self sortFileAndFolder: aFileOrFolder.
-	sorted do: [ :fileOrFolder | 
-		(self createTopicsFromFileOrFolder: fileOrFolder) do: [ :each | 
-			topic addSubtopic: each ] ].
-	subTopic := OrderedCollection new.
-	subTopic add: topic.
-	^ subTopic
-]
-
 { #category : #internals }
 StHelpBrowserPresenter >> dummyHelp [
 
@@ -257,19 +144,6 @@ StHelpBrowserPresenter >> dummyHelp [
 	This a dummy help.'
 ]
 
-{ #category : #hooks }
-StHelpBrowserPresenter >> helpTopicClass [
-
-	^ StNodeHelpTopic
-]
-
-{ #category : #accessing }
-StHelpBrowserPresenter >> helpTopicVisitor [
-	
-	helpTopicVisitor ifNil: [ helpTopicVisitor := StTopicBuilderVisitor ].
-	^ helpTopicVisitor
-]
-
 { #category : #accessing }
 StHelpBrowserPresenter >> helpTopicVisitor: aClass [ 
 	helpTopicVisitor := aClass
@@ -304,12 +178,6 @@ StHelpBrowserPresenter >> initializePresenters [
 
 
 
-]
-
-{ #category : #testing }
-StHelpBrowserPresenter >> isMicFile: aFile [
-
-	^ #( 'mic' 'md' ) includes: aFile extension
 ]
 
 { #category : #hooks }
@@ -323,18 +191,6 @@ StHelpBrowserPresenter >> parserClass [
 	^ MicroDownParser
 ]
 
-{ #category : #internals }
-StHelpBrowserPresenter >> propagateNodeIn: aRootTopic [
-
-	aRootTopic node children ifEmpty: [ 
-		aRootTopic subtopics do: [ :each | 
-			self propagateNodeIn: each.
-			each node children do: [ :node |
-				aRootTopic addNode: node ]
-			 ] ]
-	
-]
-
 { #category : #internals }
 StHelpBrowserPresenter >> render [
 
@@ -349,14 +205,9 @@ StHelpBrowserPresenter >> renderNode: aNode [
 	textOutput morph setText: (self morphWriter visit: aNode)
 ]
 
-{ #category : #accessing }
-StHelpBrowserPresenter >> rootTopic [
-	^ rootTopic ifNil: [ self rootTopic: (self helpTopicClass named: 'Help'). rootTopic ]
-]
-
-{ #category : #accessing }
-StHelpBrowserPresenter >> rootTopic: aHelpTopic [ 
-	rootTopic := aHelpTopic asHelpTopic
+{ #category : #initialization }
+StHelpBrowserPresenter >> rootTopic [ 
+	^ rootTopic 
 ]
 
 { #category : #search }
@@ -369,20 +220,8 @@ StHelpBrowserPresenter >> searchAndClick: aTopicName [
 ]
 
 { #category : #initialization }
-StHelpBrowserPresenter >> setModelBeforeInitialization: anHelpTopic [
-	
-	rootTopic := anHelpTopic
-]
-
-{ #category : #internals }
-StHelpBrowserPresenter >> sortFileAndFolder: aFileOrFolder [
-
-	| sorted |
-	sorted := SortedCollection sortBlock: [ :a :b | 
-		          a basename <= b basename ].
-	sorted addAll: (aFileOrFolder children select: [ :e | 
-			 e isDirectory or: [ self isMicFile: e ] ]).
-	^ sorted
+StHelpBrowserPresenter >> setModelBeforeInitialization: topic [
+	rootTopic := topic
 ]
 
 { #category : #initialization }
diff --git a/src/NewTools-DocumentationReader/StIconBookBuilder.class.st b/src/NewTools-DocumentationReader/StIconBookBuilder.class.st
deleted file mode 100644
index e955985..0000000
--- a/src/NewTools-DocumentationReader/StIconBookBuilder.class.st
+++ /dev/null
@@ -1,37 +0,0 @@
-"
-I set pageIcon when the topic has not subtopics.
-I set bookIcon when the topic has subtopics.
-"
-Class {
-	#name : #StIconBookBuilder,
-	#superclass : #Object,
-	#instVars : [
-		'bookIcon',
-		'pageIcon'
-	],
-	#category : #'NewTools-DocumentationReader'
-}
-
-{ #category : #build }
-StIconBookBuilder >> buildBookIcon: aTopic [
-
-	^ aTopic iconName: bookIcon
-]
-
-{ #category : #build }
-StIconBookBuilder >> buildIcon: aTopic [
-
-	self buildBookIcon: aTopic
-]
-
-{ #category : #initialization }
-StIconBookBuilder >> initialize [
-	super initialize.
-	bookIcon := #bookIcon.
-	pageIcon := #pageIcon
-]
-
-{ #category : #build }
-StIconBookBuilder >> setIconOf: aTopic [
-	^ aTopic iconName: pageIcon
-]
diff --git a/src/NewTools-DocumentationReader/StIconClassBuilder.class.st b/src/NewTools-DocumentationReader/StIconClassBuilder.class.st
index 1293883..52757ba 100644
--- a/src/NewTools-DocumentationReader/StIconClassBuilder.class.st
+++ b/src/NewTools-DocumentationReader/StIconClassBuilder.class.st
@@ -9,5 +9,6 @@ Class {
 
 { #category : #build }
 StIconClassBuilder >> buildIcon: aTopic [
+	aTopic title = 'Subclasses' ifTrue: [ ^ aTopic icon: (Smalltalk ui icons iconNamed: #hierarchy) ].
 	^ aTopic icon: (self class environment at: aTopic title asSymbol) systemIcon
 ]
diff --git a/src/NewTools-DocumentationReader/StNodeHelpTopic.class.st b/src/NewTools-DocumentationReader/StNodeHelpTopic.class.st
index 60ff021..821111c 100644
--- a/src/NewTools-DocumentationReader/StNodeHelpTopic.class.st
+++ b/src/NewTools-DocumentationReader/StNodeHelpTopic.class.st
@@ -1,39 +1,29 @@
 "
-I'm a help topic and as such I hold a Microdown root document. 
-This is in this document that further microdown elements will be added. 
+I'm a help topic and my content is a Microdown root document. 
 
 Note that I can have subtopics in addition to the microdown element. 
 A subtopic is just similar to myself.
+
 "
 Class {
 	#name : #StNodeHelpTopic,
 	#superclass : #HelpTopic,
-	#instVars : [
-		'node',
-		'iconBuilder'
+	#classInstVars : [
+		'locationCache'
 	],
 	#category : #'NewTools-DocumentationReader'
 }
 
-{ #category : #'instance creation' }
-StNodeHelpTopic class >> named: aName with: anIconBuilder [
-	| topic |
-	topic := self named: aName.
-	topic iconBuilder: anIconBuilder.
-	topic iconBuilder buildIcon: topic.
-	^ topic
-]
-
 { #category : #adding }
 StNodeHelpTopic >> addNode: aNode [
 
-	node addChild: aNode
+	self node addChild: aNode
 ]
 
 { #category : #adding }
 StNodeHelpTopic >> addSubtopic: aSubTopic [
 
-	iconBuilder buildIcon: self.
+	self iconName: #bookIcon.
 	super addSubtopic: aSubTopic
 ]
 
@@ -45,24 +35,12 @@ StNodeHelpTopic >> addSubtopic: aHelpTopic with: aLevel [
 		ifFalse: [ self addSubtopic: aHelpTopic ]
 ]
 
-{ #category : #accessing }
-StNodeHelpTopic >> iconBuilder [ 
-	^ iconBuilder
-]
-
-{ #category : #accessing }
-StNodeHelpTopic >> iconBuilder: aIconBuilder [
-
-	iconBuilder := aIconBuilder
-]
-
 { #category : #initialize }
 StNodeHelpTopic >> initialize [
 
 	super initialize.
-	node := MicRootBlock new.
-	iconBuilder := StIconBookBuilder new.
-	iconBuilder setIconOf: self
+	self iconName: #pageIcon.
+	contents  := MicRootBlock new.
 ]
 
 { #category : #inspecting }
@@ -84,12 +62,12 @@ StNodeHelpTopic >> inspectionMCTopicTree [
 StNodeHelpTopic >> node [
 	"Returns the microdown elements holding the document of the help"
 	
-	^ node
+	^ self contents 
 ]
 
 { #category : #accessing }
 StNodeHelpTopic >> subtopics: aCollection [
 
-	iconBuilder buildIcon: self.
+	aCollection ifNotEmpty: [self iconName: #bookIcon].
 	super subtopics: aCollection
 ]
diff --git a/src/NewTools-DocumentationReader/StTopicBuilderVisitor.class.st b/src/NewTools-DocumentationReader/StTopicBuilderVisitor.class.st
index a549bbf..3c2cec2 100644
--- a/src/NewTools-DocumentationReader/StTopicBuilderVisitor.class.st
+++ b/src/NewTools-DocumentationReader/StTopicBuilderVisitor.class.st
@@ -6,12 +6,29 @@ Class {
 	#name : #StTopicBuilderVisitor,
 	#superclass : #MicrodownVisitor,
 	#instVars : [
-		'helpTopics',
-		'actualTopic'
+		'actualTopic',
+		'helpTopicVisitor',
+		'helpTopic'
 	],
 	#category : #'NewTools-DocumentationReader'
 }
 
+{ #category : #internals }
+StTopicBuilderVisitor >> extractNode: aNode into: aTopic [
+	aTopic owner ifNotNil: [ 
+		aTopic owner addNode: aNode.
+		self extractNode: aNode into: aTopic owner ]
+	
+	
+	
+	
+]
+
+{ #category : #accessing }
+StTopicBuilderVisitor >> helpTopic [
+	^ helpTopic
+]
+
 { #category : #'visiting-document' }
 StTopicBuilderVisitor >> helpTopicClass [
 
@@ -19,27 +36,18 @@ StTopicBuilderVisitor >> helpTopicClass [
 ]
 
 { #category : #accessing }
-StTopicBuilderVisitor >> helpTopics [
-	^ helpTopics
+StTopicBuilderVisitor >> helpTopicVisitor [
+	
+	helpTopicVisitor ifNil: [ helpTopicVisitor := StTopicBuilderVisitor ].
+	^ helpTopicVisitor
 ]
 
 { #category : #initialization }
 StTopicBuilderVisitor >> initialize [ 
 	
 	super initialize.
-	helpTopics := StNodeHelpTopic new.
-	actualTopic := helpTopics
-]
-
-{ #category : #internals }
-StTopicBuilderVisitor >> propagateNode: aNode from: aTopic [
-	aTopic owner ifNotNil: [ 
-		aTopic owner addNode: aNode.
-		self propagateNode: aNode from: aTopic owner ]
-	
-	
-	
-	
+	helpTopic := StNodeHelpTopic new.
+	actualTopic := helpTopic
 ]
 
 { #category : #'visiting-document' }
@@ -69,8 +77,8 @@ StTopicBuilderVisitor >> visitAll: aCollection [
 	aCollection do: [ :each |
 		each accept: self.
 		actualTopic addNode: each.
-		self propagateNode: each from: actualTopic ].
-	^ helpTopics
+		self extractNode: each into: actualTopic ].
+	^ helpTopic
 	
 	
 ]
@@ -82,5 +90,5 @@ StTopicBuilderVisitor >> visitHeader: aHeader [
 		| topic |
 		topic := self helpTopicClass named: aHeader header capitalized.
 		actualTopic := topic.
-		helpTopics addSubtopic: topic with: aHeader level ]
+		helpTopic addSubtopic: topic with: aHeader level ]
 ]
diff --git a/src/NewTools-DocumentationReader/StTopicFromFileFolderBuilder.class.st b/src/NewTools-DocumentationReader/StTopicFromFileFolderBuilder.class.st
new file mode 100644
index 0000000..9787489
--- /dev/null
+++ b/src/NewTools-DocumentationReader/StTopicFromFileFolderBuilder.class.st
@@ -0,0 +1,98 @@
+"
+I am able to build a topic tree from a root folder.
+
+The topic tree will have one root - based on the root folder.
+It will have subtropics based on subfoldes and the heading hiearchy of the markdown files in the folders.
+"
+Class {
+	#name : #StTopicFromFileFolderBuilder,
+	#superclass : #StTopicMicrodownBuilder,
+	#instVars : [
+		'rootTopic',
+		'helpTopicVisitor'
+	],
+	#classInstVars : [
+		'cache'
+	],
+	#category : #'NewTools-DocumentationReader'
+}
+
+{ #category : #accessing }
+StTopicFromFileFolderBuilder class >> cache [
+	cache ifNil: [ cache := Dictionary new ].
+	^ cache
+]
+
+{ #category : #'as yet unclassified' }
+StTopicFromFileFolderBuilder class >> onDirectory: fileReference [
+	"return a topic from fileRefence (assumed to be a folder)"
+	^ self cache at: fileReference ifAbsentPut: [ self new createRootTopicFromFolder: fileReference]
+]
+
+{ #category : #accessing }
+StTopicFromFileFolderBuilder class >> resetCache [
+	cache := nil
+]
+
+{ #category : #'public api' }
+StTopicFromFileFolderBuilder >> createRootTopicFromFolder: aFolder [
+	"I am the entry method"
+	| topic |
+	topic := (self createTopicsFromFileOrFolder: aFolder) first.
+	topic subtopics do: [ :each | self liftNodesIn: each ].
+	self rootTopic: topic.
+	^ topic 
+]
+
+{ #category : #internals }
+StTopicFromFileFolderBuilder >> createTopicsFromFile: aFileOrFolder [
+	^ self createTopicsFromDocument:  (Microdown new resolvedTreeFromFile: aFileOrFolder).
+]
+
+{ #category : #internals }
+StTopicFromFileFolderBuilder >> createTopicsFromFileOrFolder: aFileOrFolder [
+
+	| sorted topic |
+	(aFileOrFolder isFile and: [ self isMicFile: aFileOrFolder ]) 
+		ifTrue: [ ^ self createTopicsFromFile: aFileOrFolder ].
+
+	topic := self helpTopicClass named: aFileOrFolder basenameWithoutExtension capitalized.
+	sorted := self sortFileAndFolder: aFileOrFolder.
+	sorted do: [ :fileOrFolder | 
+		(self createTopicsFromFileOrFolder: fileOrFolder) do: [ :each | 
+			topic addSubtopic: each ] ].
+	^ OrderedCollection with: topic.
+]
+
+{ #category : #hooks }
+StTopicFromFileFolderBuilder >> helpTopicClass [
+
+	^ StNodeHelpTopic
+]
+
+{ #category : #testing }
+StTopicFromFileFolderBuilder >> isMicFile: aFile [
+
+	^ #( 'mic' 'md' ) includes: aFile extension
+]
+
+{ #category : #accessing }
+StTopicFromFileFolderBuilder >> rootTopic [
+	^ rootTopic ifNil: [ self rootTopic: (self helpTopicClass named: 'Help'). rootTopic ]
+]
+
+{ #category : #accessing }
+StTopicFromFileFolderBuilder >> rootTopic: aHelpTopic [ 
+	rootTopic := aHelpTopic asHelpTopic
+]
+
+{ #category : #internals }
+StTopicFromFileFolderBuilder >> sortFileAndFolder: aFileOrFolder [
+
+	| sorted |
+	sorted := SortedCollection sortBlock: [ :a :b | 
+		          a basename <= b basename ].
+	sorted addAll: (aFileOrFolder children select: [ :e | 
+			 e isDirectory or: [ self isMicFile: e ] ]).
+	^ sorted
+]
diff --git a/src/NewTools-DocumentationReader/StTopicFromGithubBuilder.class.st b/src/NewTools-DocumentationReader/StTopicFromGithubBuilder.class.st
new file mode 100644
index 0000000..72442a7
--- /dev/null
+++ b/src/NewTools-DocumentationReader/StTopicFromGithubBuilder.class.st
@@ -0,0 +1,157 @@
+"
+I am read the microdown files in the pharo-project/pharo/doc folder. 
+From these files I create a topic hiearachy.
+
+My implementation is suffering from the structure of the github api, which do not return a folder tree, but a list of folders. 
+In the key method `buildSubtopics: pathCollection level: level` the pathCollection and level is a approximation of a folder. Level 3 and path collection:
+
+```
+	aaa/bbb/ccc/ddd/eee
+	aaa/bbb/ccc/fff
+	aaa/bbb/ccc/hhh/ggg
+```
+
+would represent the folder: 'aaa/bbb/ccc' (first 3) with subfolders/files: {ddd/eee. fff. hhh/ggg}
+"
+Class {
+	#name : #StTopicFromGithubBuilder,
+	#superclass : #StTopicMicrodownBuilder,
+	#instVars : [
+		'githubClientConnection',
+		'docSpec',
+		'readingJob',
+		'jobCounter'
+	],
+	#classInstVars : [
+		'cache'
+	],
+	#category : #'NewTools-DocumentationReader'
+}
+
+{ #category : #accessing }
+StTopicFromGithubBuilder class >> githubTopics [
+	"return the root topic for the pharo documentation"
+	^ self githubTopicsFrom: (StGithubDocSpecification new branch: 'Pharo10')
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilder class >> githubTopicsFrom: aDocSpec [
+	"aDocSpec is an instance of StGithubDocSpecifcation"
+	^cache 
+		at: aDocSpec printString 
+		ifAbsentPut:  [ (self new docSpec: aDocSpec)  buildTopics].
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilder class >> openBrowser [
+	<script>
+	StHelpBrowserPresenter openTopic: self githubTopics 
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilder class >> reset [
+	<script>
+	cache := Dictionary new.
+]
+
+{ #category : #private }
+StTopicFromGithubBuilder >> buildSubtopics: pathCollection level: level [
+	"I assume pachCollection shares path below level"
+	| subDirectories subTopics |
+	subDirectories := pathCollection select: [ :p | p size >= level ].
+	subDirectories := subDirectories groupedBy: [ :p | p at: (level)].
+	subTopics := subDirectories values collect: [ :grp | self buildTopic: grp level: level ].
+	^ subTopics 
+]
+
+{ #category : #private }
+StTopicFromGithubBuilder >> buildTopic: pathCollection level: level [
+	"I assume collectionOfPaths to share a root"
+	| docTopics subTopics topic |
+	
+	docTopics := self getFiles: (pathCollection select: [ :p | p size = level ]).
+	subTopics := docTopics , (self buildSubtopics: pathCollection level: level + 1).
+	subTopics size = 1 
+		ifTrue: [ ^ subTopics first ].
+	topic := StNodeHelpTopic named: subTopics first title.
+	(docTopics, subTopics) do: [ :t | topic addSubtopic: t"; addNode: t node" ].
+	self liftNodesIn: topic.
+	^topic
+]
+
+{ #category : #'public-api' }
+StTopicFromGithubBuilder >> buildTopics [
+	"I return a topic (with subtopics) read from the pharo-project repository on github"
+	| root subTopics|
+	[ :job |
+		readingJob := job.
+		jobCounter := 1.
+		githubClientConnection := ZnClient new.
+		root := StNodeHelpTopic named: 'Pharo Help'.
+		subTopics := self buildSubtopics: self pharoDocPaths level: 1.
+		subTopics do: [ :t | root addSubtopic: t ].
+		githubClientConnection close.
+	] asJob run.
+	^ root
+	
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilder >> docSpec [
+
+	^ docSpec
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilder >> docSpec: anObject [
+
+	docSpec := anObject
+]
+
+{ #category : #private }
+StTopicFromGithubBuilder >> documentForPath: aPath [
+	"https://raw.githubusercontent.com/pharo-project/pharo/Pharo10/doc/Epicea/1-Epicea.md"
+	"aPath is the stuff after the doc/"
+	|url response doc |
+	readingJob title: aPath segments last.
+	url := docSpec urlForFile: aPath pathString.
+	response := githubClientConnection  get: url.
+	doc := MicroDownParser parse: response. 
+	readingJob progress: (jobCounter / 10).
+	jobCounter := (jobCounter % 10) + 1.
+	^ self createTopicsFromDocument: doc
+]
+
+{ #category : #private }
+StTopicFromGithubBuilder >> getFiles: pathCollection [
+	"Return an OrderedCollection of documents in the pathCollection"
+	^ (pathCollection collect: [ :path | self documentForPath: path ]) flattened.
+]
+
+{ #category : #accessing }
+StTopicFromGithubBuilder >> initialize [ 
+	super initialize.
+	docSpec := StGithubDocSpecification new branch: 'Pharo10'.
+]
+
+{ #category : #private }
+StTopicFromGithubBuilder >> locationFrom: pathCollection level: level [
+	^ (pathCollection first segments copyFrom: 1 to: level) joinUsing: '/'
+]
+
+{ #category : #private }
+StTopicFromGithubBuilder >> pharoDocPaths [
+	"I return an ordered collection of paths for documents in the doc tree"
+	|folderUrl docURL json|
+	"get the files in the pharo-project repository"
+	folderUrl := docSpec urlForDocFolder.
+	json := STONJSON fromString: (githubClientConnection get: folderUrl).
+	"get the url for reading the doc folder only"
+	docURL := ((json at: 'tree') detect: [ :e| (e at: 'path') = 'doc']) at: 'url'.
+	"read the subfolder structure too"
+	docURL := docURL , '?recursive=1'.
+	json := STONJSON fromString: (githubClientConnection  get: docURL).
+	^ ((json at: 'tree') 
+		select: [ :e| ((e at: 'type') = 'blob')]) 
+		collect: [:e| Path from: (e at: 'path')]
+]
diff --git a/src/NewTools-DocumentationReader/StTopicMicrodownBuilder.class.st b/src/NewTools-DocumentationReader/StTopicMicrodownBuilder.class.st
new file mode 100644
index 0000000..67dd720
--- /dev/null
+++ b/src/NewTools-DocumentationReader/StTopicMicrodownBuilder.class.st
@@ -0,0 +1,35 @@
+"
+I implement subtopic generation from headers inside a microdown document.
+This is shared behaviour for different kind of builders.
+"
+Class {
+	#name : #StTopicMicrodownBuilder,
+	#superclass : #Object,
+	#category : #'NewTools-DocumentationReader'
+}
+
+{ #category : #'as yet unclassified' }
+StTopicMicrodownBuilder >> createTopicsFromDocument: doc [
+
+	| visitor |
+	visitor := self helpTopicVisitor new.
+	visitor visit: doc.
+	^ visitor helpTopic subtopics
+]
+
+{ #category : #accessing }
+StTopicMicrodownBuilder >> helpTopicVisitor [
+	^ StTopicBuilderVisitor 
+]
+
+{ #category : #internals }
+StTopicMicrodownBuilder >> liftNodesIn: aRootTopic [
+	"If root node (microdown document) is empty, lift nodes from subtopics into node of root"
+	aRootTopic node children ifEmpty: [ 
+		aRootTopic subtopics do: [ :each | 
+			self liftNodesIn: each.
+			each node children do: [ :node |
+				aRootTopic addNode: node ]
+			 ] ]
+	
+]