From 8fb6373a8382dc6181fe3e9364942e6b6be9cc4d Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 8 Apr 2024 12:46:42 -0500
Subject: [PATCH] Refactoring, so functionality can be called without the GUI.

---
 src/MiniDocs/LeDatabase.extension.st   | 10 ++++++++++
 src/MiniDocs/LeMiniDocsImport.class.st | 13 ++++++++-----
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st
index 60c7c3f..8ebc753 100644
--- a/src/MiniDocs/LeDatabase.extension.st
+++ b/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 [
 
diff --git a/src/MiniDocs/LeMiniDocsImport.class.st b/src/MiniDocs/LeMiniDocsImport.class.st
index b3dbc98..b06e551 100644
--- a/src/MiniDocs/LeMiniDocsImport.class.st
+++ b/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 [
-	| doc |
-	doc := HedgeDoc fromLink: aURL asString.
-	^ database addPage: doc asLePage
+LeMiniDocsImport >> importDocumentFrom: aURL [
+	^ self database importDocumentFrom: aURL.
 ]
 
 { #category : #accessing }