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

Improving HedgeDoc(s) convert/import as LePage(s).

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-03-26 19:50:40 -05:00
parent 72f3a633ae
commit 60939fe2b8
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/MiniDocs/HedgeDoc.class.st
View File

@ -31,7 +31,7 @@ HedgeDoc class >> newDefault [
HedgeDoc >> asLePage [ HedgeDoc >> asLePage [
| newPage snippet | | newPage snippet |
snippet := LeTextSnippet new snippet := LeTextSnippet new
string: self body. string: self bodyWithoutTitleHeader.
newPage := LePage new newPage := LePage new
initializeTitle: self title; initializeTitle: self title;
addSnippet: snippet; addSnippet: snippet;
@ -57,6 +57,15 @@ HedgeDoc >> asMarkdownTiddler [
created: Tiddler nowLocal. created: Tiddler nowLocal.
] ]
{ #category : #accessing }
HedgeDoc >> bodyWithoutTitleHeader [
| headerIndex |
headerIndex := self body lines
detectIndex: [ :line | line includesSubstring: self headerAsTitle ]
ifNone: [ ^ self body].
^ (self body lines copyWithoutIndex: headerIndex) asStringWithCr
]
{ #category : #accessing } { #category : #accessing }
HedgeDoc >> contents [ HedgeDoc >> contents [
^ super contents ^ super contents