From aec4b58e23604620bc96c6e67e8064ba84a4e772 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 26 Mar 2024 12:53:55 -0500
Subject: [PATCH] Improving HedgeDoc page importation.

---
 src/MiniDocs/HedgeDoc.class.st                        | 5 +++++
 src/MiniDocs/LeHomeDatabaseHeaderElement.extension.st | 3 +--
 src/MiniDocs/LeMiniDocsImport.class.st                | 6 +++---
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/src/MiniDocs/HedgeDoc.class.st b/src/MiniDocs/HedgeDoc.class.st
index c4e780a..d505e91 100644
--- a/src/MiniDocs/HedgeDoc.class.st
+++ b/src/MiniDocs/HedgeDoc.class.st
@@ -16,6 +16,11 @@ Class {
 	#category : #'MiniDocs-Core'
 }
 
+{ #category : #accessing }
+HedgeDoc class >> fromLink: aUrl [
+	^ self new fromLink: aUrl
+]
+
 { #category : #'as yet unclassified' }
 HedgeDoc class >> newDefault [
 	^ self new
diff --git a/src/MiniDocs/LeHomeDatabaseHeaderElement.extension.st b/src/MiniDocs/LeHomeDatabaseHeaderElement.extension.st
index c5f3b35..70c5af4 100644
--- a/src/MiniDocs/LeHomeDatabaseHeaderElement.extension.st
+++ b/src/MiniDocs/LeHomeDatabaseHeaderElement.extension.st
@@ -37,14 +37,13 @@ LeHomeDatabaseHeaderElement >> initializeButtons [
 
 { #category : #'*MiniDocs' }
 LeHomeDatabaseHeaderElement >> initializeMiniDocsImportButton [
-	"importMinidocsButtonElement := self newImportMiniDocsButton."
 	self userData at: 'importMinidocsButtonElement' put: self newImportMiniDocsButton.
 ]
 
 { #category : #'*MiniDocs' }
 LeHomeDatabaseHeaderElement >> newImportMiniDocsButton [
 	^ LeMiniDocsImport new
-		tooltip: 'Import MiniDocs from url';
+		tooltip: 'Import document from link';
 		contentExtent: 200 @ 30
 ]
 
diff --git a/src/MiniDocs/LeMiniDocsImport.class.st b/src/MiniDocs/LeMiniDocsImport.class.st
index c699c14..fd326ee 100644
--- a/src/MiniDocs/LeMiniDocsImport.class.st
+++ b/src/MiniDocs/LeMiniDocsImport.class.st
@@ -39,7 +39,7 @@ LeMiniDocsImport >> createURLeditable [
 		yourself.
 	editable := BrEditableLabel new
 		aptitude: BrGlamorousEditableLabelAptitude new glamorousRegularFontAndSize;
-		text: 'Hedgedoc url';
+		text: 'Document link';
 		switchToEditor.
 	editable when: BrEditorAcceptWish do: [ :aWish |
 		self importHedgedoc: aWish text asString.
@@ -56,9 +56,9 @@ LeMiniDocsImport >> database: aLeDatabase [
 { #category : #accessing }
 LeMiniDocsImport >> importHedgedoc: aURL [
 	| doc text page |
-	doc := HedgeDoc new url: aURL asString.
+	doc := HedgeDoc fromLink: aURL asString.
 	text := doc retrieveContents; contents.
-	page := LePage named: (doc metadata at: 'title').
+	page := LePage named: (doc title).
 	page addSnippet: (LeTextSnippet string: text).
 	^ database addPage: page
 ]