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