opus-apps/lzwfs/system/lzwfs.lua

local Config = require('opus.config')
local UI     = require('opus.ui')
local Util   = require('opus.util')

local fs = _G.fs

local config = Config.load('lzwfs', {
	enabled = false,
	filters = {
		'packages/',
		'sys/',
		'usr/config/',
	}
})

local tab = UI.Tab {
	tabTitle = 'Compression',
	description = 'Disk compression',
	[1] = UI.Window {
		x = 2, y = 2, ex = -2, ey = 6,
	},
	label1 = UI.Text {
		x = 3, y = 3,
		value = 'Enable compression',
	},
	checkbox = UI.Checkbox {
		x = 21, y = 3,
		value = config.enabled
	},
	entry = UI.TextEntry {
		x = 3, y = 5 , ex = -3,
		limit = 256,
		shadowText = 'enter new path',
		accelerators = {
			enter = 'add_path',
		},
		help = 'add a new path',
	},
	grid = UI.Grid {
		x = 2, ex = -2, y = 8, ey = -5,
		disableHeader = true,
		columns = { { key = 'value' } },
		autospace = true,
		sortColumn = 'value',
		help = 'double-click to remove',
		accelerators = {
			delete = 'remove',
		},
	},
	button = UI.Button {
		x = -8, ex = -2, y = -3,
		text = 'Apply',
		event = 'apply',
	},
	statusBar = UI.StatusBar { },
}

function tab:enable()
	self.grid.values = { }
	for _,v in ipairs(config.filters or { }) do
		table.insert(self.grid.values, { value = v })
	end
	self.grid:update()
	UI.Tab.enable(self)
end

local function rewriteFiles(p)
	if type(p) == 'table' then
		for _, path in pairs(p) do
			rewriteFiles(path)
		end
	else
		local function recurse(path)
			if fs.isDir(path) then
				for _, v in pairs(fs.listEx(path)) do
					if not v.isReadOnly then
						recurse(fs.combine(path, v.name))
					end
				end
			else
				local c = Util.readFile(path)
				Util.writeFile(path, c)
			end
		end

		recurse(fs.combine(p, ''))
	end
end

function tab:eventHandler(event)
	if event.type == 'add_path' and self.entry.value then
		table.insert(self.grid.values, {
			value = self.entry.value,
		})
		self.entry:reset()
		self.entry:draw()
		self.grid:update()
		self.grid:draw()
		return true

	elseif event.type == 'grid_select' or event.type == 'remove' then
		local selected = self.grid:getSelected()
		if selected then
			Util.removeByValue(self.grid.values, selected)
			self.grid:update()
			self.grid:draw()
		end

	elseif event.type == 'focus_change' then
		self.statusBar:setStatus(event.focused.help)

	elseif event.type == 'apply' then
		local filters = { }

		for _, v in pairs(self.grid.values) do
			table.insert(filters, v.value)
		end

		self.statusBar:setStatus('Applying changes')
		self:sync()

		if self.checkbox.value ~= config.enabled then
			if not self.checkbox.value then
				fs.option('compression', 'filters', { })
				rewriteFiles(config.filters)
				fs.option('compression', 'enabled', false)
			else
				fs.option('compression', 'enabled', true)
				fs.option('compression', 'filters', filters)
				rewriteFiles(filters)
			end
		elseif self.checkbox.value then
			fs.option('compression', 'filters', filters)
			for _,v in pairs(filters) do
				if not Util.contains(config.filters, v) then
					rewriteFiles(v) -- compress
				end
			end

			for _,v in pairs(config.filters) do
				if not Util.contains(filters, v) then
					rewriteFiles(v) -- uncompress
				end
			end
		end
		config.filters = filters
		config.enabled = self.checkbox.value
		Config.update('lzwfs', config)

		self:emit({ type = 'success_message', message = 'Settings updated' })
	end

	return UI.Tab.eventHandler(self, event)
end

return tab