From e6214492e93b854d2d2a05bd11540c659e0eb49f Mon Sep 17 00:00:00 2001
From: gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 8 Aug 2013 18:53:07 +0000
Subject: Add a (very minimal) Proof General mode to CoqIDE

documentation available in the help menu

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16685 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/preferences.ml | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'ide/preferences.ml')

diff --git a/ide/preferences.ml b/ide/preferences.ml
index 39eaccb52..b3ef96fd9 100644
--- a/ide/preferences.ml
+++ b/ide/preferences.ml
@@ -153,6 +153,8 @@ type pref =
       mutable tab_length : int;
       mutable highlight_current_line : bool;
 
+      mutable nanoPG : bool;
+
 }
 
 let use_default_doc_url = "(automatic)"
@@ -228,6 +230,8 @@ let current = {
     spaces_instead_of_tabs = true;
     tab_length = 2;
     highlight_current_line = false;
+
+    nanoPG = false;
   }
 
 let save_pref () =
@@ -295,6 +299,7 @@ let save_pref () =
     add "spaces_instead_of_tabs" [string_of_bool p.spaces_instead_of_tabs] ++
     add "tab_length" [string_of_int p.tab_length] ++
     add "highlight_current_line" [string_of_bool p.highlight_current_line] ++
+    add "nanoPG" [string_of_bool p.nanoPG] ++
     Config_lexer.print_file pref_file
 
 let load_pref () =
@@ -378,6 +383,7 @@ let load_pref () =
     set_bool "spaces_instead_of_tabs" (fun v -> np.spaces_instead_of_tabs <- v);
     set_int "tab_length" (fun v -> np.tab_length <- v);
     set_bool "highlight_current_line" (fun v -> np.highlight_current_line <- v);
+    set_bool "nanoPG" (fun v -> np.nanoPG <- v);
     ()
 
 let configure ?(apply=(fun () -> ())) () =
@@ -520,6 +526,7 @@ let configure ?(apply=(fun () -> ())) () =
       gen_button "Highlight current line"
       current.highlight_current_line
     in
+    let nanoPG = gen_button "Emacs/PG keybindings (μPG mode)" current.nanoPG in
 (*     let lbox = GPack.hbox ~packing:box#pack () in *)
 (*     let _ = GMisc.label ~text:"Tab width" *)
 (*         ~xalign:0. *)
@@ -536,6 +543,7 @@ let configure ?(apply=(fun () -> ())) () =
       current.show_right_margin <- show_right_margin#active;
       current.spaces_instead_of_tabs <- spaces_instead_of_tabs#active;
       current.highlight_current_line <- highlight_current_line#active;
+      current.nanoPG <- nanoPG#active;
       current.auto_complete <- auto_complete#active;
 (*       current.tab_length <- tab_width#value_as_int; *)
       !refresh_editor_hook ()
-- 
cgit v1.2.3