모듈:Key

L위키, 시민들이 참여하여 가꾸는 리버럴 위키
-- This module implements {{key press}}.

local kbdPrefix =
	'<kbd class=' ..
	'"keyboard-key nowrap" ' ..
	'style="border: 1px solid #aaa; ' ..
	-- The following is an expansion of {{border-radius|0.2em}}
	'-moz-border-radius: 0.2em; -webkit-border-radius: 0.2em; border-radius: 0.2em; ' ..
	-- The following is an expansion of {{box-shadow|0.1em|0.1em|0.2em|rgba(0,0,0,0.1)}}
	'-moz-box-shadow: 0.1em 0.1em 0.2em rgba(0,0,0,0.1); -webkit-box-shadow: 0.1em 0.1em 0.2em rgba(0,0,0,0.1); box-shadow: 0.1em 0.1em 0.2em rgba(0,0,0,0.1); ' ..
	'background-color: #f9f9f9; ' ..
	-- The following is an expansion of {{linear-gradient|top|#eee, #f9f9f9, #eee}}
	'background-image: -moz-linear-gradient(top, #eee, #f9f9f9, #eee); background-image: -o-linear-gradient(top, #eee, #f9f9f9, #eee); background-image: -webkit-linear-gradient(top, #eee, #f9f9f9, #eee); background-image: linear-gradient(to bottom, #eee, #f9f9f9, #eee); ' ..
	'padding: 0.1em 0.3em; ' ..
	'font-family: inherit; ' ..
	'font-size: 0.85em;">'

local kbdSuffix = '</kbd>'

local keyText = {
	['caps lock'] = '⇪ Caps Lock',
	['캡스 락'] = '⇪ Caps Lock',
	['[[캡스 락]]'] = '⇪ [[캡스 락|Caps Lock]]',
	['shift'] = '⇧ Shift',
	['시프트'] = '⇧ Shift',
	['[[시프트 키|shift]]'] = '⇧ [[시프트 키|Shift]]',
	['enter'] = '↵ Enter',
	['엔터'] = '↵ Enter',
	['[[엔터 키|enter]]'] = '↵ [[엔터 키|Enter]]',
	['cmd'] = '⌘ Cmd',
	['[[커맨드 키|cmd]]'] = '⌘ [[커맨드 키|Cmd]]',
	['command'] = '⌘ Command',
	['커맨드'] = '⌘ Command',
	['[[커맨드 키|Command]]'] = '⌘ [[커맨드 키|Command]]',
	['opt'] = '⌥ Opt',
	['[[옵션 키|opt]]'] = '⌥ [[옵션 키|Opt]]',
	['option'] = '⌥ Option',
	['[[옵션 키|Option]]'] = '⌥ [[옵션 키|Option]]',
	['tab'] = 'Tab ↹',
	['탭'] = 'Tab ↹',
	['[[탭 키|tab]]'] = '[[탭 키|Tab]] ↹',
	['backspace'] = '← Backspace',
	['백스페이스'] = '← Backspace',
	['[[백스페이스]]'] = '← [[백스페이스|Backspace]]',
	['win'] = '⊞ Win',
	['윈도'] = '⊞ Win',
	['윈도우'] = '⊞ Win',
	['[[윈도우 키|win]]'] = '⊞ [[윈도우 키|Win]]',
	['menu'] = '≣ Menu',
	['메뉴'] = '≣ Menu',
	['[[메뉴 키|menu]]'] = '≣ [[메뉴 키|Menu]]',
	['up'] = '↑',
	['위'] = '↑',
	['[[방향키|위]]'] = '[[방향키|↑]]',
	['down'] = '↓',
	['아래'] = '↓',
	['[[방향키|down]]'] = '[[방향키|↓]]',
	['left'] = '←',
	['왼쪽'] = '←',
	['[[방향키|left]]'] = '[[방향키|←]]',
	['right'] = '→',
	['오른쪽'] = '→',
	['[[방향키|right]]'] = '[[방향키|→]]',
	['asterisk'] = '&#42;',
	['별표'] = '&#42;',
	['hash'] = '&#35;',
	['해시'] = '&#35;',
	['[[#]]'] = '[[해시 기호|#]]',
	['colon'] = '&#58;',
	['콜론'] = '&#58;',
	['[[:]]'] = '[[쌍점|:]]',
	['pipe'] = '&#124;',
	['파이프'] = '&#124;',
	['[[|]]'] = '[[수직선 (기호)|&#124;]]',
	['semicolon'] = '&#59;',
	['세미콜론'] = '&#59;',
	['[[;]]'] = '[[쌍반점|&#59;]]',
	['equals'] = '&#61;',
	['등호'] = '&#61;',

	-- Left & right analog sticks.
	['l up'] = 'L↑',
	['l down'] = 'L↓',
	['l left'] = 'L←',
	['l right'] = 'L→',
	['l ne'] = 'L↗',
	['l se'] = 'L↘',
	['l nw'] = 'L↖',
	['l sw'] = 'L↙',

	['r up'] = 'R↑',
	['r down'] = 'R↓',
	['r left'] = 'R←',
	['r right'] = 'R→',
	['r ne'] = 'R↗',
	['r se'] = 'R↘',
	['r nw'] = 'R↖',
	['r sw'] = 'R↙',

	-- PlayStation.
	['ex'] = '×',
	['circle'] = '○',
	['square'] = '□',
	['triangle'] = '△',

	-- Nintendo 64 and GameCube.
	['c up'] = 'C↑',
	['c down'] = 'C↓',
	['c left'] = 'C←',
	['c right'] = 'C→',
	['c ne'] = 'C↗',
	['c se'] = 'C↘',
	['c nw'] = 'C↖',
	['c sw'] = 'C↙',
}

local keyAlias = {
	-- ['alternate name for key (alias)'] = 'name for key used in key table'
	['[[cmd 키|cmd]]'] = '[[커맨드 키|cmd]]',
	['[[cmd 키|command]]'] = '[[커맨드 키|command]]',
	['[[옵션 키|opt]]'] = '[[옵션 키|opt]]',
	['[[옵션 키]]'] = '[[옵션 키|option]]',
	['[[옵션 키|option]]'] = '[[옵션 키|option]]',
	['[[윈도우 키|win]]'] = '[[윈도우 키|win]]',
	['*'] = 'asterisk',
	['#'] = 'hash',
	[':'] = 'colon',
	[';'] = 'semicolon',
	['l-up'] = 'l up',
	['l-down'] = 'l down',
	['l-left'] = 'l left',
	['l-right'] = 'l right',
	['l-ne'] = 'l ne',
	['l-se'] = 'l se',
	['l-nw'] = 'l nw',
	['l-sw'] = 'l sw',
	['r-up'] = 'r up',
	['r-down'] = 'r down',
	['r-left'] = 'r left',
	['r-right'] = 'r right',
	['r-ne'] = 'r ne',
	['r-se'] = 'r se',
	['r-nw'] = 'r nw',
	['r-sw'] = 'r sw',
	['ps x'] = 'ex',
	['ps c'] = 'circle',
	['ps s'] = 'square',
	['ps t'] = 'triangle',
	['c-up'] = 'c up',
	['c-down'] = 'c down',
	['c-left'] = 'c left',
	['c-right'] = 'c right',
	['c-ne'] = 'c ne',
	['c-se'] = 'c se',
	['c-nw'] = 'c nw',
	['c-sw'] = 'c sw',
}

local Collection = {}
Collection.__index = Collection
do
	function Collection:add(item)
		if item ~= nil then
			self.n = self.n + 1
			self[self.n] = item
		end
	end
	function Collection:join(sep)
		return table.concat(self, sep)
	end
	function Collection:sort(comp)
		table.sort(self, comp)
	end
	function Collection.new()
		return setmetatable({n = 0}, Collection)
	end
end

local function keyPress(args)
	local chainNames = {
		'chain first',
		'chain second',
		'chain third',
		'chain fourth',
		'chain fifth',
		'chain sixth',
		'chain seventh',
		'chain eighth',
		'chain ninth',
	}
	local result = Collection.new()
	local chainDefault = args.chain or '+'
	for i, id in ipairs(args) do
		if i > 1 then
			result:add(args[chainNames[i - 1]] or chainDefault)
		end
		local lc = id:lower()
		local text = keyText[lc] or keyText[keyAlias[lc]] or id
		result:add(kbdPrefix .. text .. kbdSuffix)
	end
	return result:join()
end

local function keypress(frame)
	-- Called by "{{key press|...}}".
	-- Using the template doubles the post‐expand include size.
	return keyPress(frame:getParent().args)
end

local function press(frame)
	-- Called by "{{#invoke:key|press|...}}".
	return keyPress(frame.args)
end

return {
	keypress = keypress,
	press = press,
}