File: universal_argument.js

package info (click to toggle)
conkeror 0.9~git080629-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 1,132 kB
  • ctags: 906
  • sloc: sh: 340; ansic: 246; xml: 105; makefile: 77
file content (52 lines) | stat: -rw-r--r-- 1,748 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
/**
 * (C) Copyright 2007-2008 Jeremy Maitin-Shepard
 *
 * Use, modification, and distribution are subject to the terms specified in the
 * COPYING file.
**/

define_keymap("universal_argument_keymap");

for (var i = 0; i <= 9; ++i)
    define_key(universal_argument_keymap, String(i), universal_argument_keymap, $hook = universal_digit);
define_key(universal_argument_keymap, "subtract", universal_argument_keymap, $hook = universal_negate);

function universal_argument(ctx, active_keymap, overlay_keymap, top_keymap)
{
    if (ctx.prefix_argument) {
        if (typeof(ctx.prefix_argument) == "object") // must be array
            ctx.prefix_argument = [ctx.prefix_argument[0] * 4];
    } else
        ctx.prefix_argument = [4];
    ctx.overlay_keymap = top_keymap;
}

function universal_digit(ctx, active_keymap, overlay_keymap)
{
    var digit = ctx.event.charCode - 48;
    if (typeof(ctx.prefix_argument) == "object") { // array
        if (ctx.prefix_argument[0] < 0)
            ctx.prefix_argument = -digit;
        else
            ctx.prefix_argument = digit;
    }
    else if (ctx.prefix_argument < 0)
        ctx.prefix_argument = ctx.prefix_argument * 10 - digit;
    else
        ctx.prefix_argument = ctx.prefix_argument * 10 + digit;

    ctx.overlay_keymap = overlay_keymap || active_keymap;
}

function universal_negate(ctx, active_keymap, overlay_keymap)
{
    if (typeof ctx.prefix_argument == "object")
        ctx.prefix_argument[0] = 0 - ctx.prefix_argument[0];
    else
        ctx.prefix_argument = 0 - ctx.prefix_argument;
    ctx.overlay_keymap = overlay_keymap || active_keymap;
}

function bind_universal_argument(keymap, key) {
    define_key(keymap, key, universal_argument_keymap, $hook = universal_argument);
}