From: Jason Woofenden <jason@jasonwoof.com>
Date: Wed, 30 Mar 2016 14:00:05 +0000 (-0400)
Subject: page up: cursor to start if scrolled top already
X-Git-Url: https://jasonwoof.com/gitweb/?p=peach-html5-editor.git;a=commitdiff_plain;h=5de51db974972ef00b21121b7472075c0222b551

page up: cursor to start if scrolled top already
---

diff --git a/editor.coffee b/editor.coffee
index a7c3c66..a0bd0a4 100644
--- a/editor.coffee
+++ b/editor.coffee
@@ -1077,6 +1077,13 @@ class PeachHTML5Editor
 				@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
@@ -1084,18 +1091,17 @@ class PeachHTML5Editor
 		if @cursor?
 			@move_cursor_into_view screen_y + @wrap2.scrollTop
 	on_page_down_key: (e) ->
-		if @cursor?
-			screen_y = @cursor.y - @wrap2.scrollTop
-		scroll_amount = @wrap2_height - breathing_room
 		lowest_scrollpos = @wrap2.scrollHeight - @wrap2_height
-		if @wrap2.scrollTop is lowest_scrollpos # already at bottom
+		if @wrap2.scrollTop is lowest_scrollpos
 			return unless @cursor?
-			# move cursor to bottom
 			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