about summary refs log tree commit diff stats
path: root/input-focus.js
blob: b99f11e41cdf9307ea0f2d51f173a87ed78e1e92 (plain) (blame)
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
/*
    (c) 2009 by Leon Winter
    (c) 2009, 2010 by Hannes Schueller
    (c) 2010 by Hans-Peter Deifel
    see LICENSE file
*/

function vimprobable_v(e, y) {
    t = e.nodeName.toLowerCase();
    if((t == 'input' && /^(text|password|checkbox|radio)$/.test(e.type))
    || /^(select|textarea)$/.test(t)
    || e.contentEditable == 'true')
        console.log('insertmode_'+(y=='focus'?'on':'off'));
}

if(document.activeElement)
    vimprobable_v(document.activeElement,'focus');

vimprobable_m=['focus','blur'];

if (document.getElementsByTagName("body")[0] !== null && typeof(document.getElementsByTagName("body")[0]) == "object") {
    for(i in vimprobable_m)
        document.getElementsByTagName('body')[0].addEventListener(vimprobable_m[i], function(x) {
            vimprobable_v(x.target,x.type);
        }, true);
}

self.onunload = function() {
    vimprobable_v(document.activeElement, '');
};
">body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color: #080808; } * { font-size: 12pt; font-size: 1em; } .Delimiter { color: #800080; } .muControl { color: #c0a020; } .Comment { color: #9090ff; } .Constant { color: #00a0a0; } .Special { color: #c00000; } .muRecipe { color: #ff8700; } .muScenario { color: #00af00; } --> </style> <script type='text/javascript'> <!-- --> </script> </head> <body> <pre id='vimCodeElement'> <span class="muRecipe">def</span> random generator:&amp;:stream:num<span class="muRecipe"> -&gt; </span>result:num, fail?:bool, generator:&amp;:stream:num [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> <span class="Delimiter">{</span> <span class="muControl">break-if</span> generator <span class="Comment"># generator is 0? use real random-number generator</span> result <span class="Special">&lt;-</span> real-random <span class="muControl">return</span> result, <span class="Constant">0/false</span> <span class="Delimiter">}</span> result, fail?, generator <span class="Special">&lt;-</span> read generator ] <span class="Comment"># helper for tests</span> <span class="muRecipe">def</span> assume-random-numbers<span class="muRecipe"> -&gt; </span>result:&amp;:stream:num [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> <span class="Comment"># compute result-len, space to allocate in result</span> result-len:num <span class="Special">&lt;-</span> copy<span class="Constant"> 0</span> <span class="Delimiter">{</span> _, arg-received?:bool <span class="Special">&lt;-</span> <span class="Constant">next-ingredient</span> <span class="muControl">break-unless</span> arg-received? result-len <span class="Special">&lt;-</span> add result-len,<span class="Constant"> 1</span> <span class="muControl">loop</span> <span class="Delimiter">}</span> <span class="Constant">rewind-ingredients</span> result-data:&amp;:@:num <span class="Special">&lt;-</span> new <span class="Constant">number:type</span>, result-len idx:num <span class="Special">&lt;-</span> copy<span class="Constant"> 0</span> <span class="Delimiter">{</span> curr:num, arg-received?:bool <span class="Special">&lt;-</span> <span class="Constant">next-ingredient</span> <span class="muControl">break-unless</span> arg-received? *result-data <span class="Special">&lt;-</span> put-index *result-data, idx, curr idx <span class="Special">&lt;-</span> add idx,<span class="Constant"> 1</span> <span class="muControl">loop</span> <span class="Delimiter">}</span> result <span class="Special">&lt;-</span> new-stream result-data ] <span class="muScenario">scenario</span> random-numbers-in-scenario [ <span class="Constant">local-scope</span> source:&amp;:stream:num <span class="Special">&lt;-</span> assume-random-numbers<span class="Constant"> 34</span>,<span class="Constant"> 35</span>,<span class="Constant"> 37</span> 1:num/<span class="Special">raw</span>, 2:bool/<span class="Special">raw</span> <span class="Special">&lt;-</span> random source 3:num/<span class="Special">raw</span>, 4:bool/<span class="Special">raw</span> <span class="Special">&lt;-</span> random source 5:num/<span class="Special">raw</span>, 6:bool/<span class="Special">raw</span> <span class="Special">&lt;-</span> random source 7:num/<span class="Special">raw</span>, 8:bool/<span class="Special">raw</span> <span class="Special">&lt;-</span> random source memory-should-contain [ <span class="Constant"> 1</span> <span class="Special">&lt;-</span><span class="Constant"> 34</span> <span class="Constant"> 2</span> <span class="Special">&lt;-</span><span class="Constant"> 0</span> <span class="Comment"># everything went well</span> <span class="Constant"> 3</span> <span class="Special">&lt;-</span><span class="Constant"> 35</span> <span class="Constant"> 4</span> <span class="Special">&lt;-</span><span class="Constant"> 0</span> <span class="Comment"># everything went well</span> <span class="Constant"> 5</span> <span class="Special">&lt;-</span><span class="Constant"> 37</span> <span class="Constant"> 6</span> <span class="Special">&lt;-</span><span class="Constant"> 0</span> <span class="Comment"># everything went well</span> <span class="Constant"> 7</span> <span class="Special">&lt;-</span><span class="Constant"> 0</span> <span class="Comment"># empty result</span> <span class="Constant"> 8</span> <span class="Special">&lt;-</span><span class="Constant"> 1</span> <span class="Comment"># end of stream</span> ] ] <span class="muRecipe">def</span> random-in-range generator:&amp;:stream:num, start:num, end:num<span class="muRecipe"> -&gt; </span>result:num, fail?:bool, generator:&amp;:stream:num [ <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> result, fail?, generator <span class="Special">&lt;-</span> random generator <span class="muControl">return-if</span> fail? delta:num <span class="Special">&lt;-</span> subtract end, start _, result <span class="Special">&lt;-</span> divide-with-remainder result, delta result <span class="Special">&lt;-</span> add result, start ] <span class="muScenario">scenario</span> random-in-range [ <span class="Constant">local-scope</span> source:&amp;:stream:num <span class="Special">&lt;-</span> assume-random-numbers<span class="Constant"> 91</span> 1:num/<span class="Special">raw</span> <span class="Special">&lt;-</span> random-in-range source,<span class="Constant"> 40</span>,<span class="Constant"> 50</span> memory-should-contain [ <span class="Constant"> 1</span> <span class="Special">&lt;-</span><span class="Constant"> 41</span> ] ] </pre> </body> </html> <!-- vim: set foldmethod=manual : -->