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

empty log message

Browse Source
This commit is contained in:
Santiago Bragagnolo 2020-04-12 01:00:53 +00:00 committed by Offray Luna
parent 3287de6caa
commit 0ee9e63e47
26 changed files with 666 additions and 325 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

135
repository/Grafoscopio/GrafoscopioAttributeBranchVisitor.class.st Normal file
View File

@ -0,0 +1,135 @@
Class {
#name : #GrafoscopioAttributeBranchVisitor,
#superclass : #Object,
#instVars : [
'attributes',
'level',
'listLevel',
'index',
'text',
'styler'
],
#category : 'Grafoscopio-Pillar-Style'
}
{ #category : #accessing }
GrafoscopioAttributeBranchVisitor >> analyzeBranch: aBranch at: anIndex [
index := anIndex.
self halt.
^ [ aBranch
inject: OrderedCollection new
into: [ :attrs :node |
node accept: self.
attrs addAll: (attributes at: node).
attrs ] ]
ensure: [ index := 0 ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> attributes [
^ attributes
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> index: anIndex [
index := anIndex
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> initialize [
attributes := Dictionary new.
styler := GrafoscopioPillarStyler defaultStyler.
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> text: aGrafoscopioPillarASText [
text := aGrafoscopioPillarASText
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitCodeblock: aPRCodeblock [
attributes
at: aPRCodeblock
ifAbsentPut: [ styler attributesForCodeBlock: aPRCodeblock ].
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitCommentedLine: aPRCommentedLine [
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitDocument: aPRDocument [
attributes at: aPRDocument ifAbsentPut: [ styler attributesForDocument: aPRDocument ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitExternalLink: aPRExternalLink [
attributes
at: aPRExternalLink
ifAbsentPut: [ styler attributesForExternalLink: aPRExternalLink ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitFigure: aPRFigure [
attributes at: aPRFigure ifAbsentPut: [ styler attributesForFigure: aPRFigure ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitFormatText: aGrafoscopioFormatTextNode [
attributes
at: aGrafoscopioFormatTextNode
ifAbsentPut: [ styler attributesForFormatText: aGrafoscopioFormatTextNode ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitHeader: aPRHeader [
attributes
at: aPRHeader
ifAbsentPut: [ styler attributesForHeader: aPRHeader ].
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitInternalLink: aPRInternalLink [
attributes
at: aPRInternalLink
ifAbsentPut: [ styler attributesForInternalLink: aPRInternalLink ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitLineBreak: aPRLineBreak [
attributes
at: aPRLineBreak
ifAbsentPut: [ styler attributesForLineBreak: aPRLineBreak ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitListItem: aPRListItem [
attributes
at: aPRListItem
ifAbsentPut: [ styler attributesForListItem: aPRListItem at: index ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitParagraph: aPRParagraph [
attributes
at: aPRParagraph
ifAbsentPut: [ styler attributesForParagraph: aPRParagraph ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitText: aPRText [
attributes
at: aPRText
ifAbsentPut: [ styler attributesForText: aPRText ]
]
{ #category : #'as yet unclassified' }
GrafoscopioAttributeBranchVisitor >> visitUnorderedList: aPRUnorderedList [
attributes
at: aPRUnorderedList
ifAbsentPut: [ styler attributesForUnorderedList: aPRUnorderedList ]
]

108
repository/Grafoscopio/GrafoscopioFlatAttributeVisitor.class.st
View File

@ -1,108 +0,0 @@
Class {
#name : #GrafoscopioFlatAttributeVisitor,
#superclass : #Object,
#instVars : [
'attributes',
'level',
'listLevel',
'index'
],
#category : 'Grafoscopio-Pillar'
}
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> attributes [
^ attributes
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> index: anIndex [
index := anIndex
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> initialize [
super initialize.
level := 0
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitCommentedLine: aPRCommentedLine [
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitDocument: aPRDocument [
attributes := OrderedCollection new.
listLevel := 0
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitExternalLink: aPRExternalLink [
attributes
add: (TextColor new color: (Color fromHexString: '03A9F4'));
add: TextEmphasis underlined;
add:
(TextAction new
actOnClickBlock: [ self inform: 'Should be going to ' , aPRExternalLink reference ])
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitFigure: aPRFigure [
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitHeader: aPRHeader [
level := level + 1.
attributes
add:
(TextFontReference
toFont:
(LogicalFont
familyName: 'Source Code Pro'
pointSize: ((20 - (level * 5)) max: 10)))
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitInternalLink: aPRInternalLink [
self visitExternalLink: aPRInternalLink
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitLineBreak: aPRLineBreak [
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitListItem: aPRListItem [
aPRListItem textStart = index
ifTrue: [
attributes
add: (TextIndent tabs: 2);
add:
(TextAnchor new
anchoredMorph: (self iconNamed: #menuPin);
yourself) ]
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitParagraph: aPRParagraph [
"attributes
add:
(TextFontReference
toFont:
(LogicalFont
familyName: 'Source Code Pro'
pointSize: 10))"
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitText: aPRText [
]
{ #category : #'as yet unclassified' }
GrafoscopioFlatAttributeVisitor >> visitUnorderedList: aPRUnorderedList [
listLevel := listLevel + 1 .
]

20
repository/Grafoscopio/GrafoscopioFmtAnchorAsBody.class.st
View File

@ -1,20 +1,14 @@
Class { Class {
#name : #GrafoscopioFmtAnchorAsBody, #name : #GrafoscopioFmtAnchorAsBody,
#superclass : #GrafoscopioFmtUrlAsBody, #superclass : #GrafoscopioFmtUrlAsBody,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtAnchorAsBody >> applyOn: aString from: textStart to: textStop [ GrafoscopioFmtAnchorAsBody >> beInstalledIn: anExternalLink [
^ model anchor anExternalLink children isEmpty ifFalse: [ ^ self ].
] self
installTextNodeAtRightWithValue: anExternalLink anchor asString
{ #category : #'target resize' } in: anExternalLink
GrafoscopioFmtAnchorAsBody >> leftSize [
^ model anchor size - 1
]
{ #category : #'target resize' }
GrafoscopioFmtAnchorAsBody >> rightSize [
^ 0
] ]

18
repository/Grafoscopio/GrafoscopioFmtAnchorOnTheLeft.class.st
View File

@ -1,22 +1,10 @@
Class { Class {
#name : #GrafoscopioFmtAnchorOnTheLeft, #name : #GrafoscopioFmtAnchorOnTheLeft,
#superclass : #GrafoscopioFormat, #superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtAnchorOnTheLeft >> applyOn: aString from: textStart to: textStop [ GrafoscopioFmtAnchorOnTheLeft >> beInstalledIn: aNode [
^ textStart = model textStart self installTextNodeAtLeftWithValue: (Character value: 1) asString in: aNode
ifTrue: [ (Character value: 1) asString , aString ]
ifFalse: [ aString ]
]
{ #category : #'target resize' }
GrafoscopioFmtAnchorOnTheLeft >> leftSize [
^ 1
]
{ #category : #'target resize' }
GrafoscopioFmtAnchorOnTheLeft >> rightSize [
^ 0
] ]

13
repository/Grafoscopio/GrafoscopioFmtAnchorOnTheLeft2.class.st Normal file
View File

@ -0,0 +1,13 @@
Class {
#name : #GrafoscopioFmtAnchorOnTheLeft2,
#superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar-TextFormat'
}
{ #category : #'target resize' }
GrafoscopioFmtAnchorOnTheLeft2 >> beInstalledIn: aNode [
aNode language originalName = 'pharo-image'
ifTrue: [
aNode propertyAt: #text put: aNode text.
aNode text: (Character value: 1) asString ]
]

18
repository/Grafoscopio/GrafoscopioFmtBeginningLinebreak.class.st
View File

@ -1,22 +1,10 @@
Class { Class {
#name : #GrafoscopioFmtBeginningLinebreak, #name : #GrafoscopioFmtBeginningLinebreak,
#superclass : #GrafoscopioFormat, #superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtBeginningLinebreak >> applyOn: aString from: textStart to: textStop [ GrafoscopioFmtBeginningLinebreak >> beInstalledIn: aNode [
^ textStart = model textStart self installTextNodeAtLeftWithValue: OSPlatform current lineEnding in: aNode
ifTrue: [ OSPlatform current lineEnding , aString ]
ifFalse: [ aString ]
]
{ #category : #'target resize' }
GrafoscopioFmtBeginningLinebreak >> leftSize [
^ OSPlatform current lineEnding size
]
{ #category : #'target resize' }
GrafoscopioFmtBeginningLinebreak >> rightSize [
^ 0
] ]

24
repository/Grafoscopio/GrafoscopioFmtDoubleLinebreak.class.st
View File

@ -1,27 +1,11 @@
Class { Class {
#name : #GrafoscopioFmtDoubleLinebreak, #name : #GrafoscopioFmtDoubleLinebreak,
#superclass : #GrafoscopioFormat, #superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtDoubleLinebreak >> applyOn: aString from: textStart to: textStop [ GrafoscopioFmtDoubleLinebreak >> beInstalledIn: aNode [
| return | self installTextNodeAtLeftWithValue: OSPlatform current lineEnding in: aNode.
return := textStart = (model textStart) self installTextNodeAtRightWithValue: OSPlatform current lineEnding in: aNode
ifTrue: [ OSPlatform current lineEnding , aString ]
ifFalse: [ aString ].
return := textStop = model textStop
ifTrue: [ return , OSPlatform current lineEnding ]
ifFalse: [ aString ].
^ return
]
{ #category : #'target resize' }
GrafoscopioFmtDoubleLinebreak >> leftSize [
^ OSPlatform current lineEnding size
]
{ #category : #'target resize' }
GrafoscopioFmtDoubleLinebreak >> rightSize [
^ OSPlatform current lineEnding size
] ]

18
repository/Grafoscopio/GrafoscopioFmtEndingLinebreak.class.st
View File

@ -1,24 +1,12 @@
Class { Class {
#name : #GrafoscopioFmtEndingLinebreak, #name : #GrafoscopioFmtEndingLinebreak,
#superclass : #GrafoscopioFormat, #superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtEndingLinebreak >> applyOn: aString from: textStart to: textStop [ GrafoscopioFmtEndingLinebreak >> beInstalledIn: aNode [
^ textStop = model textStop self installTextNodeAtRightWithValue: OSPlatform current lineEnding in: aNode
ifTrue: [ aString , OSPlatform current lineEnding ]
ifFalse: [ aString ]
]
{ #category : #'target resize' }
GrafoscopioFmtEndingLinebreak >> leftSize [
^ 0
]
{ #category : #'target resize' }
GrafoscopioFmtEndingLinebreak >> rightSize [
^ OSPlatform current lineEnding size
] ]
{ #category : #'target resize' } { #category : #'target resize' }

20
repository/Grafoscopio/GrafoscopioFmtEndingSpace.class.st
View File

@ -1,22 +1,12 @@
Class { Class {
#name : #GrafoscopioFmtEndingSpace, #name : #GrafoscopioFmtEndingSpace,
#superclass : #GrafoscopioFormat, #superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtEndingSpace >> applyOn: aString from: textStart to: textStop [ GrafoscopioFmtEndingSpace >> beInstalledIn: aNode [
^ textStop = model textStop self
ifTrue: [ aString , ' ' ] installTextNodeAtRightWithValue: String space
ifFalse: [ aString ] in: aNode
]
{ #category : #'target resize' }
GrafoscopioFmtEndingSpace >> leftSize [
^ 0
]
{ #category : #'target resize' }
GrafoscopioFmtEndingSpace >> rightSize [
^ 1
] ]

24
repository/Grafoscopio/GrafoscopioFmtUrlAsBody.class.st
View File

@ -1,28 +1,14 @@
Class { Class {
#name : #GrafoscopioFmtUrlAsBody, #name : #GrafoscopioFmtUrlAsBody,
#superclass : #GrafoscopioFormat, #superclass : #GrafoscopioFormat,
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #'target resize' }
GrafoscopioFmtUrlAsBody >> applyOn: aString from: textStart to: textStop [
^ model reference
]
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFmtUrlAsBody >> beInstalledIn: anExternalLink [ GrafoscopioFmtUrlAsBody >> beInstalledIn: anExternalLink [
anExternalLink children isEmpty ifFalse: [ ^ self ]. anExternalLink children isEmpty ifFalse: [ ^ self ].
anExternalLink children: {(PRText new text: ' '; yourself)}. self
super beInstalledIn: anExternalLink. installTextNodeAtRightWithValue: anExternalLink reference asString
in: anExternalLink
]
{ #category : #'target resize' }
GrafoscopioFmtUrlAsBody >> leftSize [
^ model reference size - 1
]
{ #category : #'target resize' }
GrafoscopioFmtUrlAsBody >> rightSize [
^ 0
] ]

40
repository/Grafoscopio/GrafoscopioFormat.class.st
View File

@ -1,13 +1,10 @@
Class { Class {
#name : #GrafoscopioFormat, #name : #GrafoscopioFormat,
#superclass : #Object, #superclass : #Object,
#instVars : [
'model'
],
#classInstVars : [ #classInstVars : [
'instance' 'instance'
], ],
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #accessing } { #category : #accessing }
@ -15,33 +12,32 @@ GrafoscopioFormat class >> instance [
^ instance ifNil: [ instance := self new ] ^ instance ifNil: [ instance := self new ]
] ]
{ #category : #'target resize' }
GrafoscopioFormat >> applyOn: aString from: textStart to: textStop [
self subclassResponsibility
]
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFormat >> beInstalledIn: aNode [ GrafoscopioFormat >> beInstalledIn: aNode [
self subclassResponsibility .
aNode installFormat: (self copy model: aNode; yourself )
] ]
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFormat >> leftSize [ GrafoscopioFormat >> installTextNodeAtLeftWithValue: aString in: aNode [
^ self subclassResponsibility | newTextChild |
] newTextChild := self newTextChildFor: aString in: aNode.
aNode children: {newTextChild} , aNode children
{ #category : #'as yet unclassified' }
GrafoscopioFormat >> model: aPRHeader [
model := aPRHeader
] ]
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFormat >> rightSize [ GrafoscopioFormat >> installTextNodeAtRightWithValue: aString in: aNode [
^ self subclassResponsibility aNode
children:
aNode children, {(GrafoscopioFormatTextNode new
text: aString;
yourself)}
] ]
{ #category : #'target resize' } { #category : #'target resize' }
GrafoscopioFormat >> size [ GrafoscopioFormat >> newTextChildFor: aString in: aNode [
^ self leftSize + self rightSize ^ GrafoscopioFormatTextNode new
text: aString;
parent: aNode;
yourself
] ]

16
repository/Grafoscopio/GrafoscopioFormatTextNode.class.st Normal file
View File

@ -0,0 +1,16 @@
Class {
#name : #GrafoscopioFormatTextNode,
#superclass : #PRText,
#category : 'Grafoscopio-Pillar-TextFormat'
}
{ #category : #visiting }
GrafoscopioFormatTextNode >> accept: aVisitor [
aVisitor visitFormatText: self
]
{ #category : #visiting }
GrafoscopioFormatTextNode >> printOn: aStream [
super printOn: aStream.
aStream nextPutAll: ' format text: '; print: self text
]

249
repository/Grafoscopio/GrafoscopioPillarASText.class.st
View File

@ -13,6 +13,20 @@ Class {
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar'
} }
{ #category : #'as yet unclassified' }
GrafoscopioPillarASText class >> now [
| pillarAst text presenter |
pillarAst := GrafoscopioPillarASText pillarExample .
text := GrafoscopioPillarASText new.
text ast: pillarAst.
presenter := SpTextPresenter new text: text ; yourself .
presenter autoAccept: true.
presenter whenTextChangedDo: [ : v | presenter violentForceRecompose ].
presenter openWithSpec.
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarASText class >> openExample [ GrafoscopioPillarASText class >> openExample [
^ self new ^ self new
@ -26,6 +40,199 @@ GrafoscopioPillarASText class >> pillarExample [
parse: parse:
'!!About Pillar '!!About Pillar
[[[label=script1|caption=My script that works|language=pharo-image
PolymorphSystemSettings pharoLogoForm
]]]
Pillar is a system to manage documents (books, presentations, and web sites). From a common format, it is able to generate documents in multiple formats (html, markdown, latex, AsciiDoc).
It is composed of several modules such as importers, transformers, document model and outputers.
This book describes Pillar in its current version 7.0. Pillar is currently developed and masintained by Stéphane Ducasse and Guillermo Polito.
The original author of Pillar was Damien Cassou. Many people have also contributed to Pillar: Ben Coman, Guillermo Polito, Lukas Renggli (original author of the PierCMS from which a first version of Pillar has been extracted), Benjamin van Ryseghem, Cyril Ferlicot-Delbecque, Thibault Arloing, Yann Dubois, Quentin Ducasse and Asbathou Sama Biyalou. Special thanks to Asbathou Sama Biyalou!
This book adapts, extends, and clarifies the chapter explaining Pillar in the ''Enterprise Pharo: a Web Perspective'' book.
Pillar was sponsored by *ESUG>http://www.esug.org*.
!!!Introduction
Pillar (hosted at *http://github.com/pillar-markup*) is a markup language and associated tools to write and generate documentation, books (such as this one), web sites, and slide-based presentations. The Pillar screenshot in Figure *@voyageDocExample* shows the HTML version of chapter Voyage.
+An example Pillar output>file://figures/voyageDocExample-small.png|label=voyageDocExample|width=60+
Pillar has many features, helpful tools, and documentation:
- simple markup syntax with references, tables, pictures, captions, syntax-highlighted code blocks;
- export documents to HTML, LaTeX, Markdown, AsciiDoc, ePuB and Pillar itself, and presentations to Beamer and Deck.js;
%- customization of the export through a dedicated STON configuration file (see chapter Missing Chapter *@cha:ston*) and Mustache templates (see chapter *@templating*).
- many tests with good coverage (94% with more than a 2100 executed tests), which are regularly run by a *continuous integration job>https://ci.inria.fr/pharo-contribution/job/Pillar*
- a command-line interface and dedicated plugins for several text editors: *Emacs>https://github.com/pillar-markup/pillar-mode*, *Vim>https://github.com/cdlm/vim-pillar*, *TextMate>https://github.com/Uko/Pillar.tmbundle*, and *Atom>https://github.com/Uko/language-pillar*
- a cheat sheet (see Chapter *@chacheat*).
!!!Pillar users
@pillarUSERS
This book was written in Pillar itself. If you want to see how Pillar is used, have a look at its source code (*http://github.com/SquareBracketAssociates/Booklet-PublishingAPillarBooklet*), or check the following other real-world projects:
- the Updated Pharo by Example book (*https://github.com/SquareBracketAssociates/UpdatedPharoByExample*),
- the Pharo MOOC - Massive open online course (*https://github.com/SquareBracketAssociates/PharoMooc*,
- Any of the Pharo booklets (*https://github.com/SquareBracketAssociates/Booklet-XXXX*,
- the PillarHub open-access shared blog (*http://pillarhub.pharocloud.com*).
!!! Pillar future features
Pillar 70 saw some major refactorings and cleaning: it does not rely on Grease and Magritte anymore.
Its architecture is a lot cleaner.
Still some issues are missing. Here is a little list of features that we are working on or will soon:
- Incremental recompilation. Since we remove the use of make (so that Windows users can use Pillar) we should introduce a way to avoid to recompile complete book when just one chapter changed.
- Markdown syntax.
- Release of Ecstatic. Pillar supports the deployment of web sites named Ecstatic and we are working on a second version of Ecstatic.
- Better table support.
!!! Conclusion
Pillar is still in active development: maintainers keep improving its implementation. The current version of Pillar is Pillar 70. This booklet only documents Pillar 70. This booklet will be synchronised with future enhancements.
!!About Pillar
[[[label=script1|caption=My script that works|language=pharo-image
PolymorphSystemSettings pharoLogoForm
]]]
Pillar is a system to manage documents (books, presentations, and web sites). From a common format, it is able to generate documents in multiple formats (html, markdown, latex, AsciiDoc).
It is composed of several modules such as importers, transformers, document model and outputers.
This book describes Pillar in its current version 7.0. Pillar is currently developed and masintained by Stéphane Ducasse and Guillermo Polito.
The original author of Pillar was Damien Cassou. Many people have also contributed to Pillar: Ben Coman, Guillermo Polito, Lukas Renggli (original author of the PierCMS from which a first version of Pillar has been extracted), Benjamin van Ryseghem, Cyril Ferlicot-Delbecque, Thibault Arloing, Yann Dubois, Quentin Ducasse and Asbathou Sama Biyalou. Special thanks to Asbathou Sama Biyalou!
This book adapts, extends, and clarifies the chapter explaining Pillar in the ''Enterprise Pharo: a Web Perspective'' book.
Pillar was sponsored by *ESUG>http://www.esug.org*.
!!!Introduction
Pillar (hosted at *http://github.com/pillar-markup*) is a markup language and associated tools to write and generate documentation, books (such as this one), web sites, and slide-based presentations. The Pillar screenshot in Figure *@voyageDocExample* shows the HTML version of chapter Voyage.
+An example Pillar output>file://figures/voyageDocExample-small.png|label=voyageDocExample|width=60+
Pillar has many features, helpful tools, and documentation:
- simple markup syntax with references, tables, pictures, captions, syntax-highlighted code blocks;
- export documents to HTML, LaTeX, Markdown, AsciiDoc, ePuB and Pillar itself, and presentations to Beamer and Deck.js;
%- customization of the export through a dedicated STON configuration file (see chapter Missing Chapter *@cha:ston*) and Mustache templates (see chapter *@templating*).
- many tests with good coverage (94% with more than a 2100 executed tests), which are regularly run by a *continuous integration job>https://ci.inria.fr/pharo-contribution/job/Pillar*
- a command-line interface and dedicated plugins for several text editors: *Emacs>https://github.com/pillar-markup/pillar-mode*, *Vim>https://github.com/cdlm/vim-pillar*, *TextMate>https://github.com/Uko/Pillar.tmbundle*, and *Atom>https://github.com/Uko/language-pillar*
- a cheat sheet (see Chapter *@chacheat*).
!!!Pillar users
@pillarUSERS
This book was written in Pillar itself. If you want to see how Pillar is used, have a look at its source code (*http://github.com/SquareBracketAssociates/Booklet-PublishingAPillarBooklet*), or check the following other real-world projects:
- the Updated Pharo by Example book (*https://github.com/SquareBracketAssociates/UpdatedPharoByExample*),
- the Pharo MOOC - Massive open online course (*https://github.com/SquareBracketAssociates/PharoMooc*,
- Any of the Pharo booklets (*https://github.com/SquareBracketAssociates/Booklet-XXXX*,
- the PillarHub open-access shared blog (*http://pillarhub.pharocloud.com*).
!!! Pillar future features
Pillar 70 saw some major refactorings and cleaning: it does not rely on Grease and Magritte anymore.
Its architecture is a lot cleaner.
Still some issues are missing. Here is a little list of features that we are working on or will soon:
- Incremental recompilation. Since we remove the use of make (so that Windows users can use Pillar) we should introduce a way to avoid to recompile complete book when just one chapter changed.
- Markdown syntax.
- Release of Ecstatic. Pillar supports the deployment of web sites named Ecstatic and we are working on a second version of Ecstatic.
- Better table support.
!!! Conclusion
Pillar is still in active development: maintainers keep improving its implementation. The current version of Pillar is Pillar 70. This booklet only documents Pillar 70. This booklet will be synchronised with future enhancements.
!!About Pillar
[[[label=script1|caption=My script that works|language=pharo-image
PolymorphSystemSettings pharoLogoForm
]]]
Pillar is a system to manage documents (books, presentations, and web sites). From a common format, it is able to generate documents in multiple formats (html, markdown, latex, AsciiDoc).
It is composed of several modules such as importers, transformers, document model and outputers.
This book describes Pillar in its current version 7.0. Pillar is currently developed and masintained by Stéphane Ducasse and Guillermo Polito.
The original author of Pillar was Damien Cassou. Many people have also contributed to Pillar: Ben Coman, Guillermo Polito, Lukas Renggli (original author of the PierCMS from which a first version of Pillar has been extracted), Benjamin van Ryseghem, Cyril Ferlicot-Delbecque, Thibault Arloing, Yann Dubois, Quentin Ducasse and Asbathou Sama Biyalou. Special thanks to Asbathou Sama Biyalou!
This book adapts, extends, and clarifies the chapter explaining Pillar in the ''Enterprise Pharo: a Web Perspective'' book.
Pillar was sponsored by *ESUG>http://www.esug.org*.
!!!Introduction
Pillar (hosted at *http://github.com/pillar-markup*) is a markup language and associated tools to write and generate documentation, books (such as this one), web sites, and slide-based presentations. The Pillar screenshot in Figure *@voyageDocExample* shows the HTML version of chapter Voyage.
+An example Pillar output>file://figures/voyageDocExample-small.png|label=voyageDocExample|width=60+
Pillar has many features, helpful tools, and documentation:
- simple markup syntax with references, tables, pictures, captions, syntax-highlighted code blocks;
- export documents to HTML, LaTeX, Markdown, AsciiDoc, ePuB and Pillar itself, and presentations to Beamer and Deck.js;
%- customization of the export through a dedicated STON configuration file (see chapter Missing Chapter *@cha:ston*) and Mustache templates (see chapter *@templating*).
- many tests with good coverage (94% with more than a 2100 executed tests), which are regularly run by a *continuous integration job>https://ci.inria.fr/pharo-contribution/job/Pillar*
- a command-line interface and dedicated plugins for several text editors: *Emacs>https://github.com/pillar-markup/pillar-mode*, *Vim>https://github.com/cdlm/vim-pillar*, *TextMate>https://github.com/Uko/Pillar.tmbundle*, and *Atom>https://github.com/Uko/language-pillar*
- a cheat sheet (see Chapter *@chacheat*).
!!!Pillar users
@pillarUSERS
This book was written in Pillar itself. If you want to see how Pillar is used, have a look at its source code (*http://github.com/SquareBracketAssociates/Booklet-PublishingAPillarBooklet*), or check the following other real-world projects:
- the Updated Pharo by Example book (*https://github.com/SquareBracketAssociates/UpdatedPharoByExample*),
- the Pharo MOOC - Massive open online course (*https://github.com/SquareBracketAssociates/PharoMooc*,
- Any of the Pharo booklets (*https://github.com/SquareBracketAssociates/Booklet-XXXX*,
- the PillarHub open-access shared blog (*http://pillarhub.pharocloud.com*).
!!! Pillar future features
Pillar 70 saw some major refactorings and cleaning: it does not rely on Grease and Magritte anymore.
Its architecture is a lot cleaner.
Still some issues are missing. Here is a little list of features that we are working on or will soon:
- Incremental recompilation. Since we remove the use of make (so that Windows users can use Pillar) we should introduce a way to avoid to recompile complete book when just one chapter changed.
- Markdown syntax.
- Release of Ecstatic. Pillar supports the deployment of web sites named Ecstatic and we are working on a second version of Ecstatic.
- Better table support.
!!! Conclusion
Pillar is still in active development: maintainers keep improving its implementation. The current version of Pillar is Pillar 70. This booklet only documents Pillar 70. This booklet will be synchronised with future enhancements.
!!About Pillar
[[[label=script1|caption=My script that works|language=pharo-image
PolymorphSystemSettings pharoLogoForm
]]]
Pillar is a system to manage documents (books, presentations, and web sites). From a common format, it is able to generate documents in multiple formats (html, markdown, latex, AsciiDoc). Pillar is a system to manage documents (books, presentations, and web sites). From a common format, it is able to generate documents in multiple formats (html, markdown, latex, AsciiDoc).
It is composed of several modules such as importers, transformers, document model and outputers. It is composed of several modules such as importers, transformers, document model and outputers.
@ -99,14 +306,11 @@ GrafoscopioPillarASText >> ast: aPRDocument [
{ #category : #accessing } { #category : #accessing }
GrafoscopioPillarASText >> at: anInteger [ GrafoscopioPillarASText >> at: anInteger [
| node | | node |
(anInteger > (self size +1 ) or: [ anInteger < 1 ]) (anInteger > (self size +1 ) or: [ anInteger < 1 ])
ifTrue: [ ^ self errorSubscriptBounds: anInteger ]. ifTrue: [ ^ self errorSubscriptBounds: anInteger ].
node := self detectAstNodeFor: anInteger in: ast. node := self detectAstNodeFor: anInteger in: ast.
^ node text at: anInteger - node textStart +1
^ node formattedText at: anInteger - node textStart +1
] ]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
@ -191,6 +395,11 @@ GrafoscopioPillarASText >> detectFullBranchFor: anInteger in: aNode [
ifFalse: [ {aNode} ] ifFalse: [ {aNode} ]
] ]
{ #category : #'as yet unclassified' }
GrafoscopioPillarASText >> errorSubscriptBounds: aSomedthing [
self halt.
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarASText >> extractStringFrom: aPosition to: anOtherPosition [ GrafoscopioPillarASText >> extractStringFrom: aPosition to: anOtherPosition [
| from to nodes preffix suffix | | from to nodes preffix suffix |
@ -201,8 +410,8 @@ GrafoscopioPillarASText >> extractStringFrom: aPosition to: anOtherPosition [
]. ].
to := nodes last textStop - anOtherPosition. to := nodes last textStop - anOtherPosition.
preffix := nodes first formattedText copyFrom: from to: nodes first textSize. preffix := nodes first text copyFrom: from to: nodes first textSize.
suffix := nodes last formattedText copyFrom: 1 to: to. suffix := nodes last text copyFrom: 1 to: to.
^ String ^ String
streamContents: [ :str | streamContents: [ :str |
str nextPutAll: preffix. str nextPutAll: preffix.
@ -233,9 +442,9 @@ GrafoscopioPillarASText >> rangeOf: aTextURL startingAt: anInteger [
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarASText >> reannotate: aPRText [ GrafoscopioPillarASText >> reannotate: aPRText [
| current previous size parents | | current previous parents |
aPRText textStop: aPRText textStart + aPRText formattedText size. aPRText textStop: aPRText textStart + aPRText text size.
parents := Set new. parents := Set new.
parents add: aPRText parent. parents add: aPRText parent.
current := aPRText next. current := aPRText next.
@ -243,10 +452,9 @@ GrafoscopioPillarASText >> reannotate: aPRText [
previous := aPRText. previous := aPRText.
[ current isNotNil ] [ current isNotNil ]
whileTrue: [ whileTrue: [
size := current textSize.
current textStart: previous textStop. current textStart: previous textStop.
current textStop: current textStart + size. current textStop: current textStart + current text size.
previous := current. previous := current.
current := current next. current := current next.
self ]. self ].
@ -263,22 +471,19 @@ GrafoscopioPillarASText >> removeAttribute: att from: start to: stop [
{ #category : #editing } { #category : #editing }
GrafoscopioPillarASText >> replaceFrom: start to: stop with: aCollection [ GrafoscopioPillarASText >> replaceFrom: start to: stop with: aCollection [
| nodes realStart realStop newText node | | nodes realStart realStop newText node |
aCollection ifEmpty: [ ^ self ]. ((stop - start )> 1 and:[ aCollection isEmpty ]) ifTrue: [ ^self ].
nodes := self detectAstNodesBetween: start and: stop in: ast. nodes := self detectAstNodesBetween: start and: stop in: ast.
self assert: nodes size = 1. self assert: nodes size <= 1.
node := nodes first. node := nodes first.
realStart := (start - (node textStart + node leftFormatSize) )+ 1 . realStart := (start - (node textStart) )+ 1 .
realStop := stop - (node textStart + node rightFormatSize) + 1 . realStop := stop - (node textStart ) + 1 .
newText := (node text copyReplaceFrom: realStart to: realStop with: aCollection). newText := (node text copyReplaceFrom: realStart to: realStop with: aCollection).
node isText ifTrue: [ node isText ifTrue: [
node text: newText node text: newText
] ifFalse: [ ] ifFalse: [
(newText beginsWith: node text) ifTrue: [ node := self detectAstNodeFor: node textStart - 1.
nodes := self detectAstNodesBetween: start - 1 and: start -1 in: ast. node text: node text, aCollection.
nodes first text: nodes first text , (newText copyFrom: node text size to: newText size ). nodes := { node }.
] ifFalse: [
nodes first next text: (newText copyFrom: 1 to: newText size - node textSize) , nodes first text.
]
]. ].
self reannotate: nodes first. self reannotate: nodes first.

16
repository/Grafoscopio/GrafoscopioPillarASTextStringDecorator.class.st
View File

@ -22,6 +22,22 @@ GrafoscopioPillarASTextStringDecorator >> copyFrom: one to: two [
^ text copyFrom: one to: two ^ text copyFrom: one to: two
] ]
{ #category : #'as yet unclassified' }
GrafoscopioPillarASTextStringDecorator >> indexOf: aCharacter startingAt: anInteger ifAbsent: aBlockClosure [
| current index |
current := text detectAstNodeFor: anInteger.
index := current text
indexOf: aCharacter
startingAt: anInteger - current textStart + 1.
current := current next.
[ current isNotNil ]
whileTrue: [ index := current text indexOf: aCharacter.
index = 0
ifTrue: [ current := current next ]
ifFalse: [ ^ current textStart + index ] ].
^ aBlockClosure value
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarASTextStringDecorator >> isByteString [ GrafoscopioPillarASTextStringDecorator >> isByteString [
^ false ^ false

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

@ -14,6 +14,11 @@ GrafoscopioPillarASTextStringProjectionDecorator >> allRangesOfSubstring: aStrin
^ { } ^ { }
] ]
{ #category : #'as yet unclassified' }
GrafoscopioPillarASTextStringProjectionDecorator >> asText [
^ self string asText
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioPillarASTextStringProjectionDecorator >> at: anInteger [ GrafoscopioPillarASTextStringProjectionDecorator >> at: anInteger [
^ self cached at: anInteger ^ self cached at: anInteger
@ -48,6 +53,11 @@ GrafoscopioPillarASTextStringProjectionDecorator >> size [
^ to - from ^ to - from
] ]
{ #category : #'as yet unclassified' }
GrafoscopioPillarASTextStringProjectionDecorator >> string [
^ text extractStringFrom: from to: to
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarASTextStringProjectionDecorator >> to: anInteger [ GrafoscopioPillarASTextStringProjectionDecorator >> to: anInteger [
to := anInteger to := anInteger

40
repository/Grafoscopio/GrafoscopioPillarRuns.class.st
View File

@ -4,33 +4,40 @@ Class {
#instVars : [ #instVars : [
'ast', 'ast',
'lastBranch', 'lastBranch',
'lastAttributes' 'lastAttributes',
'visitor'
], ],
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-Style'
} }
{ #category : #accessing } { #category : #accessing }
GrafoscopioPillarRuns >> ast: anAst [ GrafoscopioPillarRuns >> ast: anAst [
ast := anAst ast := anAst.
visitor := GrafoscopioAttributeBranchVisitor new.
visitor text: ast
] ]
{ #category : #'basic api' } { #category : #'basic api' }
GrafoscopioPillarRuns >> at: anIndex [ GrafoscopioPillarRuns >> at: anIndex [
| newBranch | | newBranch |
anIndex > ast size
ifTrue: [ ^ Array empty ].
newBranch := ast detectFullBranchFor: anIndex. newBranch := ast detectFullBranchFor: anIndex.
newBranch = lastBranch newBranch = lastBranch
ifTrue: [ .^ lastAttributes ]. ifTrue: [ ^ lastAttributes ].
lastBranch := newBranch. lastAttributes := self
^ lastAttributes := self calculateAttributesForBranch: lastBranch at: anIndex calculateAttributesForBranch: newBranch
at: anIndex.
lastBranch := (newBranch
anySatisfy: [ :n | n isMemberOf: PRCodeblock ])
ifTrue: [ nil ]
ifFalse: [ newBranch ].
^ lastAttributes
] ]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarRuns >> calculateAttributesForBranch: aCollection at: anIndex [ GrafoscopioPillarRuns >> calculateAttributesForBranch: aCollection at: anIndex [
| visitor | ^ visitor analyzeBranch: aCollection at: anIndex.
visitor := GrafoscopioFlatAttributeVisitor new.
visitor index: anIndex.
aCollection do: [ :n | n accept: visitor ].
^ visitor attributes
] ]
{ #category : #'basic api' } { #category : #'basic api' }
@ -56,11 +63,14 @@ GrafoscopioPillarRuns >> reset [
] ]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioPillarRuns >> runLengthFor: anInteger [ GrafoscopioPillarRuns >> runLengthFor: anInteger [
| node | | node |
anInteger > ast size ifTrue: [ ^0 ]. anInteger > ast size
node := (ast detectAstNodeFor: anInteger). ifTrue: [ ^ 0 ].
^ node textStop - anInteger. node := ast detectAstNodeFor: anInteger.
^ (node isKindOf: PRCodeblock)
ifTrue: [ 1 ]
ifFalse: [ node textStop - anInteger ]
] ]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }

108
repository/Grafoscopio/GrafoscopioPillarStyler.class.st Normal file
View File

@ -0,0 +1,108 @@
Class {
#name : #GrafoscopioPillarStyler,
#superclass : #Object,
#instVars : [
'pharoStyler'
],
#category : 'Grafoscopio-Pillar-Style'
}
{ #category : #accessing }
GrafoscopioPillarStyler class >> defaultStyler [
^ self new
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForCodeBlock: aDocument [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForCodeBlock: aPRCodeblock at: index [
self halt.
aPRCodeblock language originalName = 'pharo-image'
ifTrue: [ ^ {(TextAnchor new
anchoredMorph: (self class compiler evaluate: (aPRCodeblock propertyAt: #text)))} ].
aPRCodeblock language originalName = 'pharo'
ifTrue: [ | runs |
runs := (self pharoStyler
privateStyle: aPRCodeblock text asText , '.') runs.
^ runs at: index - aPRCodeblock textStart ]
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForDocument: aDocument [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForExternalLink: aPRExternalLink [
^ {(TextColor new color: (Color fromHexString: '03A9F4')).
TextEmphasis underlined.
(TextAction new
actOnClickBlock: [ self inform: 'Should be going to ' , aPRExternalLink reference ])}
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForFigure: aPRFigure [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForFormatText: aGrafoscopioFormatTextNode [
^ self attributesForText: aGrafoscopioFormatTextNode
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForHeader: aPRHeader [
^ {(TextFontReference
toFont:
(LogicalFont
familyName: 'Source Code Pro'
pointSize: (20 - (aPRHeader level * 5) max: 10)))}
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForInternalLink: aPRInternalLink [
^ self attributesForExternalLink: aPRInternalLink
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForLineBreak: aPRLineBreak [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForListItem: aPRListItem at: index [
^ (aPRListItem text at: index - aPRListItem textStart + 1) = Character home
ifTrue: [ {(TextIndent tabs: aPRListItem level).
(TextAnchor new
anchoredMorph: (self iconNamed: #menuPin);
yourself)} ]
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForParagraph: aParagraph [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForText: aText [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> attributesForUnorderedList: aList [
^ self default
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> default [
^ Array empty
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarStyler >> pharoStyler [
^ pharoStyler
ifNil: [ pharoStyler := SHRBTextStyler new isForWorkspace: true; yourself]
]

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

@ -36,7 +36,13 @@ GrafoscopioPillarTextAnnotator >> visitDocument: aDoc [
lastStop := 1 . lastStop := 1 .
aDoc accept: formatter. aDoc accept: formatter.
super visitDocument: aDoc. super visitDocument: aDoc.
]
{ #category : #'as yet unclassified' }
GrafoscopioPillarTextAnnotator >> visitFormatText: aGrafoscopioFormatTextNode [
" for the annotator, a format text is a much as regular text"
self visitText: aGrafoscopioFormatTextNode
] ]
{ #category : #'visiting-document' } { #category : #'visiting-document' }
@ -54,6 +60,6 @@ GrafoscopioPillarTextAnnotator >> visitText: aTextObject [
texts ifNotEmpty: [ texts last next: aTextObject ]. texts ifNotEmpty: [ texts last next: aTextObject ].
texts add: aTextObject. texts add: aTextObject.
aTextObject propertyAt: #textStart put: lastStop. aTextObject propertyAt: #textStart put: lastStop.
lastStop := lastStop + aTextObject formattedText size. lastStop := lastStop + aTextObject text size.
aTextObject propertyAt: #textStop put: lastStop . aTextObject propertyAt: #textStop put: lastStop .
] ]

20
repository/Grafoscopio/GrafoscopioTextFormatter.class.st
View File

@ -20,7 +20,7 @@ Class {
#classInstVars : [ #classInstVars : [
'default' 'default'
], ],
#category : 'Grafoscopio-Pillar' #category : 'Grafoscopio-Pillar-TextFormat'
} }
{ #category : #accessing } { #category : #accessing }
@ -30,7 +30,10 @@ GrafoscopioTextFormatter class >> buildDefault [
new registerFormat: GrafoscopioFmtDoubleLinebreak instance forClass: PRHeader. new registerFormat: GrafoscopioFmtDoubleLinebreak instance forClass: PRHeader.
new registerFormat: GrafoscopioFmtAnchorOnTheLeft instance forClass: PRListItem. new registerFormat: GrafoscopioFmtAnchorOnTheLeft instance forClass: PRListItem.
new registerFormat: GrafoscopioFmtBeginningLinebreak instance forClass: PRListItem. new registerFormat: GrafoscopioFmtBeginningLinebreak instance forClass: PRListItem.
" new registerFormat: GrafoscopioFmtEndingLinebreak instance forClass: PRParagraph ."
" new registerFormat: GrafoscopioFmtDoubleLinebreak instance forClass: PRCodeblock ."
new registerFormat: GrafoscopioFmtAnchorOnTheLeft2 instance forClass: PRCodeblock .
new registerFormat: GrafoscopioFmtEndingLinebreak instance forClass: PRParagraph .
new registerFormat: GrafoscopioFmtBeginningLinebreak instance forClass: PRList. new registerFormat: GrafoscopioFmtBeginningLinebreak instance forClass: PRList.
new registerFormat: GrafoscopioFmtUrlAsBody instance forClass: PRExternalLink . new registerFormat: GrafoscopioFmtUrlAsBody instance forClass: PRExternalLink .
new registerFormat: GrafoscopioFmtEndingSpace instance forClass: PRExternalLink. new registerFormat: GrafoscopioFmtEndingSpace instance forClass: PRExternalLink.
@ -56,7 +59,7 @@ GrafoscopioTextFormatter class >> default [
{ #category : #initialization } { #category : #initialization }
GrafoscopioTextFormatter >> format: aNode [ GrafoscopioTextFormatter >> format: aNode [
(self formatsFor: aNode) do: [ :f | f beInstalledIn: aNode ]. (self formatsFor: aNode) do: [ :f | f beInstalledIn: aNode ]
] ]
{ #category : #initialization } { #category : #initialization }
@ -108,3 +111,14 @@ GrafoscopioTextFormatter >> visitDocumentItem: anItem [
self format: anItem. self format: anItem.
anItem parent: stack first. anItem parent: stack first.
] ]
{ #category : #initialization }
GrafoscopioTextFormatter >> visitEmptyParagraph: aParagraph [
stack top children last = aParagraph
ifTrue: [ stack top children: stack top children allButLast ].
]
{ #category : #'as yet unclassified' }
GrafoscopioTextFormatter >> visitFormatText: aGrafoscopioFormatTextNode [
" No way we format the formatted text. "
]

13
repository/Grafoscopio/PRCodeblock.extension.st Normal file
View File

@ -0,0 +1,13 @@
Extension { #name : #PRCodeblock }
{ #category : #'*Grafoscopio' }
PRCodeblock >> children [
^ self
propertyAt: #children
ifAbsentPut: [ { PRText new text: text; parent: self ;yourself } asOrderedCollection ]
]
{ #category : #'*Grafoscopio' }
PRCodeblock >> children: aCollection [
self propertyAt:#children put: aCollection.
]

8
repository/Grafoscopio/PRDocumentGroup.extension.st Normal file
View File

@ -0,0 +1,8 @@
Extension { #name : #PRDocumentGroup }
{ #category : #'*Grafoscopio' }
PRDocumentGroup >> children: anArrayOfChildren [
"Answer the children of the receiver."
children := anArrayOfChildren asArray
]

14
repository/Grafoscopio/PRLineBreak.extension.st
View File

@ -15,13 +15,6 @@ PRLineBreak >> isTextOrLineBreak [
^ true ^ true
] ]
{ #category : #'*Grafoscopio' }
PRLineBreak >> leftFormatSize [
^ self formats
inject: 0
into: [ :acc :f | acc + f leftSize ]
]
{ #category : #'*Grafoscopio' } { #category : #'*Grafoscopio' }
PRLineBreak >> next [ PRLineBreak >> next [
^ self propertyAt: #next ifAbsent: [ nil ] ^ self propertyAt: #next ifAbsent: [ nil ]
@ -32,13 +25,6 @@ PRLineBreak >> next: aText [
self propertyAt: #next put: aText self propertyAt: #next put: aText
] ]
{ #category : #'*Grafoscopio' }
PRLineBreak >> rightFormatSize [
^ self formats
inject: 0
into: [ :acc :f | acc + f rightSize ]
]
{ #category : #'*Grafoscopio' } { #category : #'*Grafoscopio' }
PRLineBreak >> text [ PRLineBreak >> text [
^ OSPlatform current lineEnding ^ OSPlatform current lineEnding

6
repository/Grafoscopio/PRLink.extension.st
View File

@ -1,6 +0,0 @@
Extension { #name : #PRLink }
{ #category : #'*Grafoscopio' }
PRLink >> children: aCollection [
children := aCollection
]

16
repository/Grafoscopio/PRList.extension.st Normal file
View File

@ -0,0 +1,16 @@
Extension { #name : #PRList }
{ #category : #'*Grafoscopio' }
PRList >> level [
| current level |
current := self.
level := 0.
[ current notNil ]
whileTrue: [
(current isKindOf: PRList) ifTrue: [
level := level + 1.
].
current := current parent
].
^ level
]

6
repository/Grafoscopio/PRPillarWriter.extension.st Normal file
View File

@ -0,0 +1,6 @@
Extension { #name : #PRPillarWriter }
{ #category : #'*Grafoscopio' }
PRPillarWriter >> visitFormatText: aGrafoscopioFormatTextNode [
" Do nothing "
]

21
repository/Grafoscopio/PRText.extension.st
View File

@ -1,24 +1,10 @@
Extension { #name : #PRText } Extension { #name : #PRText }
{ #category : #'*Grafoscopio' }
PRText >> formattedText [
^ self formats
inject: self text
into: [ :acc :f | f applyOn: acc from: self textStart to: self textStop ]
]
{ #category : #'*Grafoscopio' } { #category : #'*Grafoscopio' }
PRText >> isTextOrLineBreak [ PRText >> isTextOrLineBreak [
^ true ^ true
] ]
{ #category : #'*Grafoscopio' }
PRText >> leftFormatSize [
^ self formats
inject: 0
into: [ :acc :f | acc + f leftSize ]
]
{ #category : #'*Grafoscopio' } { #category : #'*Grafoscopio' }
PRText >> next [ PRText >> next [
^ self propertyAt: #next ifAbsent: [ nil ] ^ self propertyAt: #next ifAbsent: [ nil ]
@ -29,13 +15,6 @@ PRText >> next: aText [
self propertyAt: #next put: aText. self propertyAt: #next put: aText.
] ]
{ #category : #'*Grafoscopio' }
PRText >> rightFormatSize [
^ self formats
inject: 0
into: [ :acc :f | acc + f rightSize ]
]
{ #category : #'*Grafoscopio' } { #category : #'*Grafoscopio' }
PRText >> textStart: aValue [ PRText >> textStart: aValue [
^ self ^ self