X-Git-Url: https://jasonwoof.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=editor.coffee;h=d8e482d31f35867ecb599a992863b063476ed579;hb=aac46ddccea6bf7604866552730e6da73034ca87;hp=370f2a1d457c42efdc233f7a7bf525da5c008d43;hpb=ff17526a0c6a8c8e962a81f8e8b6a3f44053fef1;p=peach-html5-editor.git
diff --git a/editor.coffee b/editor.coffee
index 370f2a1..d8e482d 100644
--- a/editor.coffee
+++ b/editor.coffee
@@ -16,22 +16,69 @@
# SETTINGS
overlay_padding = 10
+breathing_room = 30 # minimum pixels above/below cursor (scrolling)
-TYPE_TAG = peach_parser.TYPE_TAG
-TYPE_TEXT = peach_parser.TYPE_TEXT
-TYPE_COMMENT = peach_parser.TYPE_COMMENT
-TYPE_DOCTYPE = peach_parser.TYPE_DOCTYPE
+timeout = (ms, cb) -> return setTimeout cb, ms
+next_frame = (cb) ->
+ if (window.requestAnimationFrame?)
+ window.requestAnimationFrame cb
+ else
+ timeout 16, cb
+
+this_url_sans_path = ->
+ ret = "#{window.location.href}"
+ clip = ret.lastIndexOf '#'
+ if clip > -1
+ ret = ret.substr 0, clip
+ clip = ret.lastIndexOf '?'
+ if clip > -1
+ ret = ret.substr 0, clip
+ clip = ret.lastIndexOf '/'
+ if clip > -1
+ ret = ret.substr 0, clip + 1
+ return ret
+
+# table too look up the properties of various values for css's white-space
+ws_props =
+ normal:
+ space: false # spaces are not preserved/rendered
+ newline: false # newlines are not preserved/rendered
+ wrap: true # text is word-wrapped
+ to_preserve: 'pre-wrap' # to preservespaces, change white-space to this
+ nowrap:
+ space: false
+ newline: false
+ wrap: false
+ to_preserve: 'pre'
+ 'pre-line':
+ space: false
+ newline: true
+ wrap: true
+ to_preserve: 'pre-wrap'
+ pre:
+ space: true
+ newline: true
+ wrap: false
+ to_collapse: 'nowrap'
+ 'pre-wrap':
+ space: true
+ newline: true
+ wrap: true
+ to_collapse: 'normal'
+
+# xml 1.0 spec, chromium and firefox accept these, plus lots of unicode chars
+valid_attr_regex = new RegExp '^[a-zA-Z_:][-a-zA-Z0-9_:.]*$'
+# html5 spec is much more lax, but chromium won't let me make at attribute with the name "4"
+js_attr_regex = new RegExp '^[oO][nN].'
+# html5 spec says that only these characters are collapsable
+multi_sp_regex = new RegExp '[\u0020\u0009\u000a\u000c\u000d][\u0020\u0009\u000a\u000c\u000d]'
-debug_dot_at = (doc, x, y) ->
- return # disabled
- el = doc.createElement 'div'
- el.setAttribute 'style', "position: absolute; left: #{x}px; top: #{y}px; width: 1px; height: 3px; background-color: red"
- doc.body.appendChild el
- #console.log(new Error().stack)
+str_has_ws_run = (str) ->
+ return multi_sp_regex.test str
# text nodes don't have getBoundingClientRect(), so use selection api to find
# it.
-get_el_bounds = (el) ->
+get_el_bounds = window.bounds = (el) ->
if el.getBoundingClientRect?
rect = el.getBoundingClientRect()
else
@@ -56,6 +103,15 @@ is_display_block = (el) ->
else
return window.getComputedStyle(el, null).getPropertyValue('display') is 'block'
+# Pass return value from dom event handlers to this.
+# If they return false, this will addinionally stop propagation and default.
+event_return = (e, bool) ->
+ if bool is false
+ if e.stopPropagation?
+ e.stopPropagation()
+ if e.preventDefault?
+ e.preventDefault()
+ return bool
# Warning: currently assumes you're asking about a single character
# Note: chromium returns multiple bounding rects for a space at a line-break
# Note: chromium's getBoundingClientRect() is broken (when zero-area client rects)
@@ -66,7 +122,13 @@ text_range_bounds = (el, start, end) ->
range.setEnd el, end
rects = range.getClientRects()
if rects.length > 0
- rect = rects[0]
+ if rects.length > 1
+ if rects[1].width > rects[0].width
+ rect = rects[1]
+ else
+ rect = rects[0]
+ else
+ rect = rects[0]
else
return null
doc = el.ownerDocument.documentElement
@@ -82,22 +144,42 @@ text_range_bounds = (el, start, end) ->
bounding: range.getBoundingClientRect()
}
-# figure out the x/y coordinates of where the cursor should be if it's at
-# position ``i`` within text node ``n``
-# sometimes returns null (eg for whitespace that is not visible)
-window.cursor_to_xyh = cursor_to_xyh = (n, i) ->
- range = document.createRange()
- if n.text.length is 0
- ret = text_range_bounds n.el, 0, 0
- if i is n.text.length
- ret = text_range_bounds n.el, i - 1, i
+class CursorPosition
+ constructor: (args) ->
+ @n = args.n ? null
+ @i = args.i ? null
+ if args.x?
+ @x = args.x
+ @y = args.y
+ @h = args.h
+ else
+ @set_xyh()
+ return
+ set_xyh: ->
+ range = document.createRange()
+ if @n.text.length is 0
+ ret = text_range_bounds @n.el, 0, 0
+ else if @i is @n.text.length
+ ret = text_range_bounds @n.el, @i - 1, @i
+ if ret?
+ ret.x += ret.w
+ else
+ ret = text_range_bounds @n.el, @i, @i + 1
if ret?
- ret.x += ret.w
- else
- ret = text_range_bounds n.el, i, i + 1
- if ret?
- debug_dot_at n.el.ownerDocument, ret.x, ret.y
- return ret
+ @x = ret.x
+ @y = ret.y
+ @h = ret.h
+ else
+ @x = null
+ @y = null
+ @h = null
+ return ret
+
+new_cursor_position = (args) ->
+ ret = new CursorPosition args
+ if ret.x?
+ return ret
+ return null
# encode text so it can be safely placed inside an html attribute
enc_attr_regex = new RegExp '(&)|(")|(\u00A0)', 'g'
@@ -130,37 +212,16 @@ void_elements = {
track: true
wbr: true
}
-dom_to_html = (dom) ->
- ret = ''
- for el in dom
- switch el.type
- when TYPE_TAG
- ret += '<' + el.name
- attr_keys = []
- for k of el.attrs
- attr_keys.unshift k
- #attr_keys.sort()
- for k in attr_keys
- ret += " #{k}"
- if el.attrs[k].length > 0
- ret += "=\"#{enc_attr el.attrs[k]}\""
- ret += '>'
- unless void_elements[el.name]
- if el.children.length
- ret += dom_to_html el.children
- ret += "#{el.name}>"
- when TYPE_TEXT
- ret += enc_text el.text
- when TYPE_COMMENT
- ret += ""
- when TYPE_DOCTYPE
- ret += " 0
- ret += " \"#{el.public_identifier}\""
- if el.system_identifier? and el.system_identifier.length > 0
- ret += " \"#{el.system_identifier}\""
- ret += ">\n"
- return ret
+# TODO make these always pretty-print (on the inside) like blocks
+no_text_elements = { # these elements never contain text
+ select: true
+ table: true
+ tr: true
+ thead: true
+ tbody: true
+ ul: true
+ ol: true
+}
domify = (doc, hash) ->
for tag, attrs of hash
@@ -175,69 +236,16 @@ domify = (doc, hash) ->
el.setAttribute k, v
return el
-outer_css = (args) ->
- w = args.w ? 300
- h = args.h ? 300
- inner_padding = args.inner_padding ? overlay_padding
- frame_width = args.frame_width ? inner_padding
- # TODO editor controls height...
- shrink = (px) ->
- w -= 2 * px
- h -= 2 * px
- return px
- ret = ''
- ret += 'body {'
- ret += 'margin: 0;'
- ret += 'padding: 0;'
- ret += '}'
- ret += '#wrap1 {'
- ret += "border: #{shrink 1}px solid black;"
- ret += "padding: #{shrink frame_width}px;"
- ret += '}'
- ret += '#wrap2 {'
- ret += "border: #{shrink 1}px solid black;"
- ret += "padding: #{shrink inner_padding}px;"
- ret += '}'
- ret += '#wrap3 {'
- ret += 'position: relative;'
- ret += '}'
- ret += 'iframe {'
- ret += 'box-sizing: border-box;'
- ret += 'margin: 0;'
- ret += 'border: none;'
- ret += 'padding: 0;'
- ret += "width: #{w}px;"
- ret += "height: #{h}px;"
- ret += '}'
- ret += '#overlay {'
- ret += 'position: absolute;'
- ret += "left: -#{inner_padding}px;"
- ret += "top: -#{inner_padding}px;"
- ret += "right: -#{inner_padding}px;"
- ret += "bottom: -#{inner_padding}px;"
- ret += 'overflow: hidden;'
- ret += '}'
- ret += '.lightbox {'
- ret += 'position: absolute;'
- ret += 'background: rgba(100,100,100,0.2);'
- ret += '}'
- ret += '#cursor {'
- ret += 'position: absolute;'
- ret += 'height: 1em;' # FIXME adjust for hight of text
- ret += 'width: 2px;'
- ret += 'background: #444;'
- ret += '-webkit-animation: blink 1s steps(2, start) infinite;'
- ret += 'animation: blink 1s steps(2, start) infinite;'
- ret += '}'
- ret += '@-webkit-keyframes blink {'
- ret += 'to { visibility: hidden; }'
- ret += '}'
- ret += '@keyframes blink {'
- ret += 'to { visibility: hidden; }'
- ret += '}'
- return ret
-# key codes:
+
+ignore_key_codes =
+ '18': true # alt
+ '20': true # capslock
+ '17': true # ctrl
+ '144': true # numlock
+ '16': true # shift
+ '91': true # windows "start" key
+# key codes: (valid on keydown, not keypress)
KEY_LEFT = 37
KEY_UP = 38
KEY_RIGHT = 39
@@ -252,14 +260,6 @@ KEY_INSERT = 45
KEY_PAGE_UP = 33
KEY_PAGE_DOWN = 34
KEY_TAB = 9
-
-ignore_key_codes =
- '18': true # alt
- '20': true # capslock
- '17': true # ctrl
- '144': true # numlock
- '16': true # shift
- '91': true # windows "start" key
control_key_codes = # we react to these, but they aren't typing
'37': KEY_LEFT
'38': KEY_UP
@@ -280,136 +280,213 @@ instantiate_tree = (tree, parent) ->
remove = []
for c, i in tree
switch c.type
- when TYPE_TEXT
+ when 'text'
c.el = parent.ownerDocument.createTextNode c.text
parent.appendChild c.el
- when TYPE_TAG
+ when 'tag'
if c.name in ['script', 'object', 'iframe', 'link']
# TODO put placeholders instead
remove.unshift i
+ continue
# TODO create in correct namespace
c.el = parent.ownerDocument.createElement c.name
for k, v of c.attrs
# FIXME if attr_whitelist[k]?
- c.el.setAttribute k, v
+ if valid_attr_regex.test k
+ unless js_attr_regex.test k
+ c.el.setAttribute k, v
parent.appendChild c.el
if c.children.length
instantiate_tree c.children, c.el
for i in remove
tree.splice i, 1
-traverse_tree = (tree, state, cb) ->
+traverse_tree = (tree, cb) ->
+ done = false
for c in tree
- cb c, state
- break if state.done?
+ done = cb c
+ return done if done
if c.children.length
- traverse_tree c.children, state, cb
- break if state.done?
- return state
-# find the next element in tree (and decendants) that is after n and can contain text
-# TODO make it so cursor can go places that don't have text but could
-find_next_cursor_position = (tree, n, i) ->
- if n? and n.type is TYPE_TEXT and n.text.length > i
- orig_xyh = cursor_to_xyh n, i
- unless orig_xyh?
- console.log "ERROR: couldn't find xy for current cursor location"
- return
- for next_i in [i+1 .. n.text.length] # inclusive is valid (after last char)
- next_xyh = cursor_to_xyh n, next_i
- if next_xyh?
- if next_xyh.x > orig_xyh.x or next_xyh.y > orig_xyh.y
- return [n, next_i]
- found = traverse_tree tree, before: n?, (node, state) ->
- if node.type is TYPE_TEXT and state.before is false
- state.node = node
- state.done = true
- if node is n
- state.before = false
- if found.node?
- return [found.node, 0]
- return null
+ done = traverse_tree c.children, cb
+ return done if done
+ return done
-# TODO make it so cursor can go places that don't have text but could
-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 = traverse_tree tree, before: n?, (node, state) ->
- if node.type is TYPE_TEXT
- unless n?
- state.node = node
- state.done = true
- if node is n
- if state.prev?
- state.node = state.prev
- state.done = true
- if node
- state.prev = node
- if found.node?
- return [found.node, found.node.text.length]
+first_cursor_position = (tree) ->
+ found = null
+ traverse_tree tree, (node, state) ->
+ if node.type is 'text'
+ cursor = new_cursor_position n: node, i: 0
+ if cursor?
+ found = cursor
+ return true # done traversing
+ return false # not done traversing
+ return found # maybe null
+
+# this will fail when text has non-locatable cursor positions
+find_next_cursor_position = (tree, cursor) ->
+ if cursor.n.type is 'text' and cursor.n.text.length > cursor.i
+ new_cursor = new_cursor_position n: cursor.n, i: cursor.i + 1
+ if new_cursor?
+ return new_cursor
+ state_before = true
+ found = null
+ traverse_tree tree, (node, state) ->
+ if node.type is 'text' and state_before is false
+ new_cursor = new_cursor_position n: node, i: 0
+ if new_cursor?
+ found = new_cursor
+ return true # done traversing
+ if node is cursor.n
+ state_before = false
+ return false # not done traversing
+ if found?
+ return found
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
+last_cursor_position = (tree) ->
+ found = null
+ traverse_tree tree, (node) ->
+ if node.type is 'text'
+ cursor = new_cursor_position n: node, i: node.text.length
+ if cursor?
+ found = cursor
+ return false # not done traversing
+ return found # maybe null
+
+# this will fail when text has non-locatable cursor positions
+find_prev_cursor_position = (tree, cursor) ->
+ if cursor.n.type is 'text' and cursor.i > 0
+ new_cursor = new_cursor_position n: cursor.n, i: cursor.i - 1
+ if new_cursor?
+ return new_cursor
+ found_prev = null
+ found = null
+ traverse_tree tree, (node) ->
+ if node is cursor.n
+ found = found_prev # maybe null
+ return true # done traversing
+ if node.type is 'text'
+ new_cursor = new_cursor_position n: node, i: node.text.length
+ if new_cursor?
+ found_prev = new_cursor
+ return false # not done traversing
+ return found # maybe null
+
+find_up_cursor_position = (tree, cursor, ideal_x) ->
+ new_cursor = cursor
+ # go prev until we're higher on y axis
+ while new_cursor.y >= cursor.y
+ new_cursor = find_prev_cursor_position tree, new_cursor
+ return null unless new_cursor?
+ # done early if we're already left of old cursor position
+ if new_cursor.x <= ideal_x
+ return new_cursor
+ target_y = new_cursor.y
+ # search leftward, until we find the closest position
+ # new_cursor is the prev-most position we've checked
+ # prev_cursor is the older value, so it's not as prev as new_cursor
+ while new_cursor.x > ideal_x and new_cursor.y is target_y
+ prev_cursor = new_cursor
+ new_cursor = find_prev_cursor_position tree, new_cursor
+ break unless new_cursor?
+ # move cursor to prev_cursor or new_cursor
+ if new_cursor?
+ if new_cursor.y is target_y
+ # both valid, and on the same line, use closest
+ if (ideal_x - new_cursor.x) < (prev_cursor.x - ideal_x)
+ return new_cursor
+ else
+ return prev_cursor
+ else
+ # new_cursor on wrong line, use prev_cursor
+ return prev_cursor
+ else
+ # can't go any further prev, use prev_cursor
+ return prev_cursor
+
+find_down_cursor_position = (tree, cursor, ideal_x) ->
+ new_cursor = cursor
+ # go next until we move on the y axis
+ while new_cursor.y <= cursor.y
+ new_cursor = find_next_cursor_position tree, new_cursor
+ return null unless new_cursor?
+ # done early if we're already right of old cursor position
+ if new_cursor.x >= ideal_x
+ # this would be strange, but could happen due to runaround
+ return new_cursor
+ target_y = new_cursor.y
+ # search rightward, until we find the closest position
+ # new_cursor is the next-most position we've checked
+ # prev_cursor is the older value, so it's not as next as new_cursor
+ while new_cursor.x < ideal_x and new_cursor.y is target_y
+ prev_cursor = new_cursor
+ new_cursor = find_next_cursor_position tree, new_cursor
+ break unless new_cursor?
+ # move cursor to prev_cursor or new_cursor
+ if new_cursor?
+ if new_cursor.y is target_y
+ # both valid, and on the same line, use closest
+ if (new_cursor.x - ideal_x) < (ideal_x - prev_cursor.x)
+ return new_cursor
+ else
+ return prev_cursor
+ else
+ # new_cursor on wrong line, use prev_cursor
+ return prev_cursor
+ else
+ # can't go any further prev, use prev_cursor
+ return prev_cursor
+
+xy_to_cursor = (tree, xy) ->
+ for n in tree
+ if n.type is 'tag' or n.type is 'text'
+ bounds = get_el_bounds n.el
+ continue if xy.x < bounds.x
+ continue if xy.x > bounds.x + bounds.w
+ continue if xy.y < bounds.y
+ continue if xy.y > bounds.y + bounds.h
+ if n.children.length
+ ret = xy_to_cursor n.children, xy
return ret if ret?
- if c.type is TYPE_TEXT
+ if n.type is '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
+ if n.text.length is 0
+ ret = new_cursor_position n: n, i: 0
+ return ret if ret?
+ continue
+ before = new_cursor_position n: n, i: 0
+ continue unless before?
+ after = new_cursor_position n: n, i: n.text.length
+ continue unless after?
+ if xy.y < before.y + before.h and xy.x < before.x
# console.log 'before first char on first line'
continue
- if loc.y > after.y and loc.x > after.x
+ if xy.y > after.y and xy.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"
+ if xy.y < before.y
+ console.log "Warning: click in text 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
+ if xy.y > after.y + after.h
+ console.log "Warning: click in text bounding box but below last line", xy.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
+ while after.i - before.i > 1
+ guess_i = Math.round((before.i + after.i) / 2)
+ cur = new_cursor_position n: n, i: guess_i
+ unless cur?
+ console.log "error: failed to find cursor pixel location for", n, guess_i
+ before = null
+ break
+ if xy.y < cur.y or (xy.y <= cur.y + cur.h and xy.x < cur.x)
after = cur
else
- before_i = cur_i
before = cur
+ continue unless before? # signals failure to find a cursor position
# which one is closest?
- if Math.abs(before.x - loc.x) < Math.abs(after.x - loc.x)
- return [c, before_i]
+ if Math.abs(before.x - xy.x) < Math.abs(after.x - xy.x)
+ return before
else
- return [c, after_i]
+ return after
return null
# browsers collapse these (html5 spec calls these "space characters")
@@ -421,139 +498,49 @@ is_space_code = (char_code) ->
is_space = (chr) ->
return is_space_code chr.charCodeAt 0
-# 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
-
- 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"
- # if there's no prev or next (single space inside a block-level element?) check
- # TODO scrapt this, or fix it so it works when there's no parent
- # if prev is null and next is null
- # new_parent_px = cur.parent.el.getBoundingClientRect()
- # if new_parent_px.left isnt parent_px.left or new_parent_px.top isnt parent_px.top or new_parent_px.right isnt parent_px.right or new_parent_px.bottom isnt parent_px.bottom
- # console.log "WEIRD: parent moved"
- # return put_it_back()
- # we didn't put it back
- 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) ->
+ empties = []
+ traverse_tree tree, (n) ->
+ if n.type is 'text'
+ if n.text.length is 0
+ empties.unshift n
+ return false # not done traversing
+ for n in empties
+ # don't completely empty the tree
+ if tree.length is 1
+ if tree[0].type is '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
class PeachHTML5Editor
# Options: (all optional)
# editor_id: "id" attribute for outer-most element created by/for editor
+ # css_file: filename of a css file to style editable content
+ # on_init: callback for when the editable content is in place
constructor: (in_el, options) ->
@options = options ? {}
@in_el = in_el
- @tree = []
- @initialized = false # when iframes have loaded
+ @tree = null # array of Nodes, all editable content
+ @tree_parent = null # @tree is this.children. .el might === @idoc.body
+ @matting = []
+ @init_1_called = false # when iframes have loaded
@outer_iframe # iframe to hold editor
@outer_idoc # "document" object for @outer_iframe
+ @wrap2 = null # scrollbar is on this
+ @wrap2_offset = null
+ @wrap2_height = null # including padding
@iframe = null # iframe to hold editable content
@idoc = null # "document" object for @iframe
@cursor = null
@cursor_el = null
@cursor_visible = false
+ @cursor_ideal_x = null
+ @poll_for_blur_timeout = null
opt_fragment = @options.fragment ? true
@parser_opts = {}
if opt_fragment
@@ -564,19 +551,20 @@ class PeachHTML5Editor
if @options.editor_id?
@outer_iframe.setAttribute 'id', @options.editor_id
@outer_iframe.onload = =>
- console.log 'outer 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 = domify @outer_idoc, iframe: sandbox: 'allow-same-origin allow-scripts'
@iframe.onload = =>
- @init()
- setTimeout (=> @init()), 200 # firefox never fires this onload
+ @init_1()
+ timeout 200, => # firefox never fires this onload
+ @init_1() unless @init_1_called
@outer_idoc.body.appendChild(
domify @outer_idoc, div: id: 'wrap1', children: [
- domify @outer_idoc, div: id: 'wrap2', children: [
+ domify @outer_idoc, div: style: "position: absolute; top: 0; left: 1px; font-size: 10px", children: [ domify @outer_idoc, text: "Peach HTML5 Editor" ]
+ @wrap2 = domify @outer_idoc, div: id: 'wrap2', children: [
domify @outer_idoc, div: id: 'wrap3', children: [
@iframe
@overlay = domify @outer_idoc, div: id: 'overlay'
@@ -593,32 +581,152 @@ class PeachHTML5Editor
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
+ css = @generate_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)
- return if @initialized # ignore timeout for non-broken browsers
+ init_1: -> # @iframe has loaded (but not it's css)
@idoc = @iframe.contentDocument
+ @init_1_called = true
+ # chromium doesn't resolve relative urls as though they were at the same domain
+ # so add a
, and later also inline-block)
+ # that are flowing/wrapping together. n can be the containing block, or any
+ # element inside it.
+ get_text_run: (n) ->
+ ret = []
+ if @is_display_block n
+ block = n
+ else
+ block = @find_block_parent n
+ return ret unless block?
+ traverse_tree block.children, (n) =>
+ if n.type is 'text'
+ ret.push n
+ else if n.type is 'tag'
+ if n.name is 'br'
+ ret.push n
+ else
+ disp = @computed_style n
+ if disp is 'inline-block'
+ ret.push n
+ return false # not done traversing
+ return ret
+ node_is_decendant: (young, old) ->
+ while young? and young != @tree_parent
+ return true if young is old
+ young = young.parent
return false
+ # helper for on_key_backspace
+ _merge_left: (state) ->
+ # the node prev to n was not prev to it a moment ago, merge with it if reasonable
+ pi = state.n.parent.children.indexOf(state.n)
+ if pi > 0
+ prev = state.n.parent.children[pi - 1]
+ if prev.type is 'text'
+ state.i = prev.text.length
+ prev.text = prev.el.textContent = prev.text + state.n.text
+ @remove_node state.n
+ state.n = prev
+ state.changed = true
+ state.moved_cursor = true
+ # else # TODO merge possible consecutive matching inline tags at @cursor
+ return state
+ # helper for on_key_backspace
+ # remove n from the dom, also remove its inline parents that are emptied by removing n
+ _backspace_node_helper: (n, run = @get_text_run(n), run_i = run.indexOf(n)) ->
+ block = @find_block_parent n
+ # delete text node
+ @remove_node n
+ # delete any inline parents
+ n = n.parent
+ while n? and n isnt block
+ # bail if the previous node in this run is also inside the same parent
+ if run_i > 0
+ break if @node_is_decendant run[run_i - 1], n
+ # bail if the next node in this run is also inside the same parent
+ if run_i + 1 < run.length
+ break if @node_is_decendant run[run_i + 1], n
+ # move any sibling nodes to parent. These nodes are not in the text run
+ while n.children.length > 0
+ @move_node n.children[0], n.parent, n
+ # remove (now completely empty) inline parent
+ @remove_node n
+ # proceed to outer parent
+ n = n.parent
+ return
+ on_key_backspace: (e) ->
+ return unless @cursor?
+ new_cursor = null
+ run = null
+ changed = true
+ if @cursor.i is 0 # cursor is at start of text node
+ run ?= @get_text_run @cursor.n
+ run_i = run.indexOf(@cursor.n)
+ if run_i is 0 # if at start of text run
+ block = @find_block_parent @cursor.n
+ prev_cursor = find_prev_cursor_position @tree, n: @cursor.n, i: 0
+ if prev_cursor is null # if in first text run of document
+ # do nothing (there's nothing text-like to the left of the cursor)
+ return
+ # else merge with prev/outer text run
+ pcb = @find_block_parent prev_cursor.n
+ while block.children.length > 0
+ @move_node block.children[0], pcb
+ @remove_node block
+ # merge possible consecutive text nodes at @cursor
+ merge_state = n: @cursor.n
+ @_merge_left merge_state
+ @text_cleanup merge_state.n
+ new_cursor = new_cursor_position n: merge_state.n, i: merge_state.i
+ else # at start of text node, but not start of text run
+ prev = run[run_i - 1]
+ if prev.type is 'text' # if previous in text run is text
+ if prev.text.length is 1 # if emptying prev (in text run)
+ @_backspace_node_helper prev, run, run_i
+ merge_state = n: @cursor.n, i: @cursor.i
+ @_merge_left merge_state
+ @text_cleanup merge_state.n
+ new_cursor = new_cursor_position n: merge_state.n, i: merge_state.i
+ else # prev in run is text with muliple chars
+ # delete last character in prev
+ prev.text = prev.text.substr(0, prev.text.length - 1)
+ prev.el.textContent = prev.text
+ @text_cleanup @cursor.n
+ new_cursor = new_cursor_position n: @cursor.n, i: @cursor.i
+ else if prev.name is 'br' or prev.name is 'hr'
+ @_backspace_node_helper prev, run, run_i
+ merge_state = n: @cursor.n, i: @cursor.i
+ @_merge_left merge_state
+ @text_cleanup merge_state.n
+ new_cursor = new_cursor_position n: merge_state.n, i: merge_state.i
+ # FIXME implement this:
+ # else # if prev (in run) is inline-block
+ # if that inline-block has text in it
+ # delete last char in prev inlineblock
+ # if that empties it
+ # delete it
+ # merge left
+ # else
+ # move cursor inside
+ # else
+ # delete prev (inline) block
+ # merge left
+ # auto-delete this @cursor.parent(s) if this empties them
+ else # cursor is not at start of text node
+ run ?= @get_text_run @cursor.n
+ if @cursor.n.text.length is 1 # if emptying text node
+ if run.length is 1 # if emptying text run (of text/br/hr/inline-block)
+ # remove inline-parents of @cursor.n
+ block = @find_block_parent @cursor.n
+ changed = false
+ n = @cursor.n.parent
+ # note: this doesn't use _backspace_node_helper because:
+ # 1. we don't want to delete the target node (we're replacing it's contents)
+ # 2. we want to track whether anything was removed
+ # 3. we know already know there's no other text from this run anywhere
+ while n and n isnt block
+ changed = true
+ while n.children.length > 0
+ @move_node n.children[0], n.parent, n
+ @remove_node n
+ n = n.parent
+ # replace @cursor.n with a single (preserved) space
+ if @cursor.n.text != ' '
+ changed = true
+ @cursor.n.text = @cursor.n.el.textContent = ' '
+ if changed
+ @text_cleanup @cursor.n
+ # place the cursor to the left of that space
+ new_cursor = new_cursor_position n: @cursor.n, i: 0
+ else # emptying a text node (but not a whole text run)
+ # figure out where cursor should land
+ block = @find_block_parent @cursor.n
+ new_cursor = find_prev_cursor_position @tree, n: @cursor.n, i: 0
+ ncb = @find_block_parent new_cursor.n
+ if ncb isnt block
+ new_cursor = find_next_cursor_position @tree, n: @cursor.n, i: 1
+ # delete text node and cleanup emptied parents
+ run_i = run.indexOf @cursor.n
+ @_backspace_node_helper @cursor.n, run, run_i
+ # see if new adjacent siblings should merge
+ # TODO make smarter
+ if run_i > 0 and run_i + 1 < run.length
+ if run[run_i - 1].type is 'text' and run[run_i + 1].type is 'text'
+ merge_state = n: run[run_i + 1]
+ @_merge_left merge_state
+ if merge_state.moved_cursor
+ new_cursor = merge_state
+ # update whitespace preservation
+ @text_cleanup(block)
+ # update cursor x/y in case things moved around
+ if new_cursor?
+ if new_cursor.n.el.parentNode # still in dom after cleanup
+ new_cursor = new_cursor_position n: new_cursor.n, i: new_cursor.i
+ else
+ new_cursor = null
+ else # there's a char left of cursor that we can delete without emptying anything
+ # delete character
+ need_text_cleanup = true
+ if @cursor.i > 1 and @cursor.i < @cursor.n.text.length
+ pre = @cursor.n.text.substr(@cursor.i - 2, 3)
+ post = pre.charAt(0) + pre.charAt(2)
+ if str_has_ws_run(pre) is str_has_ws_run(post)
+ need_text_cleanup = false
+ @remove_character(@cursor.n, @cursor.i - 1)
+ # call text_cleanup if whe created/removed a whitespace run
+ if need_text_cleanup
+ @text_cleanup @cursor.n
+ new_cursor = new_cursor_position n: @cursor.n, i: @cursor.i - 1
+ # mark document changed and move the cursor
+ if changed?
+ @changed()
+ if new_cursor?
+ @move_cursor new_cursor
+ else
+ @kill_cursor()
+ return
+ on_page_up_key: (e) ->
+ if @wrap2.scrollTop is 0
+ return unless @cursor?
+ new_cursor = first_cursor_position @tree
+ if new_cursor?
+ if new_cursor.n isnt @cursor.n or new_cursor.i isnt @cursor.i
+ @move_cursor new_cursor
+ return
+ if @cursor?
+ screen_y = @cursor.y - @wrap2.scrollTop
+ scroll_amount = @wrap2_height - breathing_room
+ @wrap2.scrollTop = Math.max 0, @wrap2.scrollTop - scroll_amount
+ if @cursor?
+ @move_cursor_into_view screen_y + @wrap2.scrollTop
+ on_page_down_key: (e) ->
+ lowest_scrollpos = @wrap2.scrollHeight - @wrap2_height
+ if @wrap2.scrollTop is lowest_scrollpos
+ return unless @cursor?
+ new_cursor = last_cursor_position @tree
+ if new_cursor?
+ if new_cursor.n isnt @cursor.n or new_cursor.i isnt @cursor.i
+ @move_cursor new_cursor
+ return
+ if @cursor?
+ screen_y = @cursor.y - @wrap2.scrollTop
+ scroll_amount = @wrap2_height - breathing_room
+ @wrap2.scrollTop = Math.min lowest_scrollpos, @wrap2.scrollTop + scroll_amount
+ if @cursor?
+ @move_cursor_into_view screen_y + @wrap2.scrollTop
+ return
+ move_cursor_into_view: (y_target) ->
+ return if y_target is @cursor.y
+ was = @cursor
+ y_min = @wrap2.scrollTop
+ unless @wrap2.scrollTop is 0
+ y_min += breathing_room
+ y_max = @wrap2.scrollTop + @wrap2_height
+ unless @wrap2.scrollTop is @wrap2.scrollHeight - @wrap2_height # downmost
+ y_max -= breathing_room
+ y_target = Math.min y_target, y_max
+ y_target = Math.max y_target, y_min
+ if y_target < @cursor.y
+ finder = find_up_cursor_position
+ far_enough = (cur, target_y) ->
+ return cur.y + cur.h <= target_y
+ else
+ finder = find_down_cursor_position
+ far_enough = (cur, y_target) ->
+ return cur.y >= y_target
+ loop
+ cur = finder @tree, was, @cursor_ideal_x
+ break unless cur?
+ break if far_enough cur, y_target
+ was = cur
+ if was is @cursor
+ was = null
+ if was?
+ if was.y + was.h > y_max
+ was = null
+ else if was.y < y_min
+ was = null
+ if cur?
+ if cur.y + cur.h > y_max
+ cur = null
+ else if cur.y < y_min
+ cur = null
+ if cur? and was?
+ # both valid, pick best
+ if cur.y < y_min
+ new_cursor = was
+ else if was.y + was.h > y_max
+ new_cursor = cur
+ else if cur.y - y_target < y_target - was.y
+ new_cursor = cur
+ else
+ new_cursor = was
+ else
+ new_cursor = was ? cur
+ if new_cursor?
+ saved_ideal_x = @cursor_ideal_x
+ @move_cursor new_cursor
+ @cursor_ideal_x = saved_ideal_x
+ return
clear_dom: -> # remove all the editable content (and cursor, overlays, etc)
while @idoc.body.childNodes.length
@idoc.body.removeChild @idoc.body.childNodes[0]
@@ -713,36 +1178,639 @@ class PeachHTML5Editor
return
load_html: (html) ->
@tree = peach_parser.parse html, @parser_opts
+ if !@tree[0]?.parent
+ @tree = peach_parser.parse '
', @parser_opts + @tree_parent = @tree[0]?.parent + @tree_parent.el = @idoc.body @clear_dom() - instantiate_tree @tree, @idoc.body - tree_dedup_space @tree + instantiate_tree @tree, @tree_parent.el + @collapse_whitespace @tree @changed() changed: -> - # FIXME don't export cursor placeholder (when cursor is between space characters) @in_el.onchange = null - @in_el.value = dom_to_html @tree + @in_el.value = @pretty_html @tree @in_el.onchange = => @load_html @in_el.value + @adjust_iframe_height() + adjust_iframe_height: -> + s = @wrap2.scrollTop + # when the content gets shorter, the idoc's body tag will continue to + # report the old (too big) height in Chrome. The workaround is to + # shrink the iframe before the content height: + @iframe.style.height = "10px" + h = parseInt(@idoc.body.scrollHeight, 10) + @iframe.style.height = "#{h}px" + @wrap2.scrollTop = s + # does this node have whitespace that would be collapsed by white-space: normal? + # note: this checks direct text children, and does _not_ recurse into child tags + # tag is a node with type:"tag" + # FIXME use new textrun api + has_collapsable_space: (tag) -> + for n in tag.children + if n.type is 'text' + for i in [0...n.text.length] + code = n.text.charCodeAt i + if code isnt 32 and is_space_code code + # tab, return + return true + # check for double spaces that don't surround insert location + continue if i is 0 + if n.text.substr(i - 1, 2) is ' ' + return true + if n.text.length > 0 + if is_space_code n.text.charCodeAt 0 + return true + if is_space_code n.text.charCodeAt n.text.length - 1 + return true + return false + # true if n is text node with only one caracter, and the only child of a tag + is_only_char_in_tag: (n, i) -> + return false unless n.type is 'text' + return false unless n.text.length is 1 + return false if n.parent is @tree_parent + return false unless n.parent.children.length is 1 + return true + # true if n is text node with just a space in it, and the only child of a tag + is_lone_space: (n, i) -> + return false unless n.type is 'text' + return false unless n.text is ' ' + return false if n.parent is @tree_parent + return false unless n.parent.children.length is 1 + return true + # detect special case: typing before a space that's the only thing in a block/doc + # reason: enter key creates blocks with just a space in them + insert_should_replace: (n, i) -> + return false unless i is 0 + return false unless n.text is ' ' + return true if n.parent is @tree_parent + if n.parent.children.length is 1 + if n.parent.children[0] is n + # n is only child + return true + return false + # after calling this, you MUST call changed() and text_cleanup() + insert_character: (n, i, char) -> + return if n.parent is @tree_parent # FIXME implement text nodes at top level + # insert the character + if @insert_should_replace n, i + n.text = char + else if i is 0 + n.text = char + n.text + else if i is n.text.length + # replace the space + n.text += char + else + n.text = + n.text.substr(0, i) + + char + + n.text.substr(i) + n.el.nodeValue = n.text + # WARNING: after calling this, you MUST call changed() and text_cleanup() + remove_character: (n, i) -> + n.text = n.text.substr(0, i) + n.text.substr(i + 1) + n.el.nodeValue = n.text + computed_style: (n, prop) -> + if n.type is 'text' + n = n.parent + style = @iframe.contentWindow.getComputedStyle n.el, null + return style.getPropertyValue prop + # returns the new white-space value that will preserve spaces for node n + preserve_space: (n, ideal_target) -> + if n.type is 'text' + target = n.parent + else + target = n + while target isnt ideal_target and not target.el.style.whiteSpace + unless target? + console.log "bug #967123" + return + target = target.parent + ws = ws_props[target.el.style.whiteSpace]?.to_preserve + ws ?= 'pre-wrap' + target.el.style.whiteSpace = ws + @update_style_from_el target + return ws + update_style_from_el: (n) -> + style = n.el.getAttribute 'style' + if style? + n.attrs.style = style + else + if n.attrs.style? + delete n.attrs.style + # remove whitespace that would be trimmed + # replace whitespace that would collapse with a single space + # FIXME remove whitespace from after