Refactoring, so functionality can be called without the GUI.

src/MiniDocs/LeDatabase.extension.st

@@ -184,6 +184,16 @@ LeDatabase >> gtViewErrorDetailsOn: aView withKey: erroKey [
 			].
 ]
 
+{ #category : #'*MiniDocs' }
+LeDatabase >> importDocumentFrom: aURL [ 
+	| doc |
+	"Using file extension in URL as a cheap (non-robuts) way of detecting the kind of document.
+	Better file type detection should be implemented in the future."
+	(aURL endsWith: '.md.html') ifTrue: [ ^ self addPageFromMarkdeepUrl: aURL ].
+	doc := HedgeDoc fromLink: aURL asString.
+	^ self addPage: doc asLePage
+]
+
 { #category : #'*MiniDocs' }
 LeDatabase >> importErrorForLocal: page withRemote: externalDocLocation [
 

src/MiniDocs/LeMiniDocsImport.class.st

@@ -42,22 +42,25 @@ LeMiniDocsImport >> createURLeditable [
 		text: 'Document link';
 		switchToEditor.
 	editable when: BrEditorAcceptWish do: [ :aWish |
-		self importHedgedoc: aWish text asString.
+		self importDocumentFrom: aWish text asString.
 		 ].
 	base addChild: editable.
 	^ base
 ]
 
+{ #category : #accessing }
+LeMiniDocsImport >> database [
+	^ database
+]
+
 { #category : #accessing }
 LeMiniDocsImport >> database: aLeDatabase [
 	database := aLeDatabase
 ]
 
 { #category : #accessing }
-LeMiniDocsImport >> importHedgedoc: aURL [
+LeMiniDocsImport >> importDocumentFrom: aURL [
-	| doc |
+	^ self database importDocumentFrom: aURL.
-	doc := HedgeDoc fromLink: aURL asString.
-	^ database addPage: doc asLePage
 ]
 
 { #category : #accessing }