mirror of
https://github.com/koreader/koreader
synced 2024-10-31 21:20:20 +00:00
385f74222a
Instead of calling lfs.mkdir() to create "./history" and "./screenshots" at runtime it is easier to create them at package build time. I hesitated whether to add "./clipboard" to this list but decided against it as we can perhaps change current directory and then all the code manipulating clipboard would break, so I left it as is.
623 lines
20 KiB
Lua
623 lines
20 KiB
Lua
require "rendertext"
|
|
require "keys"
|
|
require "graphics"
|
|
require "font"
|
|
require "filesearcher"
|
|
require "filehistory"
|
|
require "fileinfo"
|
|
require "inputbox"
|
|
require "selectmenu"
|
|
require "dialog"
|
|
require "extentions"
|
|
|
|
FileChooser = {
|
|
title_H = 40, -- title height
|
|
spacing = 36, -- spacing between lines
|
|
foot_H = 28, -- foot height
|
|
margin_H = 10, -- horisontal margin
|
|
|
|
-- state buffer
|
|
dirs = nil,
|
|
files = nil,
|
|
items = 0,
|
|
path = "",
|
|
page = 1,
|
|
current = 1,
|
|
oldcurrent = 0,
|
|
exception_message = nil,
|
|
|
|
pagedirty = true,
|
|
markerdirty = false,
|
|
perpage,
|
|
clipboard = lfs.currentdir() .. "/clipboard", -- NO finishing slash
|
|
|
|
-- NuPogodi, 04.09.2012: introduced modes that configures the filechoser
|
|
-- for users with various purposes & skills
|
|
filemanager_expert_mode, -- default value is defined in reader.lua
|
|
-- the definitions
|
|
BEGINNERS_MODE = 1, -- the filemanager content is restricted by files with reader-related extensions; safe renaming (no extension)
|
|
ADVANCED_MODE = 2, -- no extension-based filtering; renaming with extensions; appreciable danger to crash crengine by improper docs
|
|
ROOT_MODE = 3, -- TODO: all functions (including non-stable and dangerous)
|
|
|
|
}
|
|
|
|
function getProperTitleLength(txt,font_face,max_width)
|
|
local tw = TextWidget:new({ text = txt, face = font_face})
|
|
-- 1st approximation for a point where to start title
|
|
local n = math.floor(string.len(txt) * (1 - max_width / tw:getSize().w)) - 2
|
|
n = math.max(n, 1)
|
|
while tw:getSize().w >= max_width do
|
|
tw:free()
|
|
tw = TextWidget:new({ text = string.sub(txt,n,-1), face = font_face})
|
|
n = n + 1
|
|
end
|
|
return string.sub(txt,n-1,-1)
|
|
end
|
|
|
|
function BatteryLevel()
|
|
-- NuPogodi, 18.05.12: This command seems to work even without Amazon Kindle framework
|
|
local p = io.popen("gasgauge-info -s 2> /dev/null", "r") -- io.popen() _never_ fails!
|
|
local battery = p:read("*a") or "?"
|
|
if battery == "" then battery = "?" end
|
|
p:close()
|
|
return string.gsub(battery, "[\n\r]+", "")
|
|
end
|
|
|
|
function DrawTitle(text,lmargin,y,height,color,font_face)
|
|
local r = 6 -- radius for round corners
|
|
color = 3 -- redefine to ignore the input for background color
|
|
|
|
fb.bb:paintRect(1, 1, fb.bb:getWidth() - 2, height - r, color)
|
|
blitbuffer.paintBorder(fb.bb, 1, height/2, fb.bb:getWidth() - 2, height/2, height/2, color, r)
|
|
-- to have a horisontal gap between text & background rectangle
|
|
t = BatteryLevel() .. os.date(" %H:%M")
|
|
local tw = TextWidget:new({ text = t, face = font_face})
|
|
twidth = tw:getSize().w
|
|
renderUtf8Text(fb.bb, fb.bb:getWidth()-twidth-lmargin, height-10, font_face, t, true)
|
|
tw:free()
|
|
|
|
tw = TextWidget:new({ text = text, face = font_face})
|
|
local max_width = fb.bb:getWidth() - 2*lmargin - twidth
|
|
if tw:getSize().w < max_width then
|
|
renderUtf8Text(fb.bb, lmargin, height-10, font_face, text, true)
|
|
else
|
|
local w = renderUtf8Text(fb.bb, lmargin, height-10, font_face, "...", true)
|
|
local txt = getProperTitleLength(text, font_face, max_width-w)
|
|
renderUtf8Text(fb.bb, w+lmargin, height-10, font_face, txt, true)
|
|
end
|
|
tw:free()
|
|
end
|
|
|
|
function DrawFooter(text,font_face,h)
|
|
local y = G_height - 7
|
|
local x = (G_width / 2) - 50
|
|
renderUtf8Text(fb.bb, x, y, font_face, text, true)
|
|
end
|
|
|
|
function DrawFileItem(name,x,y,image)
|
|
-- define icon file for
|
|
if name == ".." then image = "upfolder" end
|
|
local fn = "./resources/"..image..".png"
|
|
-- check whether the icon file exists or not
|
|
if not io.open(fn, "r") then fn = "./resources/other.png" end
|
|
local iw = ImageWidget:new({ file = fn })
|
|
iw:paintTo(fb.bb, x, y - iw:getSize().h + 1)
|
|
-- then drawing filenames
|
|
local cface = Font:getFace("cfont", 22)
|
|
local xleft = x + iw:getSize().w + 9 -- the gap between icon & filename
|
|
local width = fb.bb:getWidth() - xleft - x
|
|
-- now printing the name
|
|
if sizeUtf8Text(xleft, fb.bb:getWidth() - x, cface, name, true).x < width then
|
|
renderUtf8Text(fb.bb, xleft, y, cface, name, true)
|
|
else
|
|
local lgap = sizeUtf8Text(0, width, cface, " ...", true).x
|
|
local handle = renderUtf8TextWidth(fb.bb, xleft, y, cface, name, true, width - lgap - x)
|
|
renderUtf8Text(fb.bb, handle.x + lgap + x, y, cface, " ...", true)
|
|
end
|
|
iw:free()
|
|
end
|
|
|
|
function getAbsolutePath(aPath)
|
|
local abs_path
|
|
if not aPath then
|
|
abs_path = aPath
|
|
elseif aPath:match('^//') then
|
|
abs_path = aPath:sub(2)
|
|
elseif aPath:match('^/') then
|
|
abs_path = aPath
|
|
elseif #aPath == 0 then
|
|
abs_path = '/'
|
|
else
|
|
local curr_dir = lfs.currentdir()
|
|
abs_path = aPath
|
|
if lfs.chdir(aPath) then
|
|
abs_path = lfs.currentdir()
|
|
lfs.chdir(curr_dir)
|
|
end
|
|
--Debug("rel: '"..aPath.."' abs:'"..abs_path.."'")
|
|
end
|
|
return abs_path
|
|
end
|
|
|
|
function FileChooser:readDir()
|
|
self.dirs = {}
|
|
self.files = {}
|
|
for f in lfs.dir(self.path) do
|
|
if lfs.attributes(self.path.."/"..f, "mode") == "directory" and f ~= "." and f~=".."
|
|
and not string.match(f, "^%.[^.]") then
|
|
table.insert(self.dirs, f)
|
|
elseif lfs.attributes(self.path.."/"..f, "mode") == "file"
|
|
and not string.match(f, "^%.[^.]") then
|
|
local file_type = string.lower(string.match(f, ".+%.([^.]+)") or "")
|
|
if ext:getReader(file_type) then
|
|
table.insert(self.files, f)
|
|
end
|
|
end
|
|
end
|
|
table.sort(self.dirs)
|
|
if self.path~="/" then table.insert(self.dirs,1,"..") end
|
|
table.sort(self.files)
|
|
end
|
|
|
|
function FileChooser:setPath(newPath)
|
|
local curr_path = self.path
|
|
self.path = getAbsolutePath(newPath)
|
|
local readdir_ok, exc = pcall(self.readDir,self)
|
|
if(not readdir_ok) then
|
|
Debug("readDir error: "..tostring(exc))
|
|
self.exception_message = exc
|
|
return self:setPath(curr_path)
|
|
else
|
|
self.items = #self.dirs + #self.files
|
|
if self.items == 0 then
|
|
return nil
|
|
end
|
|
self.page = 1
|
|
self.current = 1
|
|
return true
|
|
end
|
|
end
|
|
|
|
function FileChooser:choose(ypos, height)
|
|
self.perpage = math.floor(height / self.spacing) - 2
|
|
self.pagedirty = true
|
|
self.markerdirty = false
|
|
|
|
self:addAllCommands()
|
|
|
|
while true do
|
|
local tface = Font:getFace("tfont", 25)
|
|
local fface = Font:getFace("ffont", 16)
|
|
local cface = Font:getFace("cfont", 22)
|
|
|
|
if self.pagedirty then
|
|
fb.bb:paintRect(0, ypos, fb.bb:getWidth(), height, 0)
|
|
local c
|
|
for c = 1, self.perpage do
|
|
local i = (self.page - 1) * self.perpage + c
|
|
if i <= #self.dirs then
|
|
DrawFileItem(self.dirs[i],self.margin_H,ypos+self.title_H+self.spacing*c,"folder")
|
|
elseif i <= self.items then
|
|
local file_type = string.lower(string.match(self.files[i-#self.dirs], ".+%.([^.]+)") or "")
|
|
DrawFileItem(self.files[i-#self.dirs],self.margin_H,ypos+self.title_H+self.spacing*c,file_type)
|
|
end
|
|
end
|
|
-- draw footer
|
|
all_page = math.ceil(self.items/self.perpage)
|
|
DrawFooter("Page "..self.page.." of "..all_page,fface,self.foot_H)
|
|
-- draw menu title
|
|
local msg = self.exception_message and self.exception_message:match("[^%:]+:%d+: (.*)") or self.path
|
|
self.exception_message = nil
|
|
-- draw header
|
|
DrawTitle(msg,self.margin_H,ypos,self.title_H,4,tface)
|
|
self.markerdirty = true
|
|
end
|
|
|
|
if self.markerdirty then
|
|
local ymarker = ypos + 8 + self.title_H
|
|
if not self.pagedirty then
|
|
if self.oldcurrent > 0 then
|
|
fb.bb:paintRect(self.margin_H, ymarker+self.spacing*self.oldcurrent, fb.bb:getWidth()-2*self.margin_H, 3, 0)
|
|
fb:refresh(1, self.margin_H, ymarker+self.spacing*self.oldcurrent, fb.bb:getWidth() - 2*self.margin_H, 3)
|
|
end
|
|
end
|
|
fb.bb:paintRect(self.margin_H, ymarker+self.spacing*self.current, fb.bb:getWidth()-2*self.margin_H, 3, 15)
|
|
if not self.pagedirty then
|
|
fb:refresh(1, self.margin_H, ymarker+self.spacing*self.current, fb.bb:getWidth()-2*self.margin_H, 3)
|
|
end
|
|
self.oldcurrent = self.current
|
|
self.markerdirty = false
|
|
end
|
|
|
|
if self.pagedirty then
|
|
fb:refresh(0, 0, ypos, fb.bb:getWidth(), height)
|
|
self.pagedirty = false
|
|
end
|
|
|
|
local ev = input.saveWaitForEvent()
|
|
--Debug("key code:"..ev.code)
|
|
ev.code = adjustKeyEvents(ev)
|
|
if ev.type == EV_KEY and ev.value ~= EVENT_VALUE_KEY_RELEASE then
|
|
keydef = Keydef:new(ev.code, getKeyModifier())
|
|
Debug("key pressed: "..tostring(keydef))
|
|
|
|
command = self.commands:getByKeydef(keydef)
|
|
if command ~= nil then
|
|
Debug("command to execute: "..tostring(command))
|
|
ret_code = command.func(self, keydef)
|
|
else
|
|
Debug("command not found: "..tostring(command))
|
|
end
|
|
|
|
if ret_code == "break" then break end
|
|
|
|
if self.selected_item ~= nil then
|
|
Debug("# selected "..self.selected_item)
|
|
return self.selected_item
|
|
end
|
|
end -- if ev.type ==
|
|
end -- while
|
|
end
|
|
|
|
-- NuPogodi, 20.05.12: add available commands
|
|
function FileChooser:addAllCommands()
|
|
self.commands = Commands:new{}
|
|
|
|
self.commands:add({KEY_SPACE}, nil, "Space",
|
|
"refresh page manually",
|
|
function(self)
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add({KEY_PGFWD, KEY_LPGFWD}, nil, ">",
|
|
"goto next page",
|
|
function(self)
|
|
if self.page < (self.items / self.perpage) then
|
|
if self.current + self.page*self.perpage > self.items then
|
|
self.current = self.items - self.page*self.perpage
|
|
end
|
|
self.page = self.page + 1
|
|
self.pagedirty = true
|
|
else
|
|
self.current = self.items - (self.page-1)*self.perpage
|
|
self.markerdirty = true
|
|
end
|
|
end
|
|
)
|
|
self.commands:add({KEY_PGBCK, KEY_LPGBCK}, nil, "<",
|
|
"goto previous page",
|
|
function(self)
|
|
if self.page > 1 then
|
|
self.page = self.page - 1
|
|
self.pagedirty = true
|
|
else
|
|
self.current = 1
|
|
self.markerdirty = true
|
|
end
|
|
end
|
|
)
|
|
self.commands:add(KEY_FW_DOWN, nil, "joypad down",
|
|
"goto next item",
|
|
function(self)
|
|
if self.current == self.perpage then
|
|
if self.page < (self.items / self.perpage) then
|
|
self.current = 1
|
|
self.page = self.page + 1
|
|
self.pagedirty = true
|
|
end
|
|
else
|
|
if self.page ~= math.floor(self.items / self.perpage) + 1
|
|
or self.current + (self.page-1)*self.perpage < self.items then
|
|
self.current = self.current + 1
|
|
self.markerdirty = true
|
|
end
|
|
end
|
|
end
|
|
)
|
|
self.commands:add(KEY_FW_UP, nil, "joypad up",
|
|
"goto previous item",
|
|
function(self)
|
|
if self.current == 1 then
|
|
if self.page > 1 then
|
|
self.current = self.perpage
|
|
self.page = self.page - 1
|
|
self.pagedirty = true
|
|
end
|
|
else
|
|
self.current = self.current - 1
|
|
self.markerdirty = true
|
|
end
|
|
end
|
|
)
|
|
self.commands:add({KEY_FW_RIGHT, KEY_I}, nil, "joypad right",
|
|
"show document information",
|
|
function(self)
|
|
local folder = self.dirs[self.perpage*(self.page-1)+self.current]
|
|
if folder then
|
|
if folder == ".." then
|
|
showInfoMsgWithDelay("<UP-DIR> ", 1000, 1)
|
|
else
|
|
folder = self.path.."/"..folder
|
|
if FileInfo:show(folder) == "goto" then
|
|
self:setPath(folder)
|
|
end
|
|
end
|
|
else -- file info
|
|
FileInfo:show(self.path, self.files[self.perpage*(self.page-1)+self.current-#self.dirs])
|
|
end
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add({KEY_ENTER, KEY_FW_PRESS}, nil, "Enter",
|
|
"open document / goto folder",
|
|
function(self)
|
|
local newdir = self.dirs[self.perpage*(self.page-1)+self.current]
|
|
if newdir == ".." then
|
|
local path = string.gsub(self.path, "(.*)/[^/]+/?$", "%1")
|
|
self:setPath(path)
|
|
elseif newdir then
|
|
self:setPath(self.path.."/"..newdir)
|
|
else
|
|
self.pathfile = self.path.."/"..self.files[self.perpage*(self.page-1)+self.current - #self.dirs]
|
|
openFile(self.pathfile)
|
|
end
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
-- NuPogodi, 23.05.12: modified to delete both files and empty folders
|
|
self.commands:add(KEY_DEL, nil, "Del",
|
|
"delete selected item",
|
|
function(self)
|
|
local pos = self.perpage*(self.page-1)+self.current
|
|
local folder = self.dirs[pos]
|
|
if folder == ".." then
|
|
showInfoMsgWithDelay(".. cannot be deleted! ",1500,1)
|
|
elseif folder then
|
|
InfoMessage:show("Press \'Y\' to confirm",0)
|
|
if self:ReturnKey() == KEY_Y then
|
|
if lfs.rmdir(self.path.."/"..folder) then
|
|
table.remove(self.dirs, offset)
|
|
self:setPath(self.path)
|
|
else
|
|
showInfoMsgWithDelay("Cannot be deleted!",1500,1)
|
|
end
|
|
end
|
|
else
|
|
InfoMessage:show("Press \'Y\' to confirm",0)
|
|
if self:ReturnKey() == KEY_Y then
|
|
pos = pos - #self.dirs
|
|
local fullpath = self.path.."/"..self.files[pos]
|
|
-- delete the file itself
|
|
os.remove(fullpath)
|
|
-- and its history file, if any
|
|
os.remove(DocToHistory(fullpath))
|
|
-- to avoid showing just deleted file
|
|
table.remove(self.files, pos)
|
|
self.items = self.items - 1
|
|
self.current = self.current - 1
|
|
end
|
|
end -- if folder == ".."
|
|
self.pagedirty = true
|
|
end -- function
|
|
)
|
|
-- make renaming flexible: it either keeps old extension (BEGINNERS_MODE) or
|
|
-- allows to rename the whole filename including the extension
|
|
self.commands:add(KEY_R, MOD_SHIFT, "R",
|
|
"rename file",
|
|
function(self)
|
|
local oldname = self:FullFileName()
|
|
if oldname then
|
|
-- NuPogodi, 04.09.2012: safe mode (keep old extensions)
|
|
-- Tigran, 18/08/12: corrected the rename operation to include extension.)
|
|
local name_we = self.files[self.perpage*(self.page-1)+self.current-#self.dirs]
|
|
local ext = ""
|
|
if self.filemanager_expert_mode <= self.BEGINNERS_MODE then
|
|
ext = "."..string.lower(string.match(oldname, ".+%.([^.]+)") or "")
|
|
name_we = string.sub(name_we, 1, -1-string.len(ext))
|
|
end
|
|
local newname = InputBox:input(0, 0, "New filename:", name_we)
|
|
if newname then
|
|
newname = self.path.."/"..newname..ext
|
|
os.rename(oldname, newname)
|
|
os.rename(DocToHistory(oldname), DocToHistory(newname))
|
|
self:setPath(self.path)
|
|
end
|
|
self.pagedirty = true
|
|
end
|
|
end
|
|
)
|
|
-- NuPogodi, 04.09.12: menu to switch the filechooser mode
|
|
self.commands:add(KEY_M, MOD_ALT, "M",
|
|
"set mode for filemanager",
|
|
function(self)
|
|
self:changeFileChooserMode()
|
|
end
|
|
)
|
|
self.commands:add({KEY_F, KEY_AA}, nil, "F",
|
|
"change font faces",
|
|
function(self)
|
|
Font:chooseFonts()
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add(KEY_H,nil,"H",
|
|
"show help page",
|
|
function(self)
|
|
HelpPage:show(0, G_height, self.commands)
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add(KEY_L, nil, "L",
|
|
"show last documents",
|
|
function(self)
|
|
FileHistory:init()
|
|
FileHistory:choose("")
|
|
self.pagedirty = true
|
|
return nil
|
|
end
|
|
)
|
|
self.commands:add(KEY_S, nil, "S",
|
|
"search among files",
|
|
function(self)
|
|
local keywords = InputBox:input(0, 0, "Search:")
|
|
if keywords then
|
|
InfoMessage:show("Searching... ",0)
|
|
FileSearcher:init( self.path )
|
|
FileSearcher:choose(keywords)
|
|
end
|
|
self.pagedirty = true
|
|
end -- function
|
|
)
|
|
self.commands:add(KEY_C, MOD_SHIFT, "C",
|
|
"copy file to \'clipboard\'",
|
|
function(self)
|
|
local file = self:FullFileName()
|
|
if file then
|
|
lfs.mkdir(self.clipboard)
|
|
os.execute("cp "..self:InQuotes(file).." "..self.clipboard)
|
|
local fn = self.files[self.perpage*(self.page-1)+self.current - #self.dirs]
|
|
os.execute("cp "..self:InQuotes(DocToHistory(file)).." "
|
|
..self:InQuotes(DocToHistory(self.clipboard.."/"..fn)) )
|
|
showInfoMsgWithDelay("File copied to clipboard ", 1000, 1)
|
|
end
|
|
end
|
|
)
|
|
self.commands:add(KEY_X, MOD_SHIFT, "X",
|
|
"move file to \'clipboard\'",
|
|
function(self)
|
|
local file = self:FullFileName()
|
|
if file then
|
|
lfs.mkdir(self.clipboard)
|
|
local fn = self.files[self.perpage*(self.page-1)+self.current - #self.dirs]
|
|
os.rename(file, self.clipboard.."/"..fn)
|
|
os.rename(DocToHistory(file), DocToHistory(self.clipboard.."/"..fn))
|
|
InfoMessage:show("File moved to clipboard ", 0)
|
|
self:setPath(self.path)
|
|
self.pagedirty = true
|
|
end
|
|
end
|
|
)
|
|
self.commands:add(KEY_V, MOD_SHIFT, "V",
|
|
"paste file(s) from \'clipboard\'",
|
|
function(self)
|
|
InfoMessage:show("moving file(s) from clipboard ", 0)
|
|
for f in lfs.dir(self.clipboard) do
|
|
if lfs.attributes(self.clipboard.."/"..f, "mode") == "file" then
|
|
os.rename(self.clipboard.."/"..f, self.path.."/"..f)
|
|
os.rename(DocToHistory(self.clipboard.."/"..f), DocToHistory(self.path.."/"..f))
|
|
end
|
|
end
|
|
self:setPath(self.path)
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add(KEY_B, MOD_SHIFT, "B",
|
|
"show content of \'clipboard\'",
|
|
function(self)
|
|
lfs.mkdir(self.clipboard)
|
|
self:setPath(self.clipboard)
|
|
-- TODO: exit back from clipboard to last folder - Redefine Exit on FW_Right?
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add(KEY_N, MOD_SHIFT, "N",
|
|
"make new folder",
|
|
function(self)
|
|
local folder = InputBox:input(0, 0, "New Folder:")
|
|
if folder then
|
|
if lfs.mkdir(self.path.."/"..folder) then
|
|
self:setPath(self.path)
|
|
end
|
|
end
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add(KEY_K, MOD_SHIFT, "K",
|
|
"run calculator",
|
|
function(self)
|
|
local CalcBox = InputBox:new{ calcmode = true }
|
|
CalcBox:input(0, 0, "Calc ")
|
|
self.pagedirty = true
|
|
end
|
|
)
|
|
self.commands:add(KEY_HOME, nil, "Home",
|
|
"exit",
|
|
function(self)
|
|
return "break"
|
|
end
|
|
)
|
|
end
|
|
|
|
-- returns full filename or nil (if folder)
|
|
function FileChooser:FullFileName()
|
|
local file
|
|
local folder = self.dirs[self.perpage*(self.page-1)+self.current]
|
|
if folder == ".." then
|
|
showInfoMsgWithDelay("<UP-DIR> ",1000,1)
|
|
elseif folder then
|
|
showInfoMsgWithDelay("<DIR> ",1000,1)
|
|
else
|
|
file=self.path.."/"..self.files[self.perpage*(self.page-1)+self.current - #self.dirs]
|
|
end
|
|
return file
|
|
end
|
|
-- returns the keycode of released key and (if debug) shows the keycode on screen
|
|
function FileChooser:ReturnKey(debug)
|
|
while true do
|
|
ev = input.saveWaitForEvent()
|
|
ev.code = adjustKeyEvents(ev)
|
|
if ev.type == EV_KEY and ev.value ~= EVENT_VALUE_KEY_RELEASE then
|
|
break
|
|
end
|
|
end
|
|
if debug then showInfoMsgWithDelay("Keycode = "..ev.code,1000,1) end
|
|
return ev.code
|
|
end
|
|
|
|
function FileChooser:InQuotes(text)
|
|
return "\""..text.."\""
|
|
end
|
|
|
|
--[[ NuPogodi, 04.09.2012: to make it more easy for users with various purposes and skills.
|
|
ATM, one may leave only silent toggling between BEGINNERS_MODE <> ADVANCED_MODE
|
|
-- But, in future, one more (the so called ROOT_MODE) might also be rather useful.
|
|
Shitch this mode on should allow developers & beta-testers to use some unstable
|
|
and/or dangerous functions able to crash the reader. ]]
|
|
|
|
function FileChooser:changeFileChooserMode()
|
|
local face_list = { "safe mode for beginners", "advanced mode for experienced users", "expert mode for beta-testers & developers" }
|
|
local modes_menu = SelectMenu:new{
|
|
menu_title = "Select proper mode to manage files",
|
|
item_array = face_list,
|
|
current_entry = self.filemanager_expert_mode - 1,
|
|
}
|
|
local m = modes_menu:choose(0, G_height)
|
|
if m and m ~= self.filemanager_expert_mode then
|
|
--[[ TODO: to allow multiline-rendering for info messages & to include detailed description of the selected mode
|
|
local msg = "Press 'Y' to accept new mode..."
|
|
if m==self.BEGINNERS_MODE then
|
|
msg = "You have selected safe mode for beginners: the filemanager shows only files with the reader-related extensions (*.pdf, *.djvu, etc.); "..
|
|
"safe renaming (no extensions); unstable or dangerous functions are NOT included. "..msg
|
|
elseif m==self.ADVANCED_MODE then
|
|
msg = "You have selected advanced mode for experienced users: the filemanager shows all files; "..
|
|
"you may rename not only their names, but also the extensions; the files with unknown extensions would be sent to CREReader "..
|
|
"and could crash the reader. Please, use it in your own risk. "..msg
|
|
else -- ROOT_MODE
|
|
msg = "You have selected the most advanced and dangerous mode. I hope You know what you are doing. God bless You. "..msg
|
|
end
|
|
InfoMessage:show(msg, 1)
|
|
if self:ReturnKey() == KEY_Y then ]]
|
|
if (self.filemanager_expert_mode == self.BEGINNERS_MODE and m > self.BEGINNERS_MODE)
|
|
or (m == self.BEGINNERS_MODE and self.filemanager_expert_mode > self.BEGINNERS_MODE) then
|
|
self.filemanager_expert_mode = m -- make sure that new mode is set before...
|
|
self:setPath(self.path) -- refreshing the folder content
|
|
else
|
|
self.filemanager_expert_mode = m
|
|
end
|
|
G_reader_settings:saveSetting("filemanager_expert_mode", self.filemanager_expert_mode)
|
|
-- end
|
|
end
|
|
self.pagedirty = true
|
|
end
|
|
|