Cosmetics

malc committed 5 years ago

Commit 451c2c71 parent ae12dd51 file · +8 −10Browse files

Unified · Split

   then (
     adddoc docpath pan (getanchor ())
       (
-        let autoscrollstep =
-          match !S.autoscroll with
-          | Some step -> step
-          | None -> conf.autoscrollstep
-        in
         begin match !S.mode with
         | Birdseye beye -> leavebirdseye beye true
         | Textentry _
         | View
         | LinkNav _ -> ()
         end;
-        let key =
+        { conf with
-          if emptystr conf.key
+          autoscrollstep = (match !S.autoscroll with
-          then (try Digest.file docpath |> Digest.to_hex with _ -> E.s)
+                            | Some step -> step
-          else conf.key
+                            | None -> conf.autoscrollstep)
-        in { conf with autoscrollstep; key }
+        ; key = (if emptystr conf.key
+                 then (try Digest.file docpath |> Digest.to_hex with _ -> E.s)
+                 else conf.key)
+        }
       )
       !S.bookmarks
       (now ())

Keyboard shortcuts