From d8c749e28dca152ac32a4be8eb006c2a5257dbce Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 26 Jun 2022 19:05:12 -0400 Subject: [PATCH] copy/cut/paste keyboard fix --- tools/clog-builder.lisp | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 1640629..7eb7b18 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -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)