X-Git-Url: https://jasonwoof.com/gitweb/?a=blobdiff_plain;f=editor.coffee;h=b6bc94b2052a17d2fa0201783201193efb95eb2b;hb=28e2a56749dc8ddd97c2d5b16f7b3558488f4a34;hp=0d6e761be9c2f2e2383e4d638f381927ea49bce0;hpb=7d1268a16a6de4cf42178315beef913331309feb;p=peach-html5-editor.git

diff --git a/editor.coffee b/editor.coffee
index 0d6e761..b6bc94b 100644
--- a/editor.coffee
+++ b/editor.coffee
@@ -14,20 +14,28 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+# SETTINGS
+overlay_padding = 6 # TODO generate css from this
+
 TYPE_TAG = peach_parser.TYPE_TAG
 TYPE_TEXT = peach_parser.TYPE_TEXT
 TYPE_COMMENT = peach_parser.TYPE_COMMENT
 TYPE_DOCTYPE = peach_parser.TYPE_DOCTYPE
 
+debug_dot_at = (doc, x, y) ->
+	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)
+
 # text nodes don't have getBoundingClientRect(), so use selection api to find
 # it.
-get_text_bounding_rect = (el) ->
 get_el_bounds = (el) ->
 	if el.getBoundingClientRect?
 		rect = el.getBoundingClientRect()
 	else
 		# text nodes don't have getBoundingClientRect(), so use range api
-		range = document.createRange()
+		range = el.ownerDocument.createRange()
 		range.selectNodeContents el
 		rect = range.getBoundingClientRect()
 	doc = el.ownerDocument.documentElement
@@ -41,57 +49,53 @@ get_el_bounds = (el) ->
 		h: rect.height ? (rect.top - rect.bottom)
 	}
 
