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

Alternative for invisible nodes. Not elegant, but works on firs level children (no on deeper ones). Need to work on 'ancestors' method.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2014-11-06 23:08:33 +00:00
parent 5a8505e394
commit 6fecaa9b51
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,7 +86,9 @@ GrafoscopioNode >> asMarkdown [
| markdownOutput |
markdownOutput := '' writeStream.
(self preorderTraversal) do: [ :eachNode | markdownOutput nextPutAll: (eachNode markdownContent) ].
"(self preorderTraversal) do: [ :eachNode | markdownOutput nextPutAll: (eachNode markdownContent) ]."
(self preorderTraversal) do: [ :eachNode |
(eachNode level > 0) ifTrue: [(eachNode parent header = '%invisible') not ifTrue: [markdownOutput nextPutAll: (eachNode markdownContent)]]].
^markdownOutput contents
@ -257,11 +259,11 @@ GrafoscopioNode >> markdownContent [
ifTrue: [
self level timesRepeat: [ markdown nextPutAll: '#' ].
markdown nextPutAll: ' '.
markdown nextPutAll: (self header copyReplaceTokens: #cr with: #lf); lf; lf.
markdown nextPutAll: (self header copyReplaceTokens: #cr with: #lf); crlf; crlf.
embedNodes := self children select: [:each | ((each header findTokens: $ ) at: 1) = '%embed'].
temporalBody := self body.
embedNodes ifNotNil: [ embedNodes do: [ :each | temporalBody := temporalBody copyReplaceAll: (each header) with: each body]].
markdown nextPutAll: (temporalBody contents withUnixLineEndings); lf; lf].
markdown nextPutAll: (temporalBody contents withInternetLineEndings ); crlf; crlf].
(self header = '%config')
ifTrue: [
@ -288,7 +290,7 @@ GrafoscopioNode >> markdownContent [
((self header findString: '%invisible') = 1) | (self header = '%invisible')
ifTrue: [
invisibleChildren := self children.
invisibleChildren ifNotNil: [invisibleChildren do: [ ] ] ].
invisibleChildren ifNotNil: [ ] ].
^markdown contents
]