opencalc.lua

#!/usr/local/bin/lua

--[[
opencalc - an open source calcualtor

Copyright (C) 2011  Richard Titmuss <richard@opencalc.me>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License along
with this program in the file COPYING; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
--]]


local ui = require("ui")

local Sheet = require("sheet")
local Menu = require("menu")


local WINDOW_WIDTH, WINDOW_HEIGHT = 240, 160
local WINDOW_BORDER = 10
local WINDOW_SCALE = 1.5


local sheet = Sheet:new()


	-- TODO delete this code, it's for testing
	for i = 1,10 do
		sheet:insertCell(i-1, "A"..i)
		sheet:insertCell("(A"..i.."^2)-6=", "B"..i)
	end
	sheet:addView("view/line")
	sheet:setCursor("B11")



local global_menus = {
	["<file>"] = Menu.fileMenu,
	["<function>"] = Menu.functionMenu,
	["<edit>"] = Menu.editMenu,
	["<app>"] = Menu.appMenu,
	["<view>"] = function(sheet)
		sheet:nextView()
		return nil
	end,
	["<setting>"] = function(sheet)
		return sheet:propMenu()
	end,
}


local backend = ui.getBackend()

local window = ui.createWindow(
      (WINDOW_WIDTH + WINDOW_BORDER) * WINDOW_SCALE,
      (WINDOW_HEIGHT + WINDOW_BORDER) * WINDOW_SCALE)

local context = window:getContext()

if backend ~= "fb" then
	context:translate(WINDOW_BORDER, WINDOW_BORDER)
	context:scale(WINDOW_SCALE, WINDOW_SCALE)
end

context:rectangle(0, 0, WINDOW_WIDTH, WINDOW_HEIGHT)
context:clip()


-- keymap
local keymap = require("keymap." .. backend)

-- key modifier state (eg shift, abc, sym)
local keymod = 1


-- view
local view, menu, menu_open

while (true) do
	view = sheet:getView()

	view:draw(context, WINDOW_WIDTH, WINDOW_HEIGHT)
	if menu then
		menu:draw(context, WINDOW_WIDTH, WINDOW_HEIGHT)
	end

	local event = window:nextEvent()

	if event.type == "keypress" then
		event.key = event.value
		if keymap[event.value] then
			event.key = keymap[event.value][keymod]
		end

print("value=", event.value .. " " .. tostring(event.key))

		-- handle global keys here
		if event.key == "<shift>" then
			keymod = 2

		elseif global_menus[event.key] then
			local items = global_menus[event.key]
			if type(items) == "function" then
				items = items(sheet)
			end
			if items and menu_open ~= event.key then
				menu = Menu:new(sheet, items)
				menu_open = event.key
			else
				menu = nil
				menu_open = nil
			end

		elseif event.key then
			if not (menu or view):event(event) then
				menu = nil
				menu_open = nil
			end
		end

	elseif event.type == "keyrelease" then
		local key = event.value
		if keymap[event.value] then
			key = keymap[event.value][keymod]
		end

		if key == "<shift>" then
			keymod = 1

		elseif event.key then
			if not (menu or view):event(event) then
				menu = nil
			end
		end
	end
end