From 612890850cab20264ea9002e12b1669f74b317dd Mon Sep 17 00:00:00 2001
From: Qingping Hou <dave2008713@gmail.com>
Date: Fri, 30 Mar 2012 12:38:41 +0800
Subject: [PATCH] add: percent jump in CREReader

---
 crereader.lua | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/crereader.lua b/crereader.lua
index f9e60bd86..3fd4b091d 100644
--- a/crereader.lua
+++ b/crereader.lua
@@ -124,4 +124,17 @@ function CREReader:adjustCreReaderCommands()
 			cr:redrawCurrentPage()
 		end
 	)
+	local numeric_keydefs = {}
+	for i=1,10 do 
+		numeric_keydefs[i]=Keydef:new(KEY_1+i-1, nil, tostring(i%10)) 
+	end
+	self.commands:addGroup("[1..0]", numeric_keydefs,
+		"jump to <key>*10% of document",
+		function(cr, keydef)
+			print('jump to position: '..
+				math.floor(cr.doc:GetFullHeight()*(keydef.keycode-KEY_1)/9)..
+				'/'..cr.doc:GetFullHeight())
+			cr:goto(math.floor(cr.doc:GetFullHeight()*(keydef.keycode-KEY_1)/9))
+		end
+	)
 end