Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

PRRichTextComposerPRRichTextComposer - space too much in category name #9344

Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
14 changes: 7 additions & 7 deletions src/Pillar-ExporterRichText/PRRichTextComposer.class.st
Expand Up @@ -503,7 +503,7 @@ PRRichTextComposer >> visitBeginEnvironmentAnnotation: aBeginEnvironmentAnnotati
canvas << '>>> Environments not supported in RichText Pillar <<<' asText
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitBoldFormat: anObject [
canvas
includeAttribute: TextEmphasis bold
Expand Down Expand Up @@ -653,7 +653,7 @@ PRRichTextComposer >> visitHorizontalRule: anHorizontalLine [
canvas newLine.
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitItalicFormat: anObject [
canvas includeAttribute: TextEmphasis italic in: [ self visitFormat: anObject ]
]
Expand Down Expand Up @@ -697,7 +697,7 @@ PRRichTextComposer >> visitMathInTextAnnotation: aPRMathInTextAnnotation [
ifFalse: [ canvas << (PRCodeblockStylerExtensions latexMathStylerFor: aPRMathInTextAnnotation text)]
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitMonospaceFormat: anObject [
"Notice - I add a highlight to the backgorund rather than mono-spaced."
| backgroundColor sem |
Expand Down Expand Up @@ -761,19 +761,19 @@ PRRichTextComposer >> visitPreformatted: aPreformatted [
canvas newLine
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitStrikethroughFormat: anObject [
canvas includeAttribute: TextEmphasis struckOut in: [ self visitFormat: anObject ]
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitSubscriptFormat: anObject [
canvas
includeAttribute: self subscriptColor
in: [ self visitFormat: anObject ]
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitSuperscriptFormat: anObject [
canvas
includeAttribute: self superscriptColor
Expand All @@ -796,7 +796,7 @@ PRRichTextComposer >> visitText: anObject [
" - should not be necessary addAttribute: (TextIndent tabs: canvas nesting)"
]

{ #category : #'visiting - format' }
{ #category : #'visiting - format' }
PRRichTextComposer >> visitUnderlineFormat: anObject [
canvas includeAttribute: TextEmphasis underlined in: [ self visitFormat: anObject ]
]
Expand Down