13 lines
295 B
Text
13 lines
295 B
Text
|
(de mousePosition ()
|
||
|
|
(prog2
|
||
|
|
(prin "^[[?9h") # Mouse reporting on
|
||
|
|
(and
|
||
|
|
(= "^[" (key))
|
||
|
|
(key 200)
|
||
|
|
(key 200)
|
||
|
|
(key)
|
||
|
|
(cons
|
||
|
|
(- (char (key)) 32)
|
||
|
|
(- (char (key)) 32) ) )
|
||
|
|
(prin "^[[?9l") ) ) # Mouse reporting off
|