Rescuing the writer so that we can compile books

Author: Ducasse

src/Pillar-ExporterCore/PRAbstractOutputDocument.class.st

@@ -200,3 +200,17 @@ PRAbstractOutputDocument >> writeDocument: aDocument [
 	outputFile writeStreamDo: [ :stream | stream nextPutAll: templatedOutput ].
 	^ outputFile
 ]
+
+{ #category : 'accessing' }
+PRAbstractOutputDocument >> writer [
+	
+	"If templating is active in the command, use the templated writer"
+	| writer |
+	writer := self basicWriter.
+	"project isTemplatable ifTrue: [ 
+		writer := PRTemplatedWriter new
+			outputDocument: self;
+			defaultWriter: writer;
+			yourself ]."
+	^ writer
+]

src/Pillar-ExporterHTML/PRXHtmlDocument.class.st

@@ -7,8 +7,9 @@ Class {
 
 { #category : 'accessing' }
 PRXHtmlDocument >> basicWriter [
+	self halt.
 
-	^ PRXHTMLWriter new
+	^ self "was PRXHTMLWriter new"
 ]
 
 { #category : 'accessing' }