Repackaging general utilities for working with Markup files.

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 
+]