1 files changed, 249 insertions, 0 deletions

diff --git a/apps/plugins/lua/include_lua/printmenus.lua b/apps/plugins/lua/include_lua/printmenus.lua
new file mode 100644
index 0000000000..3e8f870104
--- /dev/null
+++ b/apps/plugins/lua/include_lua/printmenus.lua
@@ -0,0 +1,249 @@
+--[[
+/***************************************************************************
+ *             __________               __   ___.
+ *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+ *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+ *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+ *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+ *                     \/            \/     \/    \/            \/
+ * $Id$
+ *
+ * Copyright (C) 2017 William Wilgus
+ *
+ * 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 software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+ * KIND, either express or implied.
+ *
+ ****************************************************************************/
+]]
+if not rb.lcd_framebuffer then rb.splash(rb.HZ, "No Support!") return nil end
+
+require("printtable")
+
+local _clr = require("color")
+
+local _LCD = rb.lcd_framebuffer()
+
+--[[ -- dpad requires:
+require("actions")   -- Contains rb.actions & rb.contexts
+local _timer = require("timer")
+-- Button definitions --
+local CANCEL_BUTTON = rb.actions.PLA_CANCEL
+local DOWN_BUTTON = rb.actions.PLA_DOWN
+local DOWNR_BUTTON = rb.actions.PLA_DOWN_REPEAT
+local EXIT_BUTTON = rb.actions.PLA_EXIT
+local LEFT_BUTTON = rb.actions.PLA_LEFT
+local LEFTR_BUTTON = rb.actions.PLA_LEFT_REPEAT
+local RIGHT_BUTTON = rb.actions.PLA_RIGHT
+local RIGHTR_BUTTON = rb.actions.PLA_RIGHT_REPEAT
+local SEL_BUTTON = rb.actions.PLA_SELECT
+local SELREL_BUTTON = rb.actions.PLA_SELECT_REL
+local SELR_BUTTON = rb.actions.PLA_SELECT_REPEAT
+local UP_BUTTON = rb.actions.PLA_UP
+local UPR_BUTTON = rb.actions.PLA_UP_REPEAT
+]]
+--------------------------------------------------------------------------------
+local function get_core_settings()
+    if rb.core_color_table ~= nil and rb.core_talk_table ~= nil and
+       rb.core_list_settings_table ~= nil then return end
+
+    local rbs_is_loaded = (package.loaded.rbsettings ~= nil)
+    local s_is_loaded = (package.loaded.settings ~= nil)
+
+    require("rbsettings")
+    require("settings")
+    rb.metadata = nil -- remove track metadata settings
+
+    local rb_settings = rb.settings.dump('global_settings', "system")
+    local color_table = {}
+    local talk_table = {}
+    local list_settings_table = {}
+    local list_settings = "cursor_style|show_icons|statusbar|scrollbar|scrollbar_width|list_separator_height|backdrop_file|"
+    for key, value in pairs(rb_settings) do
+            key = key or ""
+            if (key:find("color")) then
+                    color_table[key]=value
+            elseif (key:find("talk")) then
+                    talk_table[key]=value
+            elseif (list_settings:find(key)) then
+                    list_settings_table[key]=value
+            end
+    end
+
+    if not s_is_loaded then
+        rb.settings = nil
+        package.loaded.settings = nil
+    end
+
+    if not rbs_is_loaded then
+        rb.system = nil
+        rb.metadata = nil
+        package.loaded.rbsettings = nil
+    end
+
+    rb.core_color_table = color_table
+    rb.core_talk_table = talk_table
+    rb.core_list_settings_table = list_settings_table
+    collectgarbage("collect")
+end
+
+--[[ cursor style button routine
+-- left / right are x, xi is increment xir is increment when repeat
+-- up / down are y, yi is increment yir is increment when repeat
+-- cancel is returned as 0,1
+-- select as 0, 1, 2, 3 (none, pressed, repeat, relesed)
+-- x_chg and y_chg are the amount x or y changed
+-- timeout == nil or -1 loop waits indefinitely till button is pressed
+-- time since last button press is returned in ticks..
+-- make xi, xir, yi, yir negative to flip direction...
+]]
+--[[
+local function dpad(x, xi, xir, y, yi, yir, timeout, overflow)
+    local scroll_is_fixed = overflow ~= "manual"
+    _timer("dpad") -- start a persistant timer; keeps time between button events
+    if timeout == nil then timeout = -1 end
+    local cancel, select = 0, 0
+    local x_chg, y_chg = 0, 0
+    local button
+    while true do
+        button = rb.get_plugin_action(timeout)
+
+        if button == CANCEL_BUTTON then
+            cancel = 1
+            break;
+        elseif button == EXIT_BUTTON then
+            cancel = 1
+            break;
+        elseif button == SEL_BUTTON then
+            select = 1
+            timeout = timeout + 1
+        elseif button == SELR_BUTTON then
+            select = 2
+            timeout = timeout + 1
+        elseif button == SELREL_BUTTON then
+            select = -1
+            timeout = timeout + 1
+        elseif button == LEFT_BUTTON then
+            x_chg = x_chg - xi
+            if scroll_is_fixed then
+                cancel = 1
+                break;
+            end
+        elseif button == LEFTR_BUTTON then
+            x_chg = x_chg - xir
+        elseif button == RIGHT_BUTTON then
+            x_chg = x_chg + xi
+            if scroll_is_fixed then
+                select = 1
+                timeout = timeout + 1
+            end
+        elseif button == RIGHTR_BUTTON then
+            x_chg = x_chg + xir
+        elseif button == UP_BUTTON then
+            y_chg = y_chg + yi
+        elseif button == UPR_BUTTON then
+            y_chg = y_chg + yir
+        elseif button == DOWN_BUTTON then
+            y_chg = y_chg - yi
+        elseif button == DOWNR_BUTTON then
+            y_chg = y_chg - yir
+        elseif timeout >= 0 then--and rb.button_queue_count() < 1 then
+            break;
+        end
+
+        if x_chg ~= 0 or y_chg ~= 0 then
+            timeout = timeout + 1
+        end
+    end
+
+    x = x + x_chg
+    y = y + y_chg
+
+    return cancel, select, x_chg, x, y_chg, y, _timer.check("dpad", true)
+end -- dpad
+]]
+--------------------------------------------------------------------------------
+-- displays text in menu_t calls function in same indice of func_t when selected
+function print_menu(menu_t, func_t, selected, settings, copy_screen)
+
+    local i, start, vcur, screen_img
+
+    if selected then vcur = selected + 1 end
+    if vcur and vcur <= 1 then vcur = 2 end
+
+    get_core_settings()
+    local c_table = rb.core_color_table or {}
+
+    if not settings then
+        settings = {}
+        settings.default = true
+    end
+
+    settings.justify = settings.justify or "center"
+    settings.wrap    = settings.wrap or true
+    settings.hfgc    = settings.hfgc or c_table.lst_color or _clr.set( 0, 000, 000, 000)
+    settings.hbgc    = settings.hbgc or c_table.bg_color or _clr.set(-1, 255, 255, 255)
+    settings.ifgc    = settings.ifgc or c_table.fg_color or _clr.set(-1, 000, 255, 060)
+    settings.ibgc    = settings.ibgc or c_table.bg_color or _clr.set( 0, 000, 000, 000)
+    settings.iselc   = settings.iselc or c_table.lss_color or _clr.set( 1, 000, 200, 100)
+
+    if not settings.linedesc or rb.core_list_settings_table then
+        settings.linedesc = settings.linedesc or {}
+        local t_l = rb.core_list_settings_table
+        local linedesc = {
+                                separator_height = t_l.list_separator_height or 0,
+                                show_cursor = (t_l.cursor_style or 0) == 0,
+                                style = t_l.cursor_style or 0xFFFF, --just a random non used index
+                                show_icons = t_l.show_icons or false,
+                                text_color = c_table.fg_color or _clr.set(-1, 000, 255, 060),
+                                line_color = c_table.bg_color or _clr.set( 0, 000, 000, 000),
+                                line_end_color= c_table.bg_color or _clr.set( 0, 000, 000, 000),
+                            }
+        local styles = {rb.STYLE_NONE, rb.STYLE_INVERT, rb.STYLE_GRADIENT, rb.STYLE_COLORBAR, rb.STYLE_DEFAULT}
+        linedesc.style = styles[linedesc.style + 1] or rb.STYLE_COLORBAR
+
+        for k, v in pairs(linedesc) do
+            --dont overwrite supplied settings
+            settings.linedesc[k] = settings.linedesc[k] or v
+        end
+    end
+
+    settings.hasheader = true
+    settings.co_routine = nil
+    settings.msel = false
+    settings.start = start
+    settings.curpos = vcur
+    --settings.dpad_fn = dpad
+
+    while not i or i > 0 do
+        if copy_screen == true then
+                --make a copy of screen for restoration
+                screen_img = screen_img or rb.new_image()
+                screen_img:copy(_LCD)
+        else
+                screen_img = nil
+        end
+
+        _LCD:clear(settings.ibgc)
+
+        settings.start = start
+        settings.curpos = vcur
+
+        i, start, vcur = print_table(menu_t, #menu_t, settings)
+        --vcur = vcur + 1
+            collectgarbage("collect")
+        if copy_screen == true then _LCD:copy(screen_img) end
+
+        if func_t and func_t[i] then
+            if func_t[i](i, menu_t) == true then break end
+        else
+            break
+        end
+    end
+    if settings.default == true then settings = nil end
+    return screen_img, i
+end