# $Id: .nawmrc,v 1.4 1999/09/12 01:09:45 danw Exp $

option "nocapslock";

int curws;
window None;
window[int] top, bot;

begin { curws = 0; setmode "normal"; }

key "KP_Divide" { raise; }
key "KP_Multiply" { lower; }
key "KP_Subtract" { unmap "Console"; }

mode "normal" {
  key "KP_8" { mouseclick "left", screenwidth/2, 5; }
  key "KP_9" { mouseclick "left", -5, 5; }
  key "KP_1" { mouseclick "left", 5, -5; }
  key "KP_3" { mouseclick "left", -5, -5; }
  key "KP_7" { warptowindow "top"; }
  key "KP_4" { warptowindow "bot"; }
  key "KP_6" { warptowindow "Emacs"; }
  key "KP_2" { warptowindow "zephyr"; raise; }
  key "KP_5" { warpto screenwidth/2, screenheight/2; }
  key "meta KP_Decimal" { setmode "move"; }
  key "meta KP_0" { setmode "space"; }
  leave "zephyr" { lower; }
}

mode "move" {
  int lastx, lasty;
  window mwin;

  begin { mwin = currentwindow; lastx = px; lasty = py; raise; }
  motion { move mwin, px - lastx, py - lasty; lastx = px; lasty = py; }
  button "left" { setmode "normal"; }
  key "KP_Decimal" { setmode "normal"; }
}

command workspace newws
{
  int newws;

  if (top[curws] == None)
    top[curws] = "top" + itoa(curws);
  if (top[curws] != None)
    unmap top[curws];
  if (bot[curws] == None)
    bot[curws] = "bot" + itoa(curws);
  if (bot[curws] != None)
    unmap bot[curws];

  curws = newws;

  if (top[curws] == None)
    top[curws] = "top" + itoa(curws);
  if (top[curws] == None)
    system "xterm -name top -title top" + itoa(curws);
  else
    map top[curws];

  if (bot[curws] == None)
    bot[curws] = "bot" + itoa(curws);
  if (bot[curws] == None)
    system "xterm -name bot -title bot" + itoa(curws);
  else
    map bot[curws];

  setmode "normal";
}

command dumpws {
  int ws;
  string tname, bname;

  for (ws = 0; ws <= 9; ws = ws + 1) {
    if (top[ws] == None)
      top[ws] = "top" + itoa(ws);
    if (top[ws] == None)
      tname = "[None]";
    else
      tname = name(top[ws]);

    if (bot[ws] == None)
      bot[ws] = "bot" + itoa(ws);
    if (bot[ws] == None)
      bname = "[None]";
    else
      bname = name(bot[ws]);

    put itoa(ws) + ": " + tname + "/" + bname;
  }
}

mode "space" {
  key "KP_0" { workspace 0; }
  key "KP_1" { workspace 1; }
  key "KP_2" { workspace 2; }
  key "KP_3" { workspace 3; }
  key "KP_4" { workspace 4; }
  key "KP_5" { workspace 5; }
  key "KP_6" { workspace 6; }
  key "KP_7" { workspace 7; }
  key "KP_8" { workspace 8; }
  key "KP_9" { workspace 9; }

  key "KP_Decimal" { dumpws; }
}

key "meta KP_7" { warp -20, -20; }
key "meta KP_8" { warp 0, -20; }
key "meta KP_9" { warp 20, -20; }
key "meta KP_4" { warp -20, 0; }
key "meta KP_5" { warp 0, 0; }
key "meta KP_6" { warp 20, 0; }
key "meta KP_1" { warp -20, 20; }
key "meta KP_2" { warp 0, 20; }
key "meta KP_3" { warp 20, 20; }

key "control KP_4" {
  if (hasname("Emacs")) {
    move -330, 0;
    dsize 55, 0;
  } else {
    dsize -55, 0;
  }
  raise; sync; warptowindow;
}
key "control KP_6" {
  if (hasname("Emacs")) {
    move 330, 0;
    dsize -55, 0;
  } else {
    dsize 55, 0;
  }
  raise; sync; warptowindow;
}

int oldtopheight, oldbotheight;

key "control KP_2" {
  if (hasname("top")) {
    if (oldtopheight == 0)
      oldtopheight = dheight;
    dsizeto dwidth, dheight("Emacs");
  } else if (hasname("bot")) {
    move 0, 13*(dheight - oldbotheight);
    dsizeto dwidth, oldbotheight;
  }
  raise; sync; warptowindow;
}
key "control KP_8" {
  if (hasname("top")) {
    dsizeto dwidth, oldtopheight;
  } else if (hasname("bot")) {
    if (oldbotheight == 0)
      oldbotheight = dheight;
    move 0, -13*(dheight("Emacs") - dheight);
    dsizeto dwidth, dheight("Emacs");
  }
  raise; sync; warptowindow;
}