diff options
Diffstat (limited to 'main.ml')
-rwxr-xr-x | main.ml | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -127,8 +127,8 @@ let rec normal_mode (t, screen) = begin | Actions.Search -> let expr = Screen.search screen |> Expression.load in - let pattern = Expression.eval expr (fun _ -> ScTypes.Refs.Single ScTypes.Undefined) in - begin match Sheet.search (`Pattern pattern) t with + let pattern = Expression.eval expr (fun _ -> ScTypes.Refs.Single None) in + begin match Sheet.search (`Pattern (Some pattern)) t with | Some t' -> normal_mode @@ redraw t' screen | None -> normal_mode (t, screen) end @@ -231,11 +231,6 @@ let () = begin else Odf.load Sys.argv.(1) in - let window = Screen.init () in - begin Tools.try_finally - (fun () -> + Screen.run (fun window -> ignore @@ normal_mode @@ redraw (Sheet.create sheet) window) - (fun () -> - ignore @@ Screen.close window; ) - end end |