diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index 3d0ff92..5fd7170 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -1,5 +1,11 @@
 Extension { #name : #LePage }
 
+{ #category : #'*MiniDocs' }
+LePage >> asHtmlFile [
+	self asMarkdownFile.
+	"pandoc" self htmlFileName
+]
+
 { #category : #'*MiniDocs' }
 LePage >> asMarkdeep [
 	| bodyStream markdeep |
diff --git a/src/MiniDocs/LeTextSnippet.extension.st b/src/MiniDocs/LeTextSnippet.extension.st
new file mode 100644
index 0000000..eaf81e0
--- /dev/null
+++ b/src/MiniDocs/LeTextSnippet.extension.st
@@ -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'
+]