Starting HTML export support.
This commit is contained in:
parent
d2fb9e00da
commit
b48ad035da
@ -61,6 +61,18 @@ LePage >> asMarkdownFile [
|
||||
^ MarkupFile exportAsFileOn: folder / self markdownFileName containing: self asMarkdown contents
|
||||
]
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
LePage >> exportedFileName [
|
||||
| sanitized |
|
||||
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
|
||||
^ sanitized , '--' , (self uidString copyFrom: 1 to: 5)
|
||||
]
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
LePage >> htmlFileName [
|
||||
self exportedFileName, '.html'
|
||||
]
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
LePage >> markdeepFileName [
|
||||
|
||||
@ -69,9 +81,7 @@ LePage >> markdeepFileName [
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
LePage >> markdownFileName [
|
||||
| sanitized |
|
||||
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
|
||||
^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md'.
|
||||
^ self exportedFileName, '.md'
|
||||
]
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
|
Loading…
Reference in New Issue
Block a user