1 files changed, 8 insertions, 0 deletions
diff --git a/wm.scm b/wm.scm
index 85a23f4..3241d94 100644
--- a/wm.scm
+++ b/wm.scm
@@ -16,6 +16,14 @@
    (dynamic-func name libschewm)
    args))
 
+(define c/key-from-str
+  (schewm-func uint32
+               "keysym_from_str"
+               (list '*)))
+
+(define (key-from-str s)
+  (c/key-from-str (string->pointer s)))
+
 (define c/wm-init
   (schewm-func int "wm_init" '()))