+ if found?
+ return [found, 0]
+ return null
+
+find_prev_cursor_position = (tree, n, i) ->
+ if n? and n.type is TYPE_TEXT and i > 0
+ orig_xyh = cursor_to_xyh n, i
+ unless orig_xyh?
+ console.log "ERROR: couldn't find xy for current cursor location"
+ return
+ for prev_i in [i-1 .. 0]
+ prev_xyh = cursor_to_xyh n, prev_i
+ if prev_xyh?
+ if prev_xyh.x < orig_xyh.x or prev_xyh.y < orig_xyh.y
+ return [n, prev_i]
+ return [n, i - 1]
+ found_prev = n?
+ found = null
+ traverse_tree tree, (node) ->
+ if node.type is TYPE_TEXT
+ if node is n
+ if found_prev?
+ found = found_prev
+ return true
+ found_prev = node
+ return false
+ if found?
+ if cursor_to_xyh found, found.text.length # text visible?
+ return [found, found.text.length]
+ return find_prev_cursor_position tree, ret[0], 0
+ return null
+
+find_loc_cursor_position = (tree, loc) ->
+ for c in tree
+ if c.type is TYPE_TAG or c.type is TYPE_TEXT
+ bounds = get_el_bounds c.el
+ continue if loc.x < bounds.x
+ continue if loc.x > bounds.x + bounds.w
+ continue if loc.y < bounds.y
+ continue if loc.y > bounds.y + bounds.h
+ if c.children.length
+ ret = find_loc_cursor_position c.children, loc
+ return ret if ret?
+ if c.type is TYPE_TEXT
+ # click is within bounding box that contains all text.
+ return [c, 0] if c.text.length is 0
+ before_i = 0
+ before = cursor_to_xyh c, before_i
+ unless before?
+ console.log "error: failed to find cursor pixel location for start of", c
+ return
+ after_i = c.text.length
+ after = cursor_to_xyh c, after_i
+ unless after?
+ console.log "error: failed to find cursor pixel location for end of", c
+ return
+ if loc.y < before.y + before.h and loc.x < before.x
+ # console.log 'before first char on first line'
+ continue
+ if loc.y > after.y and loc.x > after.x
+ # console.log 'after last char on last line'
+ continue
+ if loc.y < before.y
+ console.log "Warning: click in bounding box but above first line"
+ continue # above first line (runaround?)
+ if loc.y > after.y + after.h
+ console.log "Warning: click in bounding box but below last line", loc.y, after.y, after.h
+ continue # below last line (shouldn't happen?)
+ while after_i - before_i > 1
+ cur_i = Math.round((before_i + after_i) / 2)
+ cur = cursor_to_xyh c, cur_i
+ unless loc?
+ console.log "error: failed to find cursor pixel location for", c, cur_i
+ return
+ if loc.y < cur.y or (loc.y <= cur.y + cur.h and loc.x < cur.x)
+ after_i = cur_i
+ after = cur
+ else
+ before_i = cur_i
+ before = cur
+ # which one is closest?
+ if Math.abs(before.x - loc.x) < Math.abs(after.x - loc.x)
+ return [c, before_i]
+ else
+ return [c, after_i]
+ return null
+
+# browsers collapse these (html5 spec calls these "space characters")
+is_space_code = (char_code) ->
+ switch char_code
+ when 9, 10, 12, 13, 32
+ return true
+ return false
+is_space = (chr) ->
+ return is_space_code chr.charCodeAt 0
+
+tree_remove_empty_text_nodes = (tree) ->
+ empties = []
+ traverse_tree tree, (n) ->
+ if n.type is TYPE_TEXT
+ if n.text.length is 0
+ empties.unshift n
+ return false
+ for n in empties
+ # don't completely empty the tree
+ if tree.length is 1
+ if tree[0].type is TYPE_TEXT
+ console.log "oop, leaving a blank node because it's the only thing"
+ return
+ n.el.parentNode.removeChild n.el
+ for c, i in n.parent.children
+ if c is n
+ n.parent.children.splice i, 1
+ break
+
+# pass a array of nodes (from parser library, ie it should have .el and .text)
+tree_dedup_space = (tree) ->
+ prev = cur = next = null
+ prev_i = cur_i = next_i = 0
+ prev_pos = pos = next_pos = null
+ prev_px = cur_px = next_px = null
+ first = true
+ removed_char = null
+
+ tree_remove_empty_text_nodes(tree)
+
+ iterate = (tree, cb) ->
+ for n in tree
+ if n.type is TYPE_TEXT
+ i = 0
+ while i < n.text.length # don't foreach, cb might remove chars
+ advance = cb n, i
+ if advance
+ i += 1
+ if n.type is TYPE_TAG
+ block = is_display_block n.el
+ if block
+ cb null
+ if n.children.length > 0
+ iterate n.children, cb
+ if block
+ cb null
+ # remove cur char
+ remove = ->
+ removed_char = cur.text.charAt(cur_i)
+ cur.el.textContent = cur.text = (cur.text.substr 0, cur_i) + (cur.text.substr cur_i + 1)
+ if next is cur # in same text node
+ if next_i is 0
+ throw "how is this possible?"
+ next_i -= 1
+ return true
+ # undo remove()
+ put_it_back = ->
+ cur.el.textContent = cur.text = (cur.text.substr 0, cur_i) + removed_char + (cur.text.substr cur_i)
+ if next is cur # in same text node
+ next_i += 1
+ return false
+ # return true if cur was removed from the dom (ie re-use same prev)
+ operate = ->
+ # cur definitately set
+ # prev and/or next might be null, indicating the start/end of a display:block
+ return false unless is_space_code cur.text.charCodeAt cur_i
+ bounds = text_range_bounds cur.el, cur_i, cur_i + 1
+ # consistent cases:
+ # 1. zero rects returned by getClientRects() means collapsed space
+ if bounds is null
+ return remove()
+ # 2. width greater than zero means visible space
+ if bounds.w > 0
+ return false
+ # now the weird edge cases...
+ #
+ # firefox and chromium both report zero width for characters at the end
+ # of a line where the text wraps (automatically, due to word-wrap) to
+ # the next line. These do not appear to be distinguishable from
+ # collapsed spaces via the range/bounds api, so...
+ #
+ # remove it from the dom, and if prev or next moves, put it back.
+ if prev? and not prev_px?
+ prev_px = cursor_to_xyh prev, prev_i
+ if next? and not next_px?
+ next_px = cursor_to_xyh next, next_i
+ #if prev is null and next is null
+ # parent_px = cur.parent.el.getBoundingClientRect()
+ remove()
+ if prev?
+ if prev_px?
+ new_prev_px = cursor_to_xyh prev, prev_i
+ if new_prev_px.x isnt prev_px.x or new_prev_px.y isnt prev_px.y
+ return put_it_back()
+ else
+ console.log "this shouldn't happen, we remove spaces that don't locate"
+ if next?
+ if next_px?
+ new_next_px = cursor_to_xyh next, next_i
+ if new_next_px.x isnt next_px.x or new_next_px.y isnt next_px.y
+ return put_it_back()
+ #else
+ # console.log "removing space becase space after it is collapsed"
+ return true
+ # pass null at start/end of display:block
+ queue = (n, i) ->
+ next = n
+ next_i = i
+ next_px = null
+ advance = true
+ if cur?
+ removed = operate()
+ # don't advance (to the next character next time) if we removed a
+ # character from the same text node as ``next``, because doing so
+ # renumbers the indexes in that string
+ if removed and cur is next
+ advance = false
+ else
+ removed = false
+ unless removed
+ prev = cur
+ prev_i = cur_i
+ prev_px = cur_px
+ cur = next
+ cur_i = next_i
+ cur_px = next_px
+ return advance
+ queue null
+ iterate tree, queue
+ queue null
+
+ tree_remove_empty_text_nodes(tree)
+
+class PeachHTML5Editor
+ # Options: (all optional)
+ # editor_id: "id" attribute for outer-most element created by/for editor
+ # on_init: callback for when the editable content is in place
+ constructor: (in_el, options) ->
+ @options = options ? {}
+ @in_el = in_el
+ @tree = []
+ @inited = false # when iframes have loaded
+ @outer_iframe # iframe to hold editor
+ @outer_idoc # "document" object for @outer_iframe
+ @iframe = null # iframe to hold editable content
+ @idoc = null # "document" object for @iframe
+ @cursor = null
+ @cursor_el = null
+ @cursor_visible = false
+ opt_fragment = @options.fragment ? true
+ @parser_opts = {}
+ if opt_fragment
+ @parser_opts.fragment = 'body'
+
+ @outer_iframe = domify document, iframe: {}
+ outer_iframe_style = 'border: none !important; margin: 0 !important; padding: 0 !important; height: 100% !important; width: 100% !important;'
+ if @options.editor_id?
+ @outer_iframe.setAttribute 'id', @options.editor_id
+ @outer_iframe.onload = =>
+ @outer_idoc = @outer_iframe.contentDocument
+ icss = domify @outer_idoc, style: children: [
+ domify @outer_idoc, text: css
+ ]
+ @outer_idoc.head.appendChild icss
+ @iframe = domify @outer_idoc, iframe: {}
+ @iframe.onload = =>
+ @init()
+ setTimeout (=> @init() unless @inited), 200 # firefox never fires this onload
+ @outer_idoc.body.appendChild(
+ domify @outer_idoc, div: id: 'wrap1', children: [
+ domify @outer_idoc, div: id: 'wrap2', children: [
+ domify @outer_idoc, div: id: 'wrap3', children: [
+ @iframe
+ @overlay = domify @outer_idoc, div: id: 'overlay'
+ ]
+ ]
+ ]
+ )
+ outer_wrap = domify document, div: class: 'peach_html5_editor'
+ @in_el.parentNode.appendChild outer_wrap
+ outer_bounds = get_el_bounds outer_wrap
+ if outer_bounds.w < 300
+ outer_bounds.w = 300
+ if outer_bounds.h < 300
+ outer_bounds.h = 300
+ outer_iframe_style += "width: #{outer_bounds.w}px; height: #{outer_bounds.h}px;"
+ @outer_iframe.setAttribute 'style', outer_iframe_style
+ css = outer_css w: outer_bounds.w, h: outer_bounds.h
+ outer_wrap.appendChild @outer_iframe
+ init: -> # called by @iframe's onload (or timeout on firefox)
+ @idoc = @iframe.contentDocument
+ @overlay.onclick = (e) =>
+ return event_return e, @onclick e
+ @overlay.ondoubleclick = (e) =>
+ return event_return e, @ondoubleclick e
+ @outer_idoc.body.onkeyup = (e) =>
+ return event_return e, @onkeyup e
+ @outer_idoc.body.onkeydown = (e) =>
+ return event_return e, @onkeydown e
+ @outer_idoc.body.onkeypress = (e) =>
+ return event_return e, @onkeypress e
+ if @options.stylesheet
+ # TODO test this
+ @idoc.head.appendChild domify @idoc, style: src: @options.stylesheet
+ @load_html @in_el.value
+ @inited = true
+ if @options.on_init?
+ @options.on_init()
+ onclick: (e) ->
+ x = (e.offsetX ? e.layerX) - overlay_padding
+ y = (e.offsetY ? e.layerY) - overlay_padding
+ new_cursor = find_loc_cursor_position @tree, x: x, y: y
+ if new_cursor?
+ @move_cursor new_cursor
+ return false
+ ondoubleclick: (e) ->
+ return false
+ onkeyup: (e) ->
+ return if e.ctrlKey
+ return false if ignore_key_codes[e.keyCode]?
+ #return false if control_key_codes[e.keyCode]?
+ onkeydown: (e) ->
+ return if e.ctrlKey
+ return false if ignore_key_codes[e.keyCode]?
+ #return false if control_key_codes[e.keyCode]?
+ switch e.keyCode
+ when KEY_LEFT
+ if @cursor?
+ new_cursor = find_prev_cursor_position @tree, @cursor...
+ if new_cursor?
+ @move_cursor new_cursor
+ else
+ for c in @tree
+ new_cursor = find_next_cursor_position @tree, c, -1
+ if new_cursor?
+ @move_cursor new_cursor
+ break
+ return false
+ when KEY_UP
+ return false
+ when KEY_RIGHT
+ if @cursor?
+ new_cursor = find_next_cursor_position @tree, @cursor...
+ if new_cursor?
+ @move_cursor new_cursor
+ else
+ for c in @tree
+ new_cursor = find_prev_cursor_position @tree, c, -1
+ if new_cursor?
+ @move_cursor new_cursor
+ break
+ return false
+ when KEY_DOWN
+ return false
+ when KEY_END
+ return false
+ when KEY_BACKSPACE
+ return false unless @cursor?
+ return false unless @cursor[1] > 0
+ @cursor[0].text = @cursor[0].text.substr(0, @cursor[1] - 1) + @cursor[0].text.substr(@cursor[1])
+ @cursor[0].el.nodeValue = @cursor[0].text
+ @move_cursor [@cursor[0], @cursor[1] - 1]
+ return false
+ when KEY_DELETE
+ return false unless @cursor?
+ return false unless @cursor[1] < @cursor[0].text.length
+ @cursor[0].text = @cursor[0].text.substr(0, @cursor[1]) + @cursor[0].text.substr(@cursor[1] + 1)
+ @cursor[0].el.nodeValue = @cursor[0].text
+ @move_cursor [@cursor[0], @cursor[1]]
+ return false
+ when KEY_ENTER
+ return false
+ when KEY_ESCAPE
+ return false
+ when KEY_HOME
+ return false
+ when KEY_INSERT
+ return false
+ when KEY_PAGE_UP
+ return false
+ when KEY_PAGE_DOWN
+ return false
+ when KEY_TAB
+ return false
+ onkeypress: (e) ->
+ return if e.ctrlKey
+ return false if ignore_key_codes[e.keyCode]?
+ return false if control_key_codes[e.keyCode]? # handled in keydown
+ char = e.charCode ? e.keyCode
+ if char and @cursor?
+ char = String.fromCharCode char
+ if @cursor[1] is 0
+ @cursor[0].text = char + @cursor[0].text
+ else if @cursor[1] is @cursor[0].text.length - 1
+ @cursor[0].text += char
+ else
+ @cursor[0].text =
+ @cursor[0].text.substr(0, @cursor[1]) +
+ char +
+ @cursor[0].text.substr(@cursor[1])
+ @cursor[0].el.nodeValue = @cursor[0].text
+ @move_cursor [@cursor[0], @cursor[1] + 1]
+ @changed()
+ return false
+ clear_dom: -> # remove all the editable content (and cursor, overlays, etc)
+ while @idoc.body.childNodes.length
+ @idoc.body.removeChild @idoc.body.childNodes[0]
+ @kill_cursor()
+ return
+ load_html: (html) ->
+ @tree = peach_parser.parse html, @parser_opts
+ @clear_dom()
+ instantiate_tree @tree, @idoc.body
+ tree_dedup_space @tree
+ @changed()
+ changed: ->
+ @in_el.onchange = null
+ @in_el.value = tree_to_html @tree
+ @in_el.onchange = =>
+ @load_html @in_el.value
+ @iframe.style.height = "0"
+ @iframe.style.height = "#{@idoc.body.scrollHeight}px"
+ kill_cursor: -> # remove it, forget where it was
+ if @cursor_visible
+ @cursor_el.parentNode.removeChild @cursor_el
+ @cursor_visible = false
+ @cursor = null
+ move_cursor: (cursor) ->
+ loc = cursor_to_xyh cursor[0], cursor[1]
+ unless loc?
+ console.log "error: tried to move cursor to position that has no pixel location", cursor[0], cursor[1]
+ return
+ @cursor = cursor
+ # replace cursor element, to reset blink animation
+ if @cursor_visible
+ @cursor_el.parentNode.removeChild @cursor_el
+ @cursor_el = domify @outer_idoc, div: id: 'cursor'
+ @overlay.appendChild @cursor_el
+ @cursor_visible = true
+ @cursor_el.style.left = "#{loc.x + overlay_padding - 1}px"
+ @cursor_el.style.top = "#{loc.y + overlay_padding}px"
+
+window.peach_html5_editor = (args...) ->
+ return new PeachHTML5Editor args...