[STUMP] How do I bind left and right shifts simultaneous pressing

[York Zhao]

Hi List,

I would like to be able to toggle keyboard layout between DWERT and DVORAK by pressing both left and right SHIFT keys. I've already written the following command to do this. However, I'm not sure how to bind this command to pressing both SHIFT in Stumpwm.

(defcommand set-kbd-layout (layout) ()
  "Set keyboard layout"
  (setf layout (cdr (assoc layout '(("qwert"  . "qwert")
                                    ("dvorak" . "dvorak,"))
                           :test 'equal)))
  (when layout
    (run-shell-command (concatenate 'string "setxkbmap -variant " layout))))

Thanks,