Sync before moving (myself) from location.
This commit is contained in:
parent
b5d60733dc
commit
a2aa7b546d
@ -106,7 +106,7 @@ GrafoscopioNode >> asMarkdown [
|
|||||||
markdownOutput := '' writeStream.
|
markdownOutput := '' writeStream.
|
||||||
(self preorderTraversal) do: [ :eachNode |
|
(self preorderTraversal) do: [ :eachNode |
|
||||||
(eachNode level > 0) ifTrue: [
|
(eachNode level > 0) ifTrue: [
|
||||||
(eachNode ancestorsHeaders includes: '%invisible') not
|
(eachNode hasAncestorWith: '%invisible') not
|
||||||
ifTrue: [ markdownOutput nextPutAll: (eachNode markdownContent) ]]].
|
ifTrue: [ markdownOutput nextPutAll: (eachNode markdownContent) ]]].
|
||||||
|
|
||||||
^markdownOutput contents
|
^markdownOutput contents
|
||||||
@ -193,6 +193,15 @@ GrafoscopioNode >> demote [
|
|||||||
|
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : #exporting }
|
||||||
|
GrafoscopioNode >> hasAncestorWith: aSpecialWord [
|
||||||
|
"Looks if the receptor node has an ancestor with a header with 'aSpecialWord' as the only or the first word"
|
||||||
|
|
||||||
|
^ (self ancestorsHeaders includes: aSpecialWord) | ((self ancestorsHeaders collect: [:eachHeader | (eachHeader findTokens: $ ) at: 1 ]) includes: aSpecialWord)
|
||||||
|
|
||||||
|
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : #accessing }
|
{ #category : #accessing }
|
||||||
GrafoscopioNode >> header [
|
GrafoscopioNode >> header [
|
||||||
"Returns the receiver header"
|
"Returns the receiver header"
|
||||||
|
Loading…
Reference in New Issue
Block a user