writing line breaks

Author: JanBliznicenko

repository/OP-XMI/OPXMIWriterVisitor.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'writer'
 	],
-	#category : 'OP-XMI-Writer'
+	#category : #'OP-XMI-Writer'
 }
 
 { #category : #accessing }
@@ -16,7 +16,8 @@ OPXMIWriterVisitor >> contents [
 OPXMIWriterVisitor >> initialize [
 	super initialize.
 	writer := XMLWriter new.
-	writer enablePrettyPrinting.
+	writer formatter: OPXMLPrettyPrintingWriterFormatter new.
+	writer lineBreak: '
'.
 	writer xml encoding: 'UTF-8'
 ]
 

repository/OP-XMI/OPXMLPrettyPrintingWriterFormatter.class.st

@@ -0,0 +1,27 @@
+Class {
+	#name : #OPXMLPrettyPrintingWriterFormatter,
+	#superclass : #XMLPrettyPrintingWriterFormatter,
+	#instVars : [
+		'lineBreak'
+	],
+	#category : #'OP-XMI-Writer'
+}
+
+{ #category : #writing }
+OPXMLPrettyPrintingWriterFormatter >> lineBreak: aCharacterOrString [
+	lineBreak := aCharacterOrString asString
+]
+
+{ #category : #writing }
+OPXMLPrettyPrintingWriterFormatter >> writeLineBreak [
+	self writer atBeginning
+		ifFalse: [ self writer nextPutAll: lineBreak.
+			(self currentIndentLevel > 0 and: [ self indentString size > 0 ])
+				ifTrue: [ self writeIndent ] ]
+]
+
+{ #category : #writing }
+OPXMLPrettyPrintingWriterFormatter >> writer: aWriter [
+	super writer: aWriter.
+	lineBreak ifNil: [ lineBreak := aWriter lineBreak ]
+]