Fixing %embed keyword for nesting them inside %idea headers (see <http://mutabit.com/repos.fossil/grafoscopio/info/e53747ad09457dce>).

There is explicit replicated code inside GrafoscopioNode>>markdownContent that needs code refactoring and testing.
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-02-14 17:57:39 +00:00
parent 7f53ac841e
commit 245979b9b2

View File

@ -565,15 +565,16 @@ GrafoscopioNode >> markdownContent [
embedNodes do: [ :each |
temporalBody := temporalBody copyReplaceAll: '%embed-all' with: (each body, (String with: Character cr),
'%embed-all')].
temporalBody := temporalBody copyReplaceAll: '%embed-all' with: ''
]
].
temporalBody := temporalBody copyReplaceAll: '%embed-all' with: '']].
markdown nextPutAll: (temporalBody contents withInternetLineEndings ); crlf; crlf].
(self headerStartsWith: '%idea')
ifTrue: [
embedNodes := self children select: [:each | each headerStartsWith: '%embed'].
temporalBody := self body.
embedNodes ifNotNil: [ embedNodes do: [ :each | temporalBody := temporalBody copyReplaceAll: (each header) with: each body]].
temporalBody := self body string.
embedNodes ifNotNil: [ embedNodes do: [ :each |
each tags = 'código'
ifFalse: [temporalBody := temporalBody copyReplaceAll: (each header) with: each body]
ifTrue: [temporalBody := temporalBody copyReplaceAll: (each header) with: each bodyAsCode]]].
markdown nextPutAll: (temporalBody contents withUnixLineEndings); lf; lf.
].
(self headerStartsWith: '%footnote')