luajitos

explorer.lua (9179B)

---

 -- LuaJIT OS File Explorer
 -- Browse directories and files with size information
 
 -- Current directory (start in home)
 local currentPath = "/home"
 local scrollOffset = 0
 
 -- Window dimensions
 local windowWidth = 600
 local windowHeight = 500
 local window = app:newWindow(windowWidth, windowHeight)
 window.title = "Explorer"
 
 -- Debug: Check window properties after creation
 if osprint then
     osprint("[EXPLORER] Window created\n")
     osprint("[EXPLORER] window type: " .. type(window) .. "\n")
     osprint("[EXPLORER] window.visible: " .. tostring(window.visible) .. "\n")
     osprint("[EXPLORER] window.isBackground: " .. tostring(window.isBackground) .. "\n")
 end
 
 -- UI constants
 local lineHeight = 20
 local headerHeight = 40
 local footerHeight = 25
 
 -- Directory and file listing cache
 local entries = {}
 
 -- Helper: Format file size
 local function formatSize(bytes)
     if not bytes then return "?" end
 
     if bytes < 1024 then
         return tostring(bytes) .. " B"
     elseif bytes < 1048576 then
         return string.format("%.1f KB", bytes / 1024)
     elseif bytes < 1073741824 then
         return string.format("%.1f MB", bytes / 1048576)
     else
         return string.format("%.1f GB", bytes / 1073741824)
     end
 end
 
 -- Helper: Get file/directory size
 local function getSize(path)
     if not fs then return 0 end
 
     local itemType = fs:getType(path)
     if itemType == "file" then
         local content = fs:read(path)
         return content and #content or 0
     elseif itemType == "directory" then
         -- For directories, count entries
         local dirs = fs:dirs(path) or {}
         local files = fs:files(path) or {}
         return bit.band(#dirs, 0xFFFFFFFF) + bit.band(#files, 0xFFFFFFFF)
     end
 
     return 0
 end
 
 -- Load directory contents
 local function loadDirectory(path)
     entries = {}
 
     if osprint then
         osprint("[EXPLORER] loadDirectory called with path=" .. tostring(path) .. "\n")
         osprint("[EXPLORER] fs=" .. tostring(fs) .. "\n")
     end
 
     if not fs then
         if osprint then
             osprint("[EXPLORER] ERROR: fs is nil!\n")
         end
         print("Explorer: No filesystem access - fs is nil")
         return
     end
 
     -- Add parent directory entry if not at home
     if path ~= "/home" then
         table.insert(entries, {
             name = "..",
             type = "directory",
             size = 0,
             isParent = true
         })
     end
 
     -- Get directories using SafeFS
     local dirs = fs:dirs(path)
     if dirs then
         for _, dirName in ipairs(dirs) do
             local fullPath = fs:join(path, dirName)
             table.insert(entries, {
                 name = dirName,
                 type = "directory",
                 size = 0,
                 path = fullPath
             })
         end
     end
 
     -- Get files using SafeFS
     local files = fs:files(path)
     if files then
         for _, fileName in ipairs(files) do
             local fullPath = fs:join(path, fileName)
             table.insert(entries, {
                 name = fileName,
                 type = "file",
                 size = 0,
                 path = fullPath
             })
         end
     end
 
     scrollOffset = 0  -- Reset scroll when changing directory
 end
 
 -- Navigate to a directory
 local function navigateTo(path)
     currentPath = path
     loadDirectory(currentPath)
     window.dirty = true
 
     print("Explorer: Navigated to " .. currentPath)
 end
 
 -- Flag to track if directory is loaded
 local isLoaded = false
 
 -- Mouse click handling
 window.onClick = function(mx, my)
     if osprint then
         osprint("[EXPLORER] onClick CALLED! Mouse click at (" .. mx .. ", " .. my .. ")\n")
     end
 
     -- Check if click is in the file list area (below header and column headers row)
     local listStartY = headerHeight + lineHeight  -- Account for column headers row
     if my > listStartY and my < windowHeight - footerHeight then
         local clickedIndex = math.floor((my - listStartY) / lineHeight) + 1 + scrollOffset
 
         if osprint then
             osprint("[EXPLORER] Clicked index: " .. clickedIndex .. " (total entries: " .. #entries .. ")\n")
         end
 
         if clickedIndex > 0 and clickedIndex <= bit.band(#entries, 0xFFFFFFFF) then
             local entry = entries[clickedIndex]
 
             if osprint then
                 osprint("[EXPLORER] Clicked entry: " .. entry.name .. " type=" .. entry.type .. "\n")
             end
 
             if entry.type == "directory" then
                 if entry.isParent then
                     -- Go to parent directory
                     local parentPath = fs:parentDir(currentPath)
                     if parentPath then
                         navigateTo(parentPath)
                     end
                 else
                     -- Navigate to subdirectory
                     if osprint then
                         osprint("[EXPLORER] Navigating to: " .. entry.path .. "\n")
                     end
                     navigateTo(entry.path)
                 end
             end
         end
     end
 
     window:markDirty()
 end
 
 -- Debug: Verify onClick is set
 if osprint then
     osprint("[EXPLORER] After setting onClick, window.onClick type: " .. type(window.onClick) .. "\n")
 end
 
 -- Keyboard input handling
 window.onInput = function(key_or_event, scancode)
     if type(key_or_event) == "string" then
         local key = key_or_event
 
         -- Up arrow - scroll up
         if scancode == 0x48 then
             scrollOffset = math.max(0, scrollOffset - 1)
             window.dirty = true
         -- Down arrow - scroll down
         elseif scancode == 0x50 then
             local maxScroll = math.max(0, bit.band(#entries, 0xFFFFFFFF) - math.floor((windowHeight - headerHeight - footerHeight) / lineHeight))
             scrollOffset = math.min(maxScroll, scrollOffset + 1)
             window.dirty = true
         -- Home key - go to home directory
         elseif key == "h" or key == "H" then
             navigateTo("/home")
         -- Backspace or left arrow - go to parent
         elseif key == "\b" or scancode == 0x4B then
             local parentPath = fs:parentDir(currentPath)
             if parentPath then
                 navigateTo(parentPath)
             end
         end
     end
 end
 
 -- Flag to track first draw
 local firstDraw = true
 
 -- Draw the explorer
 window.onDraw = function(gfx)
     -- Load directory on first draw (after fs is available)
     if firstDraw then
         firstDraw = false
         if fs then
             loadDirectory(currentPath)
         else
             if osprint then
                 osprint("[EXPLORER] ERROR: fs is nil on first draw!\n")
             end
         end
     end
 
     -- Background
     gfx:fillRect(0, 0, windowWidth, windowHeight, 0x1E1E1E)
 
     -- Header - current path
     gfx:fillRect(0, 0, windowWidth, headerHeight, 0x2D2D30)
     gfx:drawText(10, 12, "Path: " .. currentPath, 0xFFFFFF)
 
     -- Column headers
     local headerY = headerHeight
     gfx:fillRect(0, headerY, windowWidth, lineHeight, 0x3E3E42)
     gfx:drawText(10, headerY + 5, "Name", 0xCCCCCC)
     gfx:drawText(windowWidth - 150, headerY + 5, "Type", 0xCCCCCC)
     gfx:drawText(windowWidth - 80, headerY + 5, "Size", 0xCCCCCC)
 
     -- File/directory list
     local listY = headerY + lineHeight
     local visibleLines = math.floor((windowHeight - headerHeight - lineHeight - footerHeight) / lineHeight)
 
     for i = 1, visibleLines do
         local entryIndex = i + scrollOffset
         if entryIndex <= bit.band(#entries, 0xFFFFFFFF) then
             local entry = entries[entryIndex]
             local y = listY + (i - 1) * lineHeight
 
             -- Alternating row colors
             if i % 2 == 0 then
                 gfx:fillRect(0, y, windowWidth, lineHeight, 0x252526)
             end
 
             -- Icon and name
             local icon = entry.type == "directory" and "[DIR]" or "[FILE]"
             local nameColor = entry.type == "directory" and 0x4EC9B0 or 0xCCCCCC
 
             if entry.isParent then
                 icon = "[UP]"
                 nameColor = 0xDCDCAA
             end
 
             gfx:drawText(10, y + 3, icon .. " " .. entry.name, nameColor)
 
             -- Type
             local typeStr = entry.type == "directory" and "Folder" or "File"
             gfx:drawText(windowWidth - 150, y + 3, typeStr, 0x888888)
 
             -- Size
             local sizeStr = entry.type == "directory" and tostring(entry.size) .. " items" or formatSize(entry.size)
             gfx:drawText(windowWidth - 80, y + 3, sizeStr, 0x888888)
         end
     end
 
     -- Footer - help text
     local footerY = windowHeight - footerHeight
     gfx:fillRect(0, footerY, windowWidth, footerHeight, 0x2D2D30)
     gfx:drawText(10, footerY + 5, "Click dir to open | H=Home | Backspace=Parent | Arrows=Scroll", 0x888888)
 
     -- Scroll indicator
     if bit.band(#entries, 0xFFFFFFFF) > visibleLines then
         local scrollText = string.format("%d/%d", scrollOffset + 1, bit.band(#entries, 0xFFFFFFFF))
         gfx:drawText(windowWidth - 60, footerY + 5, scrollText, 0xCCCCCC)
     end
 end
 
 print("Explorer started")
 print("Current directory: " .. currentPath)
 print("Directory will load on first draw")