History

Make key code remapping configurable

... and off by default, given that it clashes badly with (at least) man pages.

malc committed 5 years ago

Commit 56437471 parent 4a89b943 files · +4 −1Browse files

Unified · Split

3 files
  1. config.ml +2 −0
  2. genconfstruct.sh +1 −0
  3. main.ml +1 −1
config.ml+2−0
@@ -802,6 +802,7 @@ let config_of c attrs = · 801 unmodified lines
802 { c with coarseprespos = bool_of_string v }802 { c with coarseprespos = bool_of_string v }
803 | "use-document-css" -> { c with usedoccss = bool_of_string v }803 | "use-document-css" -> { c with usedoccss = bool_of_string v }
804 | "hint-charset" -> validatehcs v; { c with hcs = v }804 | "hint-charset" -> validatehcs v; { c with hcs = v }
805 | "remap-htns" -> { c with remaphtns = bool_of_string v }
805 | _ -> c806 | _ -> c
806 with exn ->807 with exn ->
807 dolog "error processing attribute (`%S' = `%S'): %s" k v @@ exntos exn;808 dolog "error processing attribute (`%S' = `%S'): %s" k v @@ exntos exn;
@@ -1276,6 +1277,7 @@ let add_attrs bb always dc c time = · 468 unmodified lines
1276 ob "use-document-css" c.usedoccss dc.usedoccss;1277 ob "use-document-css" c.usedoccss dc.usedoccss;
1277 os "dcf" c.dcf dc.dcf;1278 os "dcf" c.dcf dc.dcf;
1278 os "hint-charset" c.hcs dc.hcs;1279 os "hint-charset" c.hcs dc.hcs;
1280 ob "remap-htns" c.remaphtns dc.remaphtns;
1279;;1281;;
1280 1282
1281let keymapsbuf always dc c =1283let keymapsbuf always dc c =
genconfstruct.sh+1−0
@@ -131,6 +131,7 @@ s key Utils.E.s · 130 unmodified lines
131P pax131P pax
132g dcf dcf Utils.E.s132g dcf dcf Utils.E.s
133s hcs "{|aoeuidhtns|}"133s hcs "{|aoeuidhtns|}"
134b remaphtns false
134 135
135cat <<EOF136cat <<EOF
136};;137};;
main.ml+1−1
@@ -634,7 +634,7 @@ let mapc code = · 633 unmodified lines
634 | n -> n634 | n -> n
635 in635 in
636 match state.mode with636 match state.mode with
637 | View -> viewmapcode code637 | View -> if conf.remaphtns then viewmapcode code else code
638 | LinkNav _ | Textentry _ | Birdseye _ -> code638 | LinkNav _ | Textentry _ | Birdseye _ -> code
639;;639;;
640 640

Keyboard shortcuts

General

Show keyboard shortcuts
?
Focus the current search
/

Issues and pull requests

Open filters
f

Issues, pull requests and Inbox

Select next item
j↓
Select previous item
k↑
Open selected item
Enter
Dismiss filters or clear selection
Esc

Repository code

Go to file
t