+is_display_block = (el) ->
+	if el.currentStyle?
+		return el.currentStyle.display is 'block'
+	else
+		return window.getComputedStyle(el, null).getPropertyValue('display') is 'block'
+
+# 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)
+# Note: sometimes returns null (eg for whitespace that is not visible)
+text_range_bounds = (el, start, end) ->
+	range = document.createRange()
+	range.setStart el, start
+	range.setEnd el, end
+	rects = range.getClientRects()
+	if rects.length > 0
+		rect = rects[0]
+	else
+		return null
+	doc = el.ownerDocument.documentElement
+	win = el.ownerDocument.defaultView
+	y_fix = win.pageYOffset - doc.clientTop
+	x_fix = win.pageXOffset - doc.clientLeft
+	return {
+		x: rect.left + x_fix
+		y: rect.top + y_fix
+		w: rect.width ? (rect.right - rect.left)
+		h: rect.height ? (rect.top - rect.bottom)
+		rects: rects
+		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``
-#
-# implementation: insert a span tag where we want the cursor, and ask the
-# browser where it put that span
+# sometimes returns null (eg for whitespace that is not visible)
 window.cursor_to_xyh = cursor_to_xyh = (n, i) ->
-	parent = n.el.parentNode
-	els = []
-	txts = []
-	plus_width = false
-	if n.text.length < 2
-		bounds = get_el_offset n.el
-		if i is 1
-			plus_width = true
+	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
+		if ret?
+			ret.x += ret.w
 	else
-		if i is 0 # cursor at start of text
-			check_i = 0
-			txts.push n.text.substr 0, 1
-			txts.push n.text.substr 1
-		else if i is n.text.length # cursor at end of text
-			check_i = 1
-			plus_width = true
-			txts.push n.text.substr 0, n.text.length - 1
-			txts.push n.text.substr n.text.length - 1
-		else
-			check_i = 1
-			txts.push n.text.substr 0, i
-			txts.push n.text.substr i, 1
-			txts.push n.text.substr i + 1
-		for txt, txt_i in txts
-			el = n.el.ownerDocument.createTextNode txt
-			if txt_i is check_i
-				span = n.el.ownerDocument.createElement 'span'
-				span.appendChild el
-				el = span
-			els.push el
-			parent.insertBefore el, n.el
-		parent.removeChild n.el
-		bounds = get_el_bounds els[check_i]
-		parent.insertBefore n.el, els[0]
-		for el in els
-			parent.removeChild el
-	ret = x: bounds.x, y: bounds.y, h: bounds.h
-	if plus_width
-		ret.x += bounds.w
-	# fudge case where bounds are BS because we're on non-significant whitespace
-	if i > 0
-		first = cursor_to_xyh n, 0
-		if ret.x <= first.x and ret.y is first.y
-			# no need for a loop here, because recursion
-			ret = cursor_to_xyh n, i - 1
+		ret = text_range_bounds n.el, i, i + 1
+	if ret?
+		debug_dot_at n.el.ownerDocument, ret.x, ret.y
 	return ret
 
 # encode text so it can be safely placed inside an html attribute
@@ -101,6 +105,12 @@ enc_attr = (txt) ->
 		return '&amp;' if (amp)
 		return '&quot;' if (quote)
 		return '&nbsp;'
+enc_text_regex = new RegExp '(&)|(<)|(\u00A0)', 'g'
+enc_text = (txt) ->
+	return txt.replace enc_text_regex, (match, amp, lt) ->
+		return '&amp;' if (amp)
+		return '&lt;' if (lt)
+		return '&nbsp;'
 
 void_elements = {
 	area: true
@@ -139,7 +149,7 @@ dom_to_html = (dom) ->
 						ret += dom_to_html el.children
 					ret += "</#{el.name}>"
 			when TYPE_TEXT
-				ret += el.text
+				ret += enc_text el.text
 			when TYPE_COMMENT
 				ret += "<!--#{el.text}-->"
 			when TYPE_DOCTYPE
@@ -227,10 +237,14 @@ traverse_tree = (tree, state, cb) ->
 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.x > orig_xyh.x or next_xyh.y > orig_xyh.y
-				return [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
@@ -245,10 +259,14 @@ find_next_cursor_position = (tree, n, i) ->
 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.x < orig_xyh.x or prev_xyh.y < orig_xyh.y
-				return [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
@@ -281,12 +299,20 @@ find_loc_cursor_position = (tree, loc) ->
 				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
-					continue # before first char on first line
+					# console.log 'before first char on first line'
+					continue
 				if loc.y > after.y and loc.x > after.x
-					continue # after last char on last line
+					# 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?)
@@ -296,6 +322,9 @@ find_loc_cursor_position = (tree, loc) ->
 				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
@@ -309,11 +338,141 @@ find_loc_cursor_position = (tree, loc) ->
 					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
+
+# 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
+
 class PeachHTML5Editor
 	constructor: (in_el, options = {}) ->
 		@in_el = in_el
 		@tree = []
-		@iframe = domify iframe: class: 'peach_html5_editor'
+		@outer_el = domify div: class: 'peach_html5_editor', children: [
+			@iframe = domify iframe: class: 'peach_html5_editor_iframe'
+			@overlay = domify div: class: 'peach_html5_editor_overlay'
+		]
 		@cursor = null
 		@cursor_el = null
 		@cursor_visible = false
@@ -348,9 +507,10 @@ class PeachHTML5Editor
 				'34': KEY_PAGE_DOWN
 				'9':  KEY_TAB
 
-			@idoc.body.onclick = (e) =>
-				# idoc.body.offset().left/top
-				new_cursor = find_loc_cursor_position @tree, x: e.pageX, y: e.pageY
+			@overlay.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
 			@idoc.body.onkeyup = (e) =>
@@ -438,6 +598,7 @@ class PeachHTML5Editor
 							@cursor[0].text.substr(@cursor[1])
 					@cursor[0].el.nodeValue = @cursor[0].text
 					@move_cursor [@cursor[0], @cursor[1] + 1]
+					@changed()
 				return false
 			if options.stylesheet # TODO test this
 				istyle = @idoc.createElement 'style'
@@ -445,34 +606,49 @@ class PeachHTML5Editor
 				@idoc.head.appendChild istyle
 			icss = @idoc.createElement 'style'
 			icss.appendChild @idoc.createTextNode css
-			@idoc.head.appendChild icss
+			document.head.appendChild icss
 			@load_html @in_el.value
 
-		@in_el.parentNode.appendChild @iframe
+		@in_el.parentNode.appendChild @outer_el
 	clear_dom: ->
 		# FIXME add parent node, so we don't empty body and delete cursor_el
 		while @idoc.body.childNodes.length
 			@idoc.body.removeChild @idoc.body.childNodes[0]
+		@kill_cursor()
 		@cursor_visible = false
 		return
 	load_html: (html) ->
 		@tree = peach_parser.parse html, @parser_opts
-		#as_html = dom_to_html @tree
-		#@iframe.contentDocument.body.innerHTML = as_html
 		@clear_dom()
 		instantiate_tree @tree, @idoc.body
+		tree_dedup_space @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.onchange = =>
+			@load_html @in_el.value
+	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, to reset blink animation
 		if @cursor_visible
 			@cursor_el.parentNode.removeChild @cursor_el
 		@cursor_el = domify div: id: 'peach_html5_editor_cursor'
-		@idoc.body.appendChild @cursor_el
+		@overlay.appendChild @cursor_el
 		@cursor_visible = true
 		# TODO figure out x,y coords for cursor
-		loc = cursor_to_xyh cursor[0], cursor[1]
-		@cursor_el.style.left = "#{loc.x}px"
-		@cursor_el.style.top = "#{loc.y}px"
+		@cursor_el.style.left = "#{loc.x + overlay_padding}px"
+		@cursor_el.style.top = "#{loc.y + overlay_padding}px"
 
 window.peach_html5_editor = (args...) ->
 	return new PeachHTML5Editor args...