Starting HTML export and tagging.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-07-19 16:51:20 -05:00
parent 68e7221ed1
commit 1443293763
2 changed files with 13 additions and 0 deletions

View File

@ -1,5 +1,11 @@
Extension { #name : #LePage } Extension { #name : #LePage }
{ #category : #'*MiniDocs' }
LePage >> asHtmlFile [
self asMarkdownFile.
"pandoc" self htmlFileName
]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LePage >> asMarkdeep [ LePage >> asMarkdeep [
| bodyStream markdeep | | bodyStream markdeep |

View File

@ -0,0 +1,7 @@
Extension { #name : #LeTextSnippet }
{ #category : #'*MiniDocs' }
LeTextSnippet >> tagged: aString [
self optionAt: 'tags' ifPresent: [ (self optionAt: 'tags') add: aString ] ifAbsentPut: [ Set new ].
^ self optionAt: 'tags'
]