From b632b72da1fb0eae9fee4d6bcb25db610a8b7918 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 8 Jun 2020 16:08:39 -0500
Subject: [PATCH] Improved CodiMD support and abstracting operations with
 markup files.

---
 repository/Grafoscopio-Utils/CodiMD.class.st  | 41 ++++++++++++++++++-
 .../Grafoscopio-Utils/MarkupFile.class.st     | 10 +++--
 2 files changed, 46 insertions(+), 5 deletions(-)

diff --git a/repository/Grafoscopio-Utils/CodiMD.class.st b/repository/Grafoscopio-Utils/CodiMD.class.st
index 796820d..e34aaa3 100644
--- a/repository/Grafoscopio-Utils/CodiMD.class.st
+++ b/repository/Grafoscopio-Utils/CodiMD.class.st
@@ -38,6 +38,19 @@ CodiMD >> defaultServer [
 	self server: 'https://docutopia.tupale.co'.
 ]
 
+{ #category : #'as yet unclassified' }
+CodiMD >> htmlUrl [
+	| link |
+	link := self url copy.
+	link segments insert: 's' before: 1.
+	^ link
+]
+
+{ #category : #'as yet unclassified' }
+CodiMD >> importContents [
+	self contents: self retrieveContents
+]
+
 { #category : #accessing }
 CodiMD >> pad [
 	^ pad
@@ -48,6 +61,32 @@ CodiMD >> pad: anObject [
 	pad := anObject
 ]
 
+{ #category : #'as yet unclassified' }
+CodiMD >> retrieveContents [
+	self url ifNil: [ ^ self ].
+	^ (self url addPathSegment: 'download') retrieveContents
+]
+
+{ #category : #'as yet unclassified' }
+CodiMD >> retrieveHtmlContents [
+	| htmlContents |
+	self url ifNil: [ ^ self ].
+	htmlContents := self htmlUrl.
+	^ htmlContents retrieveContents
+]
+
+{ #category : #'as yet unclassified' }
+CodiMD >> saveContentsToFile: aFileLocator [
+	self url ifNil: [ ^ self ].
+	^ (self url addPathSegment: 'download') saveContentsToFile: aFileLocator
+]
+
+{ #category : #'as yet unclassified' }
+CodiMD >> saveHtmlContentsToFile: aFileLocator [
+	self url ifNil: [ ^ self ].
+	^ self htmlUrl saveContentsToFile: aFileLocator
+]
+
 { #category : #accessing }
 CodiMD >> server [
 	^ server
@@ -60,7 +99,7 @@ CodiMD >> server: aUrlString [
 
 { #category : #accessing }
 CodiMD >> url [
-	^ url
+	^ url asUrl
 ]
 
 { #category : #accessing }
diff --git a/repository/Grafoscopio-Utils/MarkupFile.class.st b/repository/Grafoscopio-Utils/MarkupFile.class.st
index d64e786..05f5131 100644
--- a/repository/Grafoscopio-Utils/MarkupFile.class.st
+++ b/repository/Grafoscopio-Utils/MarkupFile.class.st
@@ -8,9 +8,11 @@ Class {
 }
 
 { #category : #persistence }
-MarkupFile class >> exportAsFileOn: aFileReference containing: contents [
-	aFileReference exists ifFalse: [ aFileReference ensureCreateFile ].
-	aFileReference writeStreamDo: [ :stream |
+MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: contents [
+	| file |
+	file := aFileReferenceOrFileName asFileReference.
+	file exists ifFalse: [ file ensureCreateFile ].
+	file writeStreamDo: [ :stream |
 		stream nextPutAll: contents ].
-	self inform: 'Exported as: ', String cr, aFileReference fullName
+	self inform: 'Exported as: ', String cr, file fullName
 ]