about summary refs log tree commit diff
path: root/input.c
diff options
context:
space:
mode:
authorbernd <bernd>2007-04-27 17:58:48 +0000
committerbernd <bernd>2007-04-27 17:58:48 +0000
commit3d12c94f42f91e957fa8a68efcd3b0387791e6cf (patch)
tree8bd9782a01bbd59ee27201e29b30d058b15445db /input.c
downloadcwm-3d12c94f42f91e957fa8a68efcd3b0387791e6cf.tar.gz
cwm-3d12c94f42f91e957fa8a68efcd3b0387791e6cf.tar.xz
cwm-3d12c94f42f91e957fa8a68efcd3b0387791e6cf.zip
Initial revision
Diffstat (limited to 'input.c')
-rw-r--r--input.c81
1 files changed, 81 insertions, 0 deletions
diff --git a/input.c b/input.c
new file mode 100644
index 0000000..95f30f8
--- /dev/null
+++ b/input.c
@@ -0,0 +1,81 @@
+/*
+ * calmwm - the calm window manager
+ *
+ * Copyright (c) 2004 Marius Aamodt Eriksen <marius@monkey.org>
+ * All rights reserved.
+ *
+ * $Id$
+ */
+
+#include "headers.h"
+#include "calmwm.h"
+
+int
+input_keycodetrans(KeyCode kc, u_int state,
+    enum ctltype *ctl, char *chr, int normalize)
+{
+	int ks;
+
+	*ctl = CTL_NONE;
+	*chr = '\0';
+
+	ks = XKeycodeToKeysym(G_dpy, kc, 0);
+
+	/* Look for control characters. */
+	switch (ks) {
+	case XK_BackSpace:
+		*ctl = CTL_ERASEONE;
+		break;
+	case XK_Return:
+		*ctl = CTL_RETURN;
+		break;
+	case XK_Up:
+		*ctl = CTL_UP;
+		break;
+	case XK_Down:
+		*ctl = CTL_DOWN;
+		break;
+	case XK_Escape:
+		*ctl = CTL_ABORT;
+		break;
+	}
+
+	if (*ctl == CTL_NONE && (state & ControlMask)) {
+		switch (ks) {
+		case XK_s:
+		case XK_S:
+			/* Emacs "next" */
+			*ctl = CTL_DOWN;
+			break;
+		case XK_r:
+		case XK_R:
+			/* Emacs "previous" */
+			*ctl = CTL_UP;
+			break;
+		case XK_u:
+		case XK_U:
+			*ctl = CTL_WIPE;
+			break;
+		case XK_a:
+		case XK_A:
+			*ctl = CTL_ALL;
+			break;
+		}
+	}
+
+	if (*ctl != CTL_NONE)
+		return (0);
+
+	/*
+	 * For regular characters, only (part of, actually) Latin 1
+	 * for now.
+	 */
+	if (ks < 0x20 || ks > 0x07e)
+		return (-1);
+
+	*chr = (char)ks;
+	if (normalize)
+		*chr = tolower(*chr);
+
+	return (0);
+}