mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

add :key attribute to keyboard event data

Browse source 
Adding :key attribute makes it easy to handle keypresses.
That's because we don't need to do any conversions using code-char.
This commit is contained in:
mavis 2021-03-05 14:54:50 +05:30
parent 93389b5558
commit 6b6b9a487b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-base.lisp
View file

@ -254,7 +254,7 @@ result or if time out DEFAULT-ANSWER (Private)"))
(defparameter keyboard-event-script (defparameter keyboard-event-script
"+ e.keyCode + ':' + e.charCode + ':' + e.altKey + ':' + e.ctrlKey + ':' + "+ e.keyCode + ':' + e.charCode + ':' + e.altKey + ':' + e.ctrlKey + ':' +
e.shiftKey + ':' + e.metaKey" e.shiftKey + ':' + e.metaKey + ':' + e.key"
"JavaScript to collect keyboard event data from browser.") "JavaScript to collect keyboard event data from browser.")
(defun parse-keyboard-event (data) (defun parse-keyboard-event (data)
@ -266,7 +266,8 @@ result or if time out DEFAULT-ANSWER (Private)"))
:alt-key (js-true-p (nth 2 f)) :alt-key (js-true-p (nth 2 f))
:ctrl-key (js-true-p (nth 3 f)) :ctrl-key (js-true-p (nth 3 f))
:shift-key (js-true-p (nth 4 f)) :shift-key (js-true-p (nth 4 f))
:meta-key (js-true-p (nth 5 f))))) :meta-key (js-true-p (nth 5 f))
:key (nth 6 f))))
;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
;; parse-drop-event ;; ;; parse-drop-event ;;