convert-names-literal-2 « .traces « arc - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

path: root/arc/.traces/convert-names-literal-2

blob: 4eb641f42dc080792437c27d2e8111207832d76b (plain) (blame)

1
2
3
4
5
6cn0: convert-names in 
cn0: (((x boolean)) <- ((copy)) ((x literal))) nil nil
cn0: checking arg ((x literal))
cn0: checking oarg ((x boolean))
maybe-add: ((x boolean))
cn0: location for oarg ((x boolean)): 1
cn1: (((1 boolean)) <- ((copy)) ((x literal)))

= 'lalt' or key == 'ralt' or key == 'lshift' or key == 'rshift' or key == 'lgui' or key == 'rgui' then -- do nothing when the modifier is pressed end -- include the modifier(s) when the non-modifer is pressed keychord_pressed(combine_modifiers(key)) end function combine_modifiers(key) local result = '' local down = love.keyboard.isDown if down('lctrl') or down('rctrl') then result = result..'C-' end if down('lalt') or down('ralt') then result = result..'M-' end if down('lgui') or down('rgui') then result = result..'S-' end result = result..key return result end