mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-07 06:12:21 -08:00
Code Issues Projects Releases Wiki Activity

copy/cut/paste keyboard fix

Browse source
This commit is contained in:
David Botton 2022-06-26 19:05:12 -04:00
parent e1c7b1c0b3
commit d8c749e28d
1 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-builder.lisp
View file

@ -436,18 +436,13 @@ replaced."
(set-geometry control :left (1- (position-left control)))))
((and (equal key "c")
(or meta ctrl))
(focus content)
(js-execute obj "document.execCommand('copy')"))
(blur placer))
((and (equal key "v")
(or meta ctrl))
(focus content)
(js-execute obj "document.execCommand('paste')"))
(blur placer))
((and (equal key "x")
(or meta ctrl))
(focus content)
(js-execute obj "document.execCommand('cut')"))
(t
(print data)))
(blur placer)))
(set-geometry placer :top (position-top control)
:left (position-left control)
:width (client-width control)