Sahli/sahli.coffee

###
  .___________________________________,       ___
  |            /      |   |      .     \    .(___):
  |        _______    |          :      \   :     |
: |___/      /        |          |       \__|     |
|           /         |          |          |     |
l__________/__________|___|______l__________j_____j

     Ansi/Ansi Viewer in Ecmascript
 Coded by Sir Garbagetruck / Accession 2013
 Uses fonts by DMG, http://trueschool.se
 Uses Andy Herbert's Ansilove.js for rendering.
###

exports = Sahli

Sahli = ->
  @outbox = $('div#outbox')
  @dbox = $('div#drawbox')
  @image = 0
  # scroll speed of 5 looks ... "ok" on macbook pro. 4 was original.
  @scroll_speed = 5
  @scroll_direction = 1
  @zoomspeed = 200
  @asciiasgfx = true
  @DEBUG = false
  @dbox.height document.height - 24
  @dbox.width document.width - 2
  @sizemult = 16
  # 32 is larger than screen, and somewhat silly
  @origheight = 0
  @origwidth = 0
  @filedata = ''
  @slides = 0
  @currentpic = 0
  @nonfsheight = document.height - 40

  @loadpic = (picdata, inserthere) ->
    switch picdata.filetype
      when 'plain'
        @loadplain picdata, inserthere
      when 'ansi'
        @loadhugeansi picdata, inserthere
      when 'bin'
        @loadansi picdata, inserthere
      when 'xbin'
        @loadansi picdata, inserthere
      when 'ice'
        @loadansi picdata, inserthere
      when 'avatar'
        @loadavatar picdata, inserthere
      when 'pcboard'
        @loadansi picdata, inserthere
      when 'idf'
        @loadansi picdata, inserthere
      when 'adf'
        @loadansi picdata, inserthere
      when 'tundra'
        @loadansi picdata, inserthere
      else
        @loadplain picdata, inserthere
    return

  @loadplain = (picdata, inserthere) ->
    pdiv = $('<div>')
    req = new XMLHttpRequest
    fname = @location + '/' + picdata.file
    ptxt = $('<pre></pre>')
    color = @calccolor(picdata.color)
    bgcolor = @calccolor(picdata.bg)
    pdiv.addClass 'scrolly'
    ptxt.addClass picdata.font.toLowerCase()
    ptxt.css
      'color': color
      'background-color': bgcolor
      'margin': 'auto'
    ptxt.width picdata.width * 8
    pdiv.width '100%'
    pdiv.append ptxt
    # this is going to be interesting when dealing with ansi files in UTF-8
    # or SHIFT-JIS etc  - is it needed now?
    req.overrideMimeType 'text/plain; charset=ISO-8859-1'

    req.onreadystatechange = ->
      if req.readyState == req.DONE
        if req.status == 200 or req.status == 0
          ptxt.text @responseText
          inserthere.after pdiv
        else
          @loaderror inserthere, fname, req.statusText, req.status
      return

    req.open 'GET', fname, true
    req.send null
    return

  @loadansi = (picdata, inserthere) ->
    fname = @location + '/' + picdata.file
    pdiv = $('<div>')
    AnsiLove.render fname, ((canv, SAUCE) ->
      pdiv.append canv
      inserthere.after pdiv
      @origwidth = canv.width
      @origheight = canv.height
      @SAUCE = SAUCE
      return
    ),
      'font': '80x25'
      'bits': '8'
      'columns': 160
      'thumbnail': 0
    return

  @loadhugeansi = (picdata, inserthere) ->
    fname = @location + '/' + picdata.file
    pdiv = $('<div>')
    calcheight = 0
    canvwidth = 0
    pdiv.css 'display', 'inline-block'
    AnsiLove.splitRender fname, ((chunks, SAUCE) ->
      chunks.forEach (canv) ->
        canv.style.verticalAlign = 'bottom'
        pdiv.append canv
        calcheight = calcheight + canv.height
        canvwidth = canv.width
        return
      inserthere.after pdiv
      @SAUCE = SAUCE
      @origwidth = canvwidth
      @origheight = calcheight
      pdiv.width canvwidth
      return
    ), 30, 'bits': '8'
    return

  @loadavatar = (picdata, inserthere) ->
    alert 'avatar', picdata, inserthere
    return


  @resizedrawbox = (height) ->
    dbox1 = $('div#drawbox')
    if 'undefined' == height
      dbox1.height window.innerHeight - 2
    else
      dbox1.height height
    dbox1.width window.innerWidth - 2


  @requestsahlifile = (url) ->
    ref = this
    $.getJSON url, (json) ->
      ref.filedata = json.filedata
      ref.slides = json.slides
      ref.location = json.location
      ref.buildcompo()

  @buildcompo = ->
#    @resizedrawbox()
    alert 'SAHLI READY TO GO'

  @nextpic = ->
    @dbox.children().remove()
    # reset scrolling;
    @stopscroll()
    @scroll_direction = 1
    i = @currentpic
    filedata = @filedata
    filedata[i].pic = $('<h6>' + filedata[i].file + '</h6>')
    @dbox.append filedata[i].pic
    @loadpic filedata[i], filedata[i].pic
    @currentpic += 1
    if @currentpic > filedata.length - 1
      @currentpic = 0
    return

  @gofullscreen = ->
    docElm = document.documentElement
    window.setTimeout @resizedrawbox, 100
    if docElm.requestFullscreen
      docElm.requestFullscreen Element.ALLOW_KEYBOARD_INPUT
    else if docElm.mozRequestFullScreen
      docElm.mozRequestFullScreen Element.ALLOW_KEYBOARD_INPUT
    else if docElm.webkitRequestFullScreen
      docElm.webkitRequestFullScreen Element.ALLOW_KEYBOARD_INPUT
    return

  @cancelfullscreen = ->
    window.setTimeout @resizedrawbox, 100, @nonfsheight
    if document.exitFullscreen
      document.exitFullscreen()
    else if document.mozCancelFullScreen
      document.mozCancelFullScreen()
    else if document.webkitCancelFullScreen
      document.webkitCancelFullScreen()
    return

  @fixhelpbox = ->
    h = $('.help')
    xy =
      'top': 0
      'left': document.width / 2 - h.width() / 2
    h.css xy
    return

  @toggledebug = ->
    $('h1#top').fadeToggle()
    @DEBUG = !@DEBUG
    return


  @loadkeys()
  @fixhelpbox()
  ref = this
  $(window).resize ->
    ref.resizedrawbox()
    return
  debugger
  @requestsahlifile 'list.sahli'
  return