unicode: replace obsolete peseta sign by thai baht
[sheet.git] / less.plp
1 <(common.inc.plp)><:
2
3 Html({
4         title => 'less cheat sheet',
5         version => 'v1.0',
6         description => [
7                 "Default bindings of the less pager.",
8                 "Clearly shows how much it's more than more.",
9         ],
10         keywords => [qw'
11                 less sheet cheat keys pager more
12                 shortkey reference keyboard commands options overview
13         '],
14         charset => $sign{charset},
15         stylesheet => [qw'light dark circus mono red terse'],
16         keys => 1,
17 });
18
19 :>
20 <h1>Less cheat sheet</h1>
21
22 <h2>normal pager (default)</h2>
23
24 <ul id="rows">
25
26 <li class="row"><ul>
27         <li>
28                 <ul class="keys omni">
29                 <li class="mo chr27" onclick="setmode('modeesc')"><b>Esc</b> alt<:=$sign{_}:>/meta
30                 </ul>
31         <li class="mode modeesc">
32                 <ul class="keys omni">
33                 <li class="mo chr27" onclick="setmode()"><b>Esc</b> noop
34                 </ul>
35         <li class="mode mode:">
36                 <ul class="keys omni">
37                 <li class="mo chr27" onclick="setmode()"><b>Esc</b> noop
38                 </ul>
39         <li class="mode mode-">
40                 <ul class="keys omni">
41                 <li class="mo chr27" onclick="setmode()"><b>Esc</b> noop
42                 </ul>
43         <li class="mode mode^x">
44                 <ul class="keys omni">
45                 <li class="mo chr27" onclick="setmode()"><b>Esc</b> noop
46                 </ul>
47         </ul>
48
49 <:
50 use Shiar_Sheet::Keyboard;
51 my $keys = Shiar_Sheet::Keyboard->new({do 'less.inc.pl'});
52 $keys->map($get{map}) or undef $get{map};
53 $keys->print_rows($get{rows}, [1,0]);
54 :>
55 </ul>
56
57 <hr>
58
59 <div class="help">
60         <div class="left">
61                 <dl class="legend legend-types">
62                 <dt class="ci">info
63                         <dd>Temporary message display (or related option).
64                 <dt class="pm">move
65                         <dd>Regular file position panning (or option).
66                 <dt class="po">jump
67                         <dd>Other file position manipulation (").
68                 <dt class="co">search
69                         <dd>Go to matching content (").
70                 <dt class="mo">file
71                         <dd>Alter open file buffer (").
72                 <dt class="mv">misc
73                         <dd>Other commands and options.
74                 </dl>
75         </div>
76
77         <div class="right">
78                 <dl class="legend legend-options">
79                 <dt>key<:= $sign{arg} :>
80                         <dd>Commands with a dot need a char argument afterwards.
81                 <dt class="more">more
82                         <dd>A small subset is compatible with `more`.
83                 </dl>
84
85                 <ul class="legend legend-set">
86                 <li>keyboard <strong>map</strong> is
87                         <:= $get{map} ? 'set to ' : '' :><em><:= $keys->{map} :></em>
88                 <li><strong>ascii</strong> mode is
89                         <:= defined $sign{-ascii} && 'forced ' :><em><:=
90                                 $sign{-ascii} ? 'on' : 'off' :></em>
91                 <li><strong>keys</strong> are
92                         <em><:= $showkeys ? 'always shown' : 'hidden if unassigned' :></em><:=
93                                 !exists $get{keys} && ' by default' :>
94                 <li>default <strong>style</strong> is
95                         <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
96                 </ul>
97         </div>
98 </div>
99