[39_7] Initial welcome doc for Mogan Research

TeXmacs/doc/about/mogan/research.en.tm

@@ -0,0 +1,21 @@
+<TeXmacs|2.1.2>
+
+<style|<tuple|tmdoc|chinese>>
+
+<\body>
+  <tmdoc-title|Mogan Research v<Xmacs-version>>
+
+  <with|framed-color|pastel magenta|ornament-border|0ln|ornament-color|pastel
+  yellow|<\ornamented>
+    The latest stable release is <strong|v<include|http://git.tmml.wiki/XmacsLabs/planet/raw/branch/main/latest_version.tm>>.
+  </ornamented>>
+
+  \;
+
+  \;
+
+  \;
+</body>
+
+<initial|<\collection>
+</collection>>

TeXmacs/doc/about/mogan/research.zh.tm

@@ -0,0 +1,58 @@
+<TeXmacs|2.1.2>
+
+<style|<tuple|tmdoc|chinese>>
+
+<\body>
+  <tmdoc-title|\<#58A8\>\<#781A\>v<Xmacs-version>>
+
+  \<#58A8\>\<#781A\>\<#FF08\>Mogan Research\<#FF09\>\<#662F\>GNU
+  <TeXmacs>\<#7684\>\<#53D1\>\<#884C\>\<#7248\>\<#4E4B\>\<#4E00\>\<#FF0C\>\<#662F\><name|\<#58A8\>\<#5BA2\>\<#5B9E\>\<#9A8C\>\<#5BA4\>>\<#65D7\>\<#4E0B\>\<#7684\>\<#81EA\>\<#7531\>\<#8F6F\>\<#4EF6\>\<#FF0C\>\<#662F\>\<#58A8\>\<#5E72\>\<#7406\>\<#5DE5\>\<#5957\>\<#4EF6\>\<#4E2D\>\<#7684\>\<#4E00\>\<#90E8\>\<#5206\>\<#3002\>
+
+  <with|framed-color|pastel magenta|ornament-border|0ln|ornament-color|pastel
+  yellow|<\ornamented>
+    \<#5F53\>\<#524D\>\<#6700\>\<#65B0\>\<#7A33\>\<#5B9A\>\<#7248\>\<#662F\><strong|v<include|http://git.tmml.wiki/XmacsLabs/planet/raw/branch/main/latest_version.tm>>\<#FF0C\>\<#6C38\>\<#8FDC\>\<#63A8\>\<#8350\>\<#60A8\>\<#8BBF\>\<#95EE\>\<#5B98\>\<#7F51\>\<#4E0B\>\<#8F7D\>\<#58A8\>\<#5E72\>\<#6700\>\<#65B0\>\<#7A33\>\<#5B9A\>\<#7248\>\<#3002\>
+  </ornamented>>
+
+  <section*|\<#5982\>\<#4F55\>\<#5165\>\<#95E8\>>
+
+  <\itemize>
+    <item>\<#8BBF\>\<#95EE\>\<#5B98\>\<#7F51\>
+
+    <\description>
+      <item*|GNU TeXmacs><slink|https://texmacs.org>
+
+      <item*|\<#58A8\>\<#5E72\>\<#7406\>\<#5DE5\>\<#5957\>\<#4EF6\>><slink|https://mogan.app>
+    </description>
+
+    <item>\<#89C2\>\<#770B\>\<#89C6\>\<#9891\><hlink|\<#300A\>A Quick tour of
+    <TeXmacs>\<#300B\>|https://www.bilibili.com/video/BV1bo4y1D7wN/>\<#FF0C\>\<#4E09\>\<#5206\>\<#949F\>\<#901F\>\<#89C8\>
+
+    <item>\<#9605\>\<#8BFB\>\<#5728\>\<#7EBF\>\<#6587\>\<#6863\><hlink|\<#300A\>Getting
+    started with <TeXmacs>\<#300B\>|http://git.tmml.wiki/texmacs/doc/raw/branch/master/about/welcome/start.en.tm>
+
+    <item>\<#9605\>\<#8BFB\>\<#4E66\>\<#7C4D\><hlink|\<#300A\>The Jolly
+    Writer\<#300B\>|https://www.scypress.com/book_info.html>\<#FF0C\>\<#7CFB\>\<#7EDF\>\<#5B66\>\<#4E60\>GNU
+    <TeXmacs>\<#7684\>\<#6377\>\<#5F84\>
+
+    <item>\<#66F4\>\<#591A\>\<#5165\>\<#95E8\>\<#8D44\>\<#6599\>
+
+    <\itemize>
+      <item>\<#901A\>\<#8FC7\>\<#7126\>\<#70B9\>\<#5DE5\>\<#5177\>\<#680F\>\<#7684\><icon|tm_focus_help_x4.png>\<#6216\>\<#8005\>\<#83DC\>\<#5355\>\<#9879\><menu|Focus|Describe>\<#67E5\>\<#770B\>\<#4E0A\>\<#4E0B\>\<#6587\>\<#5E2E\>\<#52A9\>
+
+      <item>\<#89C2\>\<#770B\>\<#58A8\>\<#5E72\>\<#5B98\>\<#7F51\>\<#63D0\>\<#4F9B\>\<#7684\>\<#5165\>\<#95E8\>\<#7CFB\>\<#5217\>\<#89C6\>\<#9891\>
+
+      <item>\<#5728\>\<#8F6F\>\<#4EF6\>\<#5185\>\<#8BBF\>\<#95EE\>\<#5728\>\<#7EBF\>\<#6587\>\<#6863\>\<#FF1A\><menu|Help|Manual>
+
+      <item>\<#5728\>\<#8F6F\>\<#4EF6\>\<#5185\>\<#8BBF\>\<#95EE\>\<#5728\>\<#7EBF\>\<#6587\>\<#6863\>\<#FF1A\><menu|Help|Planet>
+    </itemize>
+  </itemize>
+
+  \;
+
+  \;
+
+  \;
+</body>
+
+<initial|<\collection>
+</collection>>

