2022-04-05 14:43:37 +00:00
|
|
|
Extension { #name : #LePage }
|
|
|
|
|
2022-04-12 17:08:40 +00:00
|
|
|
{ #category : #'*Markdeep' }
|
|
|
|
LePage >> asMarkdeepFile [
|
|
|
|
| folder |
|
|
|
|
folder := self options at: 'storage' ifAbsent: [ FileLocator temp ].
|
|
|
|
^ self asMarkdeep exportAsFileOn: folder / self markdeepFileName
|
|
|
|
]
|
|
|
|
|
2022-04-05 14:43:37 +00:00
|
|
|
{ #category : #'*Markdeep' }
|
|
|
|
LePage >> markdeepFileName [
|
|
|
|
| sanitized |
|
|
|
|
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
|
|
|
|
^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'.
|
|
|
|
]
|