From b88862e7c141265d9c7c2472978b7a4d90caff43 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Wed, 27 Apr 2022 11:02:39 -0500
Subject: [PATCH] Repackaging general utilities for working with Markup files.

---
 src/Markdeep/MarkupFile.class.st | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/Markdeep/MarkupFile.class.st

diff --git a/src/Markdeep/MarkupFile.class.st b/src/Markdeep/MarkupFile.class.st
new file mode 100644
index 0000000..4c5c1bc
--- /dev/null
+++ b/src/Markdeep/MarkupFile.class.st
@@ -0,0 +1,23 @@
+"
+I model common operations made with several markup files.
+"
+Class {
+	#name : #MarkupFile,
+	#superclass : #Object,
+	#instVars : [
+		'file'
+	],
+	#category : #Markdeep
+}
+
+{ #category : #persistence }
+MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: text [
+	| file |
+	file := aFileReferenceOrFileName asFileReference.
+	file ensureDelete.
+	file exists ifFalse: [ file ensureCreateFile ].
+	file writeStreamDo: [ :stream |
+		stream nextPutAll: text withUnixLineEndings].
+	self inform: 'Exported as: ', String cr, file fullName.
+	^ file 
+]