TeXmacs/packages/standard/std-markup.ts

@@ -30,6 +30,8 @@
 
   <assign|TeXmacs-version|<macro|<extern|texmacs-version>>>
 
+  <assign|Xmacs-version|<macro|<extern|xmacs-version>>>
+
   <assign|TeXmacs-version-release|<macro|type|<extern|texmacs-version-release*|<quote-arg|type>>>>
 
   <assign|made-by-TeXmacs|<macro|<float|footnote||<with|font-size|0.84|par-mode|justify|par-left|0cm|par-right|0cm|<active*|<move|<image|local:$TEXMACS_PATH/misc/images/tm_gnu3.ps||1fn||>|0fn|-0.2fn>><space|2spc><localize|This

TeXmacs/progs/doc/help-funcs.scm

@@ -95,9 +95,7 @@
   (load-buffer (get-remote-planet-url)))
 
 (tm-define (mogan-welcome)
-  (if (url-exists? (get-remote-welcome-url))
-      (load-remote-welcome)
-      (load-help-article "about/welcome/new-welcome")))
+  (load-help-article "about/mogan/research"))
 
 (tm-define (xmacs-planet)
   (if (url-exists? (get-remote-planet-url))

TeXmacs/progs/doc/help-menu.scm

@@ -30,7 +30,7 @@
        (load-help-article (string-append name))))))
 
 (menu-bind help-menu
-  ("Mogan" (mogan-welcome))
+  ("Welcome" (mogan-welcome))
   ("Planet" (xmacs-planet))
   ---
   (if (detailed-menus?)

TeXmacs/progs/prog/glue-symbols.scm

@@ -1125,4 +1125,5 @@
 "show-selection"
 "show-meminfo"
 "edit-special"
+"xmacs-version"
 ))

src/Mogan/Research/research.cpp

@@ -382,18 +382,10 @@ TeXmacs_main (int argc, char** argv) {
     }
     if (install_status == 1) {
       if (DEBUG_STD) debug_boot << "Loading welcome message...\n";
-      string cmd= "(load-help-article \"about/welcome/new-welcome\")";
+      string cmd= "(load-help-article \"about/mogan/research\")";
       // FIXME: force to load welcome message into new window
       exec_delayed (scheme_cmd (cmd));
     }
-    else if (install_status == 2) {
-      if (DEBUG_STD) debug_boot << "Loading upgrade message...\n";
-      url    u  = "tmfs://help/plain/tm/doc/about/changes/changes-recent.en.tm";
-      string b  = scm_quote (as_string (u));
-      string cmd= "(load-buffer " * b * " " * where * ")";
-      where     = " :new-window";
-      exec_delayed (scheme_cmd (cmd));
-    }
     if (number_buffers () == 0) {
       if (DEBUG_STD) debug_boot << "Creating 'no name' buffer...\n";
       open_window ();

src/Scheme/L3/glue_misc.lua

@@ -123,11 +123,6 @@ function main()
                 arg_list = {
                     "url"
                 }
-            },
-            {
-                scm_name = "xmacs-version",
-                cpp_name = "xmacs_version",
-                ret_type = "string"
             }
         }
     }

src/Scheme/L3/init_glue_l3.cpp

@@ -32,14 +32,8 @@
 
 #include "glue_drd.cpp"
 #include "glue_file.cpp"
-#include "glue_url.cpp"
-
-string
-xmacs_version () {
-  return XMACS_VERSION;
-}
-
 #include "glue_misc.cpp"
+#include "glue_url.cpp"
 
 tmscm
 observerP (tmscm t) {

src/Scheme/S7/s7_tm.cpp

@@ -363,6 +363,7 @@ initialize_scheme () {
                         "    (lambda (port) (display obj port))))\n"
                         "\n"
                         "(define (texmacs-version) \"" TEXMACS_VERSION "\")\n"
+                        "(define (xmacs-version) \"" XMACS_VERSION "\")\n"
                         "(define object-stack '(()))\n"
                         ")";