keyboard.el

(defun set-xkb-layout (layout)
  "Set the current X keyboard layout."

  (shell-command (format "setxkbmap %s" layout))
  (message "Set X11 keyboard layout to '%s'" layout))

(-map
     (lambda (pair)
       (exwm-input-set-key
        (kbd (format "s-%s" (cadr pair)))
        `(lambda () (interactive) (set-xkb-layout ,(car pair)))))
     '(("no" "k n")
       ("no" "л т")
       ("ru" "k r")
       ("ru" "л к")
       ("us" "k u")
       ("us" "л г")))