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

Minor sync, before adding preliminar Pandoc

Browse Source 
exportation support.
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-02-19 21:56:43 +00:00
parent ad07fbe0b9
commit 491b7d4de9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -352,9 +352,8 @@ GrafoscopioNode >> embedAll [
GrafoscopioNode >> embedNodes [ GrafoscopioNode >> embedNodes [
"I find any ocurrence of '%embed a node header' in the body of a node and replace it "I find any ocurrence of '%embed a node header' in the body of a node and replace it
by the children which have such header. by the children which have such header.
Using embedded node is useful to change the order in which children appear into parents body, Using embedded nodes is useful to change the order in which children appear into parents body,
while exporting" while exporting"
| temporalBody | | temporalBody |
temporalBody := self body. temporalBody := self body.
self embeddedNodes ifNotNil: [ self embeddedNodes do: [ :each | self embeddedNodes ifNotNil: [ self embeddedNodes do: [ :each |
@ -611,9 +610,9 @@ GrafoscopioNode >> markdownContent [
(self hasAncestorHeaderWith: '%invisible') not (self hasAncestorHeaderWith: '%invisible') not
ifTrue: [ ifTrue: [
self headerAsMarkdownInto: markdownStream. self headerAsMarkdownInto: markdownStream.
self bodyAsMarkdownInto: markdownStream]. self bodyAsMarkdownInto: markdownStream ].
(self headerStartsWith: '%idea') (self headerStartsWith: '%idea')
ifTrue: [self bodyAsMarkdownInto: markdownStream]. ifTrue: [ self bodyAsMarkdownInto: markdownStream ].
(self headerStartsWith: '%footnote') (self headerStartsWith: '%footnote')
ifTrue: [ self footnoteAsMarkdownInto: markdownStream ]. ifTrue: [ self footnoteAsMarkdownInto: markdownStream ].
((self tags = 'código') and: [(self hasAncestorHeaderWith: '%invisible') not & (self headerStartsWith: '%embed') not ]) ((self tags = 'código') and: [(self hasAncestorHeaderWith: '%invisible') not & (self headerStartsWith: '%embed') not ])