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
|
^ 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' }
|
{ #category : #'*MiniDocs' }
|
||||||
LePage >> markdeepFileName [
|
LePage >> markdeepFileName [
|
||||||
|
|
||||||
@ -69,9 +81,7 @@ LePage >> markdeepFileName [
|
|||||||
|
|
||||||
{ #category : #'*MiniDocs' }
|
{ #category : #'*MiniDocs' }
|
||||||
LePage >> markdownFileName [
|
LePage >> markdownFileName [
|
||||||
| sanitized |
|
^ self exportedFileName, '.md'
|
||||||
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
|
|
||||||
^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md'.
|
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #'*MiniDocs' }
|
{ #category : #'*MiniDocs' }
|
||||||
|
Loading…
Reference in New Issue
Block a user