85 lines
1.3 KiB
C
85 lines
1.3 KiB
C
/*
|
|
* calmwm - the calm window manager
|
|
*
|
|
* Copyright (c) 2004 Marius Aamodt Eriksen <marius@monkey.org>
|
|
* All rights reserved.
|
|
*
|
|
* $Id: input.c,v 1.3 2007/05/28 18:34:27 jasper Exp $
|
|
*/
|
|
|
|
#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';
|
|
|
|
if (state & ShiftMask)
|
|
ks = XKeycodeToKeysym(X_Dpy, kc, 1);
|
|
else
|
|
ks = XKeycodeToKeysym(X_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);
|
|
}
|