Fix/clarify keypress logging

Ensure that the output goes to the logging stream and clarify what's being output.
stumpwm · Apr 9, 2024 · 40331d6 · 40331d6
1 parent b0ea214
commit 40331d6
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lisp/main.lisp b/lisp/main.lisp
@@ -11,8 +11,9 @@
     (dotimes (i keysyms-len)
       (let ((key (make-key (cffi:mem-aref keysyms :uint32 i) modifiers)))
 	(log-string :trace (lambda (s)
-			     (print-key key)
-			     (format s ": ~A~%"
+			     (format s "Key Pressed: ")
+			     (print-key key s)
+			     (format s ": ~A"
 				     (xkb:keysym-get-name (mahogany/keyboard::key-keysym key)))))
 	(handle-key-event key seat)))))