From bd7f97d0d5d6f98688cec4cf0a5ff63c41d821ed Mon Sep 17 00:00:00 2001 From: malc Date: Sat, 25 Feb 2012 01:30:23 +0400 Subject: [PATCH] Refactor --- main.ml | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/main.ml b/main.ml index 707bf2e..ec11536 100644 --- a/main.ml +++ b/main.ml @@ -1619,10 +1619,6 @@ let invalidate () = state.invalidated <- state.invalidated + 1; ;; -let writeopen path password = - wcmd "open %s\000%s\000" path password; -;; - let opendoc path password = invalidate (); state.path <- path; @@ -1631,8 +1627,8 @@ let opendoc path password = state.docinfo <- []; setaalevel conf.aalevel; - writeopen path password; Wsi.settitle ("llpp " ^ Filename.basename path); + wcmd "open %s\000%s\000" path password; wcmd "geometry %d %d" state.w conf.winh; ;; @@ -6317,9 +6313,7 @@ let () = state.sr <- sr; state.sw <- sw; state.text <- "Opening " ^ state.path; - setaalevel conf.aalevel; - writeopen state.path state.password; - Wsi.settitle ("llpp " ^ Filename.basename state.path); + opendoc state.path state.password; state.uioh <- uioh; setfontsize fstate.fontsize; doreshape conf.winw conf.winh; -- 2.11.4.GIT