Working on ancestors which start with '%invisible'.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2014-11-07 12:53:58 +00:00 committed by SantiagoBragagnolo
parent ee8fa648ef
commit 59bf1b9ed2
1 changed files with 4 additions and 2 deletions

View File

@ -105,7 +105,9 @@ GrafoscopioNode >> asMarkdown [
markdownOutput := '' writeStream.
(self preorderTraversal) do: [ :eachNode |
(eachNode level > 0) ifTrue: [(eachNode ancestorsHeaders includes: '%invisible') not ifTrue: [ markdownOutput nextPutAll: (eachNode markdownContent) ]]].
(eachNode level > 0) ifTrue: [
(eachNode ancestorsHeaders includes: '%invisible') not
ifTrue: [ markdownOutput nextPutAll: (eachNode markdownContent) ]]].
^markdownOutput contents
@ -272,7 +274,7 @@ GrafoscopioNode >> markdownContent [
| markdown configDict specialWords embedNodes temporalBody invisibleChildren |
markdown := '' writeStream.
specialWords := #('%config' '%abstract' '%invisible' '%idea' '%footnote' 'nuevoNodo' '%embed').
(self level > 0) & (specialWords includes: self header) not & (specialWords includes: ((self header findTokens: $ ) at: 1)) not
(specialWords includes: self header) not & (specialWords includes: ((self header findTokens: $ ) at: 1)) not
ifTrue: [
self level timesRepeat: [ markdown nextPutAll: '#' ].
markdown nextPutAll: ' '.