[7_18] Changing language requires restarting the Mogan Editor

Author: TREE37

TeXmacs/progs/texmacs/menus/preferences-menu.scm

@@ -51,6 +51,24 @@
           "150" "200" "300" "400" "600" "800" "1200"
           *)))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Language settings and restart notifications
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(tm-define (set-language-and-notify lan)
+  (let ((old (get-preference "language")))
+    (if (== lan old)
+        (set-preference "language" lan) 
+        (let ((msg "Requires restarting the Mogan Editor to take full effect. Restart now?"))
+          (user-confirm msg #f
+            (lambda (answ)
+              (if answ
+                  (begin
+                    (set-preference "language" lan)
+                    (save-all-buffers)
+                    (restart-TeXmacs))
+                  (set-preference "language" old))))))))
+
 (tm-define preferences-tree
   `((enum ("Look and feel" "look and feel")
           ("Default" "default")
@@ -77,7 +95,7 @@
           ("Documents in separate windows" "separate")
           ("Multiple documents share window" "shared"))
     ---
-    (enum ("Language" "language")
+    (enum ("Language" "language" set-language-and-notify)
           ,@(map (lambda (lan) (list (language-to-language-name lan) lan))
                  supported-languages))
     (-> "Keyboard"

TeXmacs/progs/texmacs/menus/preferences-widgets.scm

@@ -80,7 +80,7 @@
             (get-pretty-preference "look and feel")
             "18em"))
     (item (text "User interface language:")
-      (enum (set-preference "language" (language-name-to-language answer))
+      (enum (set-language-and-notify (language-name-to-language answer))
             (map language-to-language-name supported-languages)
             (language-to-language-name (get-preference "language"))
             "18em"))

TeXmacs/progs/texmacs/texmacs/tm-files.scm

@@ -376,6 +376,12 @@
   (autosave-all)
   (autosave-delayed))
 
+(tm-define (save-all-buffers)
+  (for-each (lambda (buf)
+              (when (buffer-modified? buf)
+                (buffer-save buf)))
+            (buffer-list)))
+
 (tm-define (autosave-delayed)
   (let* ((pref (get-preference "autosave"))
          (len (if (and (string? pref) (integer? (string->number pref)))

src/Scheme/Glue/glue_server.lua

@@ -346,6 +346,11 @@ function main()
                 cpp_name = "quit",
                 ret_type = "void"
             },
+            {
+                scm_name = "restart-TeXmacs",
+                cpp_name = "restart",
+                ret_type = "void"
+            },
         }
     }
 end

src/System/Boot/init_texmacs.cpp

@@ -794,6 +794,7 @@ TeXmacs_main (int argc, char** argv) {
   { // opening scope for server sv
     server sv;
     string where= "";
+    bool first_file = true;
     for (i= 1; i < argc; i++) {
       if (argv[i] == NULL) break;
       string s= argv[i];
@@ -803,8 +804,15 @@ TeXmacs_main (int argc, char** argv) {
         url u= url_system (s);
         if (!is_rooted (u)) u= resolve (url_pwd (), "") * u;
         string b  = scm_quote (as_string (u));
-        string cmd= "(load-buffer " * b * " " * where * ")";
-        where     = " :new-window";
+        string cmd;
+        //only open window once 
+        if (first_file) {
+          cmd = "(load-buffer " * b * " " * where * ")";
+          first_file = false; 
+        } 
+        else {
+          cmd = "(switch-to-buffer " * b * ")";
+        }
         exec_delayed (scheme_cmd (cmd));
       }
       if ((s == "-c") || (s == "-convert")) i+= 2;

src/Texmacs/Server/tm_server.cpp

@@ -33,6 +33,12 @@
 #include <moebius/drd/drd_std.hpp>
 #include <s7_tm.hpp>
 
+#ifdef QTTEXMACS
+#include <QApplication>
+#include <QProcess>
+#include <QStringList>
+#endif
+
 server* the_server     = NULL;
 bool    texmacs_started= false;
 bool    headless_mode  = false;
@@ -308,6 +314,30 @@ tm_server_rep::quit () {
   exit (0);
 }
 
+void
+tm_server_rep::restart () {
+  close_all_pipes ();
+  call ("quit-TeXmacs-scheme");
+  clear_pending_commands ();
+  
+#ifdef QTTEXMACS
+  del_obj_qt_renderer ();
+  array<url> buffers = get_all_buffers();
+  QStringList args = QApplication::arguments();
+  
+  if (!args.isEmpty()) args.removeFirst();
+
+  for (int i=0; i<N(buffers); i++) {
+    string file_path = as_string(buffers[i]);
+    args << to_qstring(file_path);
+  }
+  
+  QProcess::startDetached(QApplication::applicationFilePath(), args);
+#endif
+  
+  _exit (0);
+}
+
 /******************************************************************************
  * System commands
  ******************************************************************************/

src/Texmacs/server.hpp

@@ -109,6 +109,7 @@ class server_rep : public abstract_struct {
   virtual void   typeset_update_all ()                    = 0;
   virtual bool   is_yes (string s)                        = 0;
   virtual void   quit ()                                  = 0;
+  virtual void   restart ()                               = 0;
   virtual void   shell (string s)                         = 0;
 };
 

src/Texmacs/tm_server.hpp

@@ -46,6 +46,7 @@ class tm_server_rep : public tm_config_rep, public tm_frame_rep {
   void   typeset_update_all ();
   bool   is_yes (string s);
   void   quit ();
+  void   restart ();
   void   shell (string s);
 };