added script template

[helm.git] / helm / matita / matitaScript.ml

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index 965969a217855a611cdb309518744553aedff1cf..5dd6550a9d49a8a81c059f1f223ab054a8ed9a5c 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -334,7 +334,9 @@ object (self)
           set_star self#ppFilename true 
         else 
           set_star self#ppFilename false));
-    self#reset ()
+    self#reset ();
+    self#template ();
+    buffer#set_modified false
 
   val mutable statements = [];    (** executed statements *)
   val mutable history = [ init ];
@@ -478,6 +480,10 @@ List.iter (fun s -> prerr_endline ("'" ^ s ^ "'")) new_statements;
     buffer#delete ~start:buffer#start_iter ~stop:buffer#end_iter;
     self#notify
 
+  method template () =
+    let template = MatitaMisc.input_file BuildTimeConf.script_template in 
+    buffer#insert ~iter:(buffer#get_iter `START) template
+
   method goto (pos: [`Top | `Bottom | `Cursor]) () =
     match pos with
     | `Top -> self#goto_top; self#notify