Minor renaming and tagging while splitting the document.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-11-17 12:19:39 -05:00
parent e73cbbb72a
commit 92760a54a9
2 changed files with 6 additions and 5 deletions

View File

@ -3,7 +3,7 @@ Extension { #name : #LePage }
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LePage >> asHtmlFile [ LePage >> asHtmlFile [
self asMarkdownFileWIthMetadataWrappers. self asMarkdownFileWithMetadataWrappers.
self defaultPandocTemplate exists self defaultPandocTemplate exists
ifFalse: [ MarkupFile installTemplate: 'https://mutabit.com/repos.fossil/mutabit/doc/trunk/plantillas/Pandoc/clean-menu-mod.html' into: self defaultPandocTemplate parent ]. ifFalse: [ MarkupFile installTemplate: 'https://mutabit.com/repos.fossil/mutabit/doc/trunk/plantillas/Pandoc/clean-menu-mod.html' into: self defaultPandocTemplate parent ].
@ -62,7 +62,7 @@ LePage >> asMarkdown [
] ]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LePage >> asMarkdownFileWIthMetadataWrappers [ LePage >> asMarkdownFileWithMetadataWrappers [
| folder | | folder |
folder := self storage. folder := self storage.
^ MarkupFile exportAsFileOn: folder / self markdownFileName containing: self asMarkdownWithMetadataWrappers contents ^ MarkupFile exportAsFileOn: folder / self markdownFileName containing: self asMarkdownWithMetadataWrappers contents
@ -317,7 +317,8 @@ LePage >> splitAdmonitionSnippets [
nodeContent startsWithMarkdownAdmonition nodeContent startsWithMarkdownAdmonition
ifTrue: [ | snippetCommand | ifTrue: [ | snippetCommand |
snippetCommand := node splitSnippetCommandAtPosition: nodeContent admonitionEndingPosition. snippetCommand := node splitSnippetCommandAtPosition: nodeContent admonitionEndingPosition.
snippetCommand execute snippetCommand execute.
node tagWith: (nodeContent lines first trimBoth withoutPrefix: ':::')
] ]
] ]
] ]

View File

@ -62,7 +62,7 @@ LeTextSnippet >> parentId [
] ]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeTextSnippet >> taggedWith: aString [ LeTextSnippet >> tagWith: aString [
self tags add: aString. self tags add: aString.
] ]