xsession: add remap for Greek letters

dotfiles/xsession

@@ -18,11 +18,19 @@ if command -v sct >/dev/null 2>&1; then
 	sct 3500
 fi
 
-setxkbmap -layout us -variant altgr-intl -option compose:caps
 xset r rate 300 75
-
 xset b off
 
+_remap_altgr()
+{
+	xmodmap -e "$(xmodmap -pke |
+	    awk -v kc="$1" -v act="$2" '$2 == kc {$8 = act; print}')"
+}
+
+setxkbmap -layout us -variant altgr-intl -option compose:caps
+_remap_altgr 42 dead_greek
+unset -f _remap_altgr
+
 if [ -r ~/.Xresources ]; then
 	xrdb -load ~/.Xdefaults
 	xrdb -merge ~/.Xresources