Unified · Split
| @@ -2,14 +2,13 @@ · 1 unmodified line | |||
| 2 | set -eu | 2 | set -eu |
| 3 | 3 | ||
| 4 | cat<<EOF | 4 | cat<<EOF |
| 5 | open Utils;; | ||
| 6 | type rgb = float * float * float | 5 | type rgb = float * float * float |
| 7 | type rgba = float * float * float * float | 6 | and rgba = float * float * float * float |
| 8 | type fitmodel = | FitWidth | FitProportional | FitPage | 7 | and fitmodel = | FitWidth | FitProportional | FitPage |
| 9 | type irect = (int * int * int * int) | 8 | and irect = (int * int * int * int) |
| 10 | and bbox = irect | 9 | and bbox = irect |
| 11 | type colorspace = | Rgb | Gray | 10 | and colorspace = | Rgb | Gray |
| 12 | type keymap = | 11 | and keymap = |
| 13 | | KMinsrt of key | KMinsrl of key list | KMmulti of key list * key list | 12 | | KMinsrt of key | KMinsrl of key list | KMmulti of key list * key list |
| 14 | and key = int * int | 13 | and key = int * int |
| 15 | and keyhash = (key, keymap) Hashtbl.t | 14 | and keyhash = (key, keymap) Hashtbl.t |
| @@ -17,7 +16,7 @@ and keystate = | KSnone | KSinto of (key list * key list) · 1 unmodified line | |||
| 17 | and css = string | 16 | and css = string |
| 18 | and dcf = string | 17 | and dcf = string |
| 19 | and hcs = string | 18 | and hcs = string |
| 20 | type columns = | 19 | and columns = |
| 21 | | Csingle of singlecolumn | 20 | | Csingle of singlecolumn |
| 22 | | Cmulti of multicolumns | 21 | | Cmulti of multicolumns |
| 23 | | Csplit of splitcolumns | 22 | | Csplit of splitcolumns |
| @@ -111,9 +110,9 @@ g beyecolumns "columncount option" None · 87 unmodified lines | |||
| 111 | s selcmd "{|$clip|}" | 110 | s selcmd "{|$clip|}" |
| 112 | s pastecmd "{|$paste|}" | 111 | s pastecmd "{|$paste|}" |
| 113 | s paxcmd '{|echo PAX "%s">&2|}' | 112 | s paxcmd '{|echo PAX "%s">&2|}' |
| 114 | s femcmd E.s | 113 | s femcmd Utils.E.s |
| 115 | s passcmd E.s | 114 | s passcmd Utils.E.s |
| 116 | s savecmd E.s | 115 | s savecmd Utils.E.s |
| 117 | b updatecurs true | 116 | b updatecurs true |
| 118 | K keyhashes '(string * keyhash) list' \ | 117 | K keyhashes '(string * keyhash) list' \ |
| 119 | '(let mk n = (n, Hashtbl.create 1) in | 118 | '(let mk n = (n, Hashtbl.create 1) in |
| @@ -127,15 +126,15 @@ s stcmd "{|echo SyncTex|}" · 7 unmodified lines | |||
| 127 | b riani false | 126 | b riani false |
| 128 | g paxmark mark Mark_word | 127 | g paxmark mark Mark_word |
| 129 | b leftscroll false | 128 | b leftscroll false |
| 130 | s title E.s | 129 | s title Utils.E.s |
| 131 | f lastvisit 0.0 | 130 | f lastvisit 0.0 |
| 132 | b annotinline true | 131 | b annotinline true |
| 133 | b coarseprespos false | 132 | b coarseprespos false |
| 134 | g css css E.s | 133 | g css css Utils.E.s |
| 135 | b usedoccss true | 134 | b usedoccss true |
| 136 | s key E.s | 135 | s key Utils.E.s |
| 137 | P pax | 136 | P pax |
| 138 | g dcf dcf E.s | 137 | g dcf dcf Utils.E.s |
| 139 | s hcs "{|aoeuidhtns|}" | 138 | s hcs "{|aoeuidhtns|}" |
| 140 | 139 | ||
| 141 | cat <<EOF | 140 | cat <<EOF |