Offray/MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Converting snippet subrees to Lepiter pages.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-29 14:21:29 -05:00
parent 0b66b7513c
commit 2bcf67a132
5 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/MiniDocs/LeSnippet.extension.st
View File

@ -12,9 +12,9 @@ LeSnippet class >> fromMetaMarkdeep: div [
] ]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeSnippet >> moveTo: pageName [ LeSnippet >> moveToPageTitled: pageName [
| db origin destination thisSnippet | | db origin destination thisSnippet |
thisSnippet := self snippetModel. thisSnippet := self.
db := self page database. db := self page database.
destination := db pageNamed: pageName. destination := db pageNamed: pageName.
origin := db pageNamed: thisSnippet page title. origin := db pageNamed: thisSnippet page title.

2
src/MiniDocs/LeTextCoderSnippetElement.extension.st
View File

@ -1,7 +1,7 @@
Extension { #name : #LeTextCoderSnippetElement } Extension { #name : #LeTextCoderSnippetElement }
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeTextCoderSnippetElement >> moveTo: pageName [ LeTextCoderSnippetElement >> moveToPageTitled: pageName [
| db origin destination | | db origin destination |
db := self page database. db := self page database.
destination := db pageNamed: pageName. destination := db pageNamed: pageName.

12
src/MiniDocs/LeTextSnippet.extension.st
View File

@ -1,5 +1,17 @@
Extension { #name : #LeTextSnippet } Extension { #name : #LeTextSnippet }
{ #category : #'*MiniDocs' }
LeTextSnippet >> asLePage [
| page |
page := LePage new
initializeTitle: self contentAsString.
self database addPage: page.
self childrenDo: [:child |
child moveToPageTitled: page title
].
^ page.
]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeTextSnippet >> contentFrom: markdeepDiv [ LeTextSnippet >> contentFrom: markdeepDiv [

2
src/MiniDocs/MiniDocs.class.st
View File

@ -65,7 +65,7 @@ MiniDocs class >> installYamlToJson [
command: 'nim'; command: 'nim';
arguments: {'c'. self yamlToJsonSourceCode fullName}; arguments: {'c'. self yamlToJsonSourceCode fullName};
runAndWaitOnExitDo: [ :process :outString | runAndWaitOnExitDo: [ :process :outString |
(self yamlToJsonSourceCode parent / self yamlToJsonSourceCode basenameWithoutExtension) moveTo: MiniDocs appFolder asFileReference. (self yamlToJsonSourceCode parent / self yamlToJsonSourceCode basenameWithoutExtension) moveToPageTitled: MiniDocs appFolder asFileReference.
^ MiniDocs appFolder ] ^ MiniDocs appFolder ]
] ]

2
src/MiniDocs/NanoID.class.st
View File

@ -43,7 +43,7 @@ NanoID class >> install [
command: 'nim'; command: 'nim';
arguments: {'c'. self scriptSourceCode fullName}; arguments: {'c'. self scriptSourceCode fullName};
runAndWaitOnExitDo: [ :process :outString | runAndWaitOnExitDo: [ :process :outString |
(self scriptSourceCode parent / (self scriptSourceCode) basenameWithoutExtension) moveTo: MiniDocs appFolder asFileReference. (self scriptSourceCode parent / (self scriptSourceCode) basenameWithoutExtension) moveToPageTitled: MiniDocs appFolder asFileReference.
^ MiniDocs appFolder ] ^ MiniDocs appFolder ]
] ]