"{ Encoding: utf8 }"

"
 COPYRIGHT (c) 2016 by Claus Gittinger
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libbasic2' }"

"{ NameSpace: Smalltalk }"

PrinterStream subclass:#HTMLPrinterStream
	instanceVariableNames:'htmlBuilder buffer currentStyle bold italic fontName'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Printing'
!

!HTMLPrinterStream class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2016 by Claus Gittinger
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
!

documentation
"
    A simple HTML generating printer stream.
    Useful to generate indented listings, which need to be included in
    an html document.
    Currently only supports bold and normal printing; 
    needs more care & feeding for italic, underline and colors.

    [see also:]
        PSPrinterStream PrinterStream PDFPrinterStream 

    [author:]
        Claus Gittinger
"
! !

!HTMLPrinterStream class methodsFor:'queries'!

isDrivenByCommand
    ^ false
!

printerTypeName
    "return a descriptive name"

    ^ 'HTML Printer'
!

supportsMargins
    ^ false
!

supportsPageSizes
    ^ false
!

supportsPostscript
    ^ false
!

supportsPrintingToFile
    ^ true
! !

!HTMLPrinterStream methodsFor:'accessing'!

htmlBuilder
    ^ htmlBuilder

    "Created: / 06-03-2017 / 18:19:34 / cg"
! !

!HTMLPrinterStream methodsFor:'emphasis'!

bold
    "switch to bold emphasis"

    bold ifFalse:[
        self flushBuffer.
        htmlBuilder bold.
        bold := true.
    ].
!

emphasis:anEmphasis
    self flushBuffer.
    super emphasis:anEmphasis.

"/    self setupFontTypeEmphasis.
"/    self setupColorFromEmphasis:anEmphasis.
"/    self setupUnderlineFromEmphasis:anEmphasis.
!

normal
    "back to normal (non-bold, non-italic) emphasis"
    
    bold ifTrue:[
        self flushBuffer.
        htmlBuilder boldEnd.
        bold := false.
    ].
! !

!HTMLPrinterStream methodsFor:'initialization'!

close
    self flushBuffer.
    bold ifTrue:[
        htmlBuilder boldEnd.
    ].
    htmlBuilder preEnd.
    htmlBuilder bodyEnd.
    htmlBuilder printHtmlOn:stream.
    super close.
!

initialize
    super initialize.
    
    HTML::TreeBuilder isNil ifTrue:[
        Smalltalk loadPackage:#'stx:goodies/webServer/htmlTree'
    ].    
    bold := italic := false.
    htmlBuilder := HTML::TreeBuilder new.
    htmlBuilder body.
    htmlBuilder pre.
! !

!HTMLPrinterStream methodsFor:'writing'!

cr
    self flushBuffer.
    super cr.
!

flushBuffer
    |style|

    buffer notNil ifTrue:[
        htmlBuilder text:buffer contents.
"/        bold ifTrue:[ style := self style:style with: htmlBuilder boldEnd ].
"/        italic ifTrue:[ htmlBuilder italicEnd ].
"/        underline ifTrue:[ htmlBuilder underlineEnd ].
"/        strikeout ifTrue:[ htmlBuilder strikeoutEnd ].
"/        
"/        redefinedStyle := PdfStyle redefine.
"/        redefinedStyle color:currentFontColor.
"/        redefinedStyle setFont:currentFontTypeEmphasis.
"/        redefinedStyle underlinedColor:currentUnderlineColor.
"/
"/        currentUnderlineBool ifTrue:[
"/            redefinedStyle underlined.
"/        ].
"/
"/        pdfDocumentEditor
"/            text:buffer contents
"/            style:redefinedStyle.

        buffer := nil.    
    ].
!

nextPut:aCharacter
    "append aCharacter.
     Answer the argument."

    buffer isNil ifTrue:[
        buffer := CharacterWriteStream new.
    ].
    buffer nextPut:aCharacter.
    ^ aCharacter
! !

!HTMLPrinterStream class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !