Module:Keyboard vis

From Xenharmonic Wiki
Jump to navigation Jump to search
Module documentation[view] [edit] [history] [purge]

This module displays a Halberstadt-like keyboard layout for a given MOS pattern, assuming a 2:1 step ratio.


local p = {}

local CORNER_TL				= '┌'	-- U+250C ┌
local CORNER_TR				= '┐'	-- U+2510 ┐
local CORNER_BL				= '└'	-- U+2514 └
local CORNER_BR				= '┘'	-- U+2518 ┘
local BORDER_BLACK_KEY_TOP	= '╥'	-- U+2565 ╥
local BORDER_WHITE_KEY_TOP	= '┬'	-- U+252C ┬
local BORDER_KEY_BOTTOM		= '┴'	-- U+2534 ┴
local BORDER_BLACK_KEY_SIDE	= '║'	-- U+2551 ║
local BORDER_WHITE_KEY_SIDE	= '│'	-- U+2502 │

-- Produces a small keyboard visualization
-- Likely to display correctly on most devices
function p.vis_small(step_pattern)
	local step_pattern = step_pattern or "LLLsLLs"
	
	local line_1 = CORNER_TL
	local line_2 = BORDER_WHITE_KEY_SIDE
	local line_3 = BORDER_WHITE_KEY_SIDE
	local line_4 = CORNER_BL
	
	for i = 1, #step_pattern do
		local current_step = step_pattern:sub(i,i)
		if current_step == "L" then
			line_1 = line_1 .. BORDER_BLACK_KEY_TOP
			line_2 = line_2 .. BORDER_BLACK_KEY_SIDE
			line_3 = line_3 .. BORDER_WHITE_KEY_SIDE
			line_4 = line_4 .. BORDER_KEY_BOTTOM
		elseif current_step == "s" then
			line_1 = line_1 .. BORDER_WHITE_KEY_TOP
			line_2 = line_2 .. BORDER_WHITE_KEY_SIDE
			line_3 = line_3 .. BORDER_WHITE_KEY_SIDE
			line_4 = line_4 .. BORDER_KEY_BOTTOM
		end
	end
	line_1 = line_1 .. CORNER_TR
	line_2 = line_2 .. BORDER_WHITE_KEY_SIDE
	line_3 = line_3 .. BORDER_WHITE_KEY_SIDE
	line_4 = line_4 .. CORNER_BR
	
	local result = '<pre style="'
		.. 'background-color: white; '
		.. 'line-height: 1; '
		.. 'font-family: Courier New, monospace; '
		.. 'font-size: 1em; '
		.. 'padding: 0.1em; '
		.. 'margin: 0.1em;">'
		.. string.format('\n%s\n%s\n%s\n%s\n', line_1, line_2, line_3, line_4)
		.. '</pre>'
	return result
end

return p