Repackaging functionality.

2022-04-10 20:03:56 -05:00 · 2022-04-10 20:03:56 -05:00 · d814722849
commit d814722849
parent 6a022aca13
1 changed files with 7 additions and 0 deletions
--- a/src/Markdeep/LePage.extension.st
+++ b/src/Markdeep/LePage.extension.st
@ -1,5 +1,12 @@
 Extension { #name : #LePage }

+{ #category : #'*Markdeep' }
+LePage >> asMarkdeepFile [
+	| folder |
+	folder := self options at: 'storage' ifAbsent: [ FileLocator temp ].
+	^ self asMarkdeep exportAsFileOn: folder / self markdeepFileName 
+]
+
 { #category : #'*Markdeep' }
 LePage >> markdeepFileName [
 	| sanitized |