#!/usr/bin/perl

# Dump the current xkb letter layout as a keyd config.

use warnings;
use File::Basename;
use utf8;
use open ":std", ":encoding(UTF-8)";

# Build a map of X keysyms to unicode chars
open FH, "/usr/include/xkbcommon/xkbcommon-keysyms.h";
while (<FH>) {
	$symmap{$1} = chr(hex($2)) if (/XKB_KEY_([^  \t]*)\s.*U\+([0-9a-fA-F]*)/);
}

# Map X keycodes to their corresponding keyd names
%codemap = (
	24 => "q",
	25 => "w",
	26 => "e",
	27 => "r",
	28 => "t",
	29 => "y",
	30 => "u",
	31 => "i",
	32 => "o",
	33 => "p",
	34 => "[",
	35 => "]",
	38 => "a",
	39 => "s",
	40 => "d",
	41 => "f",
	42 => "g",
	43 => "h",
	44 => "j",
	45 => "k",
	46 => "l",
	47 => ";",
	48 => "'",
	52 => "z",
	53 => "x",
	54 => "c",
	55 => "v",
	56 => "b",
	57 => "n",
	58 => "m",
	59 => ",",
	60 => ".",
	61 => "/",
);

sub sym_to_char {
	$sym = $_[0];

	if ($sym =~ /U([0-9A-Fa-f]+)/) {
		 return chr(hex($1));
	} elsif ($symmap{$sym}) {
		 $symmap{$sym};
	} else {
		print STDERR "Could not resolve sym: $sym\n";
		return "";
	}
}

for (`xmodmap -pke`) {
	if (/keycode\s*([0-9]+)\s*=\s*(\S+)\s*(\S+)/ && $codemap{$1}) {
		$key = $codemap{$1};
		$keymap{$key} = $sym if ($sym = sym_to_char $2);
		$shifted_keymap{$key} = $sym if ($sym = sym_to_char $3);
	}
}

`setxkbmap -query` =~ /layout:\s*(\S*)/;
$shift_layer = "$1_shift";

print "$_ = $keymap{$_}\n" foreach (sort keys %keymap);
print "shift = layer($shift_layer)\n";
print "\n";

print "[$shift_layer:S]\n";
print "$_ = $shifted_keymap{$_}\n" foreach (sort keys %shifted_keymap);
