[0734] 实现 ImGui (WASM) 菜单栏 (#3948)

Author: JimZhouZZY

TeXmacs/progs/generic/document-menu.scm

@@ -1194,8 +1194,11 @@
   ---
   (dynamic (focus-document-menu t))
   (dynamic (focus-document-extra-menu t))
-  ---
-  ("Help" (focus-help))
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Focus 菜单末尾的 Help
+    ---
+    ("Help" (focus-help))
+  ) ;if
 ) ;tm-menu
 
 (tm-menu (focus-document-extra-icons t))

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

@@ -98,9 +98,12 @@
       ("Other" (interactive clipboard-cut))
     ) ;->
   ) ;if
-  ---
-  ("Search recent documents" (interactive docgrep-in-recent))
-  ---
-  (if (use-menus?) (-> "Preferences" (link preferences-menu)))
-  (if (use-popups?) ("Preferences" (open-preferences)))
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Search recent documents / Preferences
+    ---
+    ("Search recent documents" (interactive docgrep-in-recent))
+    ---
+    (if (use-menus?) (-> "Preferences" (link preferences-menu)))
+    (if (use-popups?) ("Preferences" (open-preferences)))
+  ) ;if
 ) ;menu-bind

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

@@ -388,52 +388,57 @@
 (menu-bind file-menu
  ("New" (new-document))
  ("Load" (open-document))
- ("Revert" (revert-buffer))
- (-> "Recent"
-   (link recent-file-menu)
-   (if (nnull? (recent-file-list 1)) ---)
-   (when (nnull? (recent-file-list 1))
-     ("Clear menu" (forget-interactive "recent-buffer"))
-   ) ;when
- ) ;->
- ---
+ (if (qt-gui?)
+   ;; ImGui 前端精简：仅保留 New / Load / Save，以下 Revert/Recent 等仅在 Qt 显示
+   ("Revert" (revert-buffer))
+   (-> "Recent"
+     (link recent-file-menu)
+     (if (nnull? (recent-file-list 1)) ---)
+     (when (nnull? (recent-file-list 1))
+       ("Clear menu" (forget-interactive "recent-buffer"))
+     ) ;when
+   ) ;->
+   ---
+ ) ;if
  ("Save" (save-buffer))
  ("Save as" (choose-file save-buffer-as "Save TeXmacs file" "action_save_as"))
- ---
- (link print-menu)
- ---
- (-> "Import"
-   (link import-import-menu)
+ (if (qt-gui?)
    ---
-   ("Pdf with embedded document"
-     (choose-file wrapped-import-pdf-embeded-with-tmu "Import pdf file" "tmu.pdf")
-   ) ;
- ) ;->
- (-> "Export"
-   (link export-export-menu)
+   (link print-menu)
    ---
-   (when (defined? 'texmacs->latex-document)
-     ("LaTeX" (choose-file export-latex-file "Save LaTeX file" "latex"))
-   ) ;when
-   ("TM document" (choose-file save-buffer-as "Save TeXmacs file" "texmacs"))
-   ("Pdf" (choose-file wrapped-print-to-file "Save pdf file" "pdf"))
-   ("Pdf with embedded document"
-     (choose-file wrapped-print-to-pdf-embeded-with-tmu
-       "Save tmu.pdf file"
-       "tmu.pdf"
-     ) ;choose-file
-   ) ;
-   ("Postscript"
-     (choose-file wrapped-print-to-file "Save postscript file" "postscript")
-   ) ;
-   (when (selection-active-any?)
-     (=> "Export selection as image" (link export-as-image-menu))
-   ) ;when
- ) ;->
- ---
- (if (window-per-buffer?) ("Close window" (close-document)))
- (if (not (window-per-buffer?)) ("Close document" (close-document)))
- ("Close TeXmacs" (safely-quit-TeXmacs))
+   (-> "Import"
+     (link import-import-menu)
+     ---
+     ("Pdf with embedded document"
+       (choose-file wrapped-import-pdf-embeded-with-tmu "Import pdf file" "tmu.pdf")
+     ) ;
+   ) ;->
+   (-> "Export"
+     (link export-export-menu)
+     ---
+     (when (defined? 'texmacs->latex-document)
+       ("LaTeX" (choose-file export-latex-file "Save LaTeX file" "latex"))
+     ) ;when
+     ("TM document" (choose-file save-buffer-as "Save TeXmacs file" "texmacs"))
+     ("Pdf" (choose-file wrapped-print-to-file "Save pdf file" "pdf"))
+     ("Pdf with embedded document"
+       (choose-file wrapped-print-to-pdf-embeded-with-tmu
+         "Save tmu.pdf file"
+         "tmu.pdf"
+       ) ;choose-file
+     ) ;
+     ("Postscript"
+       (choose-file wrapped-print-to-file "Save postscript file" "postscript")
+     ) ;
+     (when (selection-active-any?)
+       (=> "Export selection as image" (link export-as-image-menu))
+     ) ;when
+   ) ;->
+   ---
+   (if (window-per-buffer?) ("Close window" (close-document)))
+   (if (not (window-per-buffer?)) ("Close document" (close-document)))
+   ("Close TeXmacs" (safely-quit-TeXmacs))
+ ) ;if
 ) ;menu-bind
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

@@ -68,13 +68,13 @@
   (if (project-attached?) (=> "Project" (link project-menu)))
   (if (with-versioning-tool?) (=> "Version" (link version-menu)))
   (=> "View::menu" (link view-menu))
-  (=> "Go" (link go-menu))
-  (if (detailed-menus?) (=> "Tools" (link tools-menu)))
+  (if (qt-gui?) (=> "Go" (link go-menu)))
+  (if (qt-gui?) (if (detailed-menus?) (=> "Tools" (link tools-menu))))
   (if (with-database-tool?) (=> "Data" (link db-menu)))
   (if (with-debugging-tool?) (=> "Debug" (link debug-menu)))
   (if (with-developer-tool?) (=> "Developer" (link developer-menu)))
   (if (nnull? (test-menu)) (=> "Test" (link test-menu)))
-  (=> "Help" (link help-menu))
+  (if (qt-gui?) (=> "Help" (link help-menu)))
 ) ;menu-bind
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

@@ -121,12 +121,15 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (menu-bind view-menu
-  (if (not (window-per-buffer?))
-   ("New window" (new-document*))
-   ("Open in new window" (open-document*))
-   ;; ("Clone window" (clone-window))
-   ("Close window" (close-document*))
-   ---
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 New window / Open in new window / Close window
+    (if (not (window-per-buffer?))
+     ("New window" (new-document*))
+     ("Open in new window" (open-document*))
+     ;; ("Clone window" (clone-window))
+     ("Close window" (close-document*))
+     ---
+    ) ;if
   ) ;if
   ("Full screen mode" (toggle-full-screen-edit-mode))
   ("Focus mode" (toggle-focus-mode))
@@ -155,11 +158,14 @@
 
   ("Snap to pages" (toggle-snap-to-pages))
   ---
-  (when (visible-header?)
-    ("Main icon bar" (toggle-visible-icon-bar 0))
-    ("Mode dependent icons" (toggle-visible-icon-bar 1))
-    ("Focus dependent icons" (toggle-visible-icon-bar 2))
-  ) ;when
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Main/Mode/Focus 图标栏开关（ImGui 暂未实现这些栏的开关）
+    (when (visible-header?)
+      ("Main icon bar" (toggle-visible-icon-bar 0))
+      ("Mode dependent icons" (toggle-visible-icon-bar 1))
+      ("Focus dependent icons" (toggle-visible-icon-bar 2))
+    ) ;when
+  ) ;if
   ;; ("User provided icons" (toggle-visible-icon-bar 3))
   ("Status bar" (toggle-visible-footer))
   (if (with-developer-tool?)

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

@@ -612,6 +612,16 @@
   ) ;with-default-view
 ) ;tm-define
 
+(tm-define (wasm-save-for-download)
+  (:synopsis "WASM: 把当前 buffer 保存到它自己的文件并返回该文件路径，供浏览器下载"
+  ) ;:synopsis
+  ;; WASM 的"另存为" = 保存 buffer 到当前文件（普通 Save，不重命名）+ 下载该文件。
+  ;; 不弹文件名对话框、不改 buffer 名。save-buffer-save 同步执行（无
+  ;; with-default-view 的 exec-delayed），把 buffer 内容写入它自己的路径。
+  (save-buffer-save (current-buffer) '() "save")
+  (url->system (current-buffer))
+) ;tm-define
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Exporting buffers
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TeXmacs/progs/text/text-menu.scm

@@ -28,53 +28,65 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (menu-bind full-text-format-menu
-  (group "Font")
-  (link text-font-menu)
-  (if (simple-menus?) (-> "Color" (link color-menu)))
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Format 的 Font / Color
+    (group "Font")
+    (link text-font-menu)
+    (if (simple-menus?) (-> "Color" (link color-menu)))
+  ) ;if
   (if (detailed-menus?) --- (group "Text") (link text-properties-menu))
-  ---
-  (group "Paragraph")
-  (link paragraph-menu)
-  ---
-  (when (in-main-flow?)
-    (group "Page")
-    (link page-menu)
-  ) ;when
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Format 的 Paragraph / Page
+    ---
+    (group "Paragraph")
+    (link paragraph-menu)
+    ---
+    (when (in-main-flow?)
+      (group "Page")
+      (link page-menu)
+    ) ;when
+  ) ;if
 ) ;menu-bind
 
 (menu-bind compressed-text-format-menu
- ("Font" (interactive open-font-selector))
- ("Paragraph" (open-paragraph-format))
- (when (in-main-flow?)
-   ("Page" (open-page-format))
- ) ;when
- (when (inside? 'table)
-   ("Cell" (open-cell-properties))
-   ("Table" (open-table-properties))
- ) ;when
- ---
- ;; (-> "Whitespace" (link space-menu))
- (-> "Indentation" (link indentation-menu))
- (-> "Break" (link break-menu))
- (when (and (selection-active-small?) (tm-atomic? (selection-tree)))
-   ("Hyphenate as" (interactive hyphenate-selection-as))
- ) ;when
- ---
- (-> "Color"
-   (if (== (get-preference "experimental alpha") "on")
-     (-> "Opacity" (link opacity-menu))
-     ---
-   ) ;if
-   (link color-menu)
- ) ;->
- (-> "Adjust" (link adjust-menu))
- (-> "Transform" (link linear-transform-menu))
- (-> "Specific" (link specific-menu))
- (-> "Special" (link format-special-menu))
- (-> "Font effects" (link text-font-effects-menu))
- (assuming (== (get-preference "bitmap effects") "on")
-   (-> "Graphical effects" (link text-effects-menu))
- ) ;assuming
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Format 的 Font / Paragraph / Page / Cell / Table
+    ("Font" (interactive open-font-selector))
+    ("Paragraph" (open-paragraph-format))
+    (when (in-main-flow?)
+      ("Page" (open-page-format))
+    ) ;when
+    (when (inside? 'table)
+      ("Cell" (open-cell-properties))
+      ("Table" (open-table-properties))
+    ) ;when
+    ---
+  ) ;if
+  ;; (-> "Whitespace" (link space-menu))
+  (-> "Indentation" (link indentation-menu))
+  (-> "Break" (link break-menu))
+  (when (and (selection-active-small?) (tm-atomic? (selection-tree)))
+    ("Hyphenate as" (interactive hyphenate-selection-as))
+  ) ;when
+  ---
+  (if (qt-gui?)
+    ;; ImGui 前端精简：移除 Format 的 Color
+    (-> "Color"
+      (if (== (get-preference "experimental alpha") "on")
+        (-> "Opacity" (link opacity-menu))
+        ---
+      ) ;if
+      (link color-menu)
+    ) ;->
+  ) ;if
+  (-> "Adjust" (link adjust-menu))
+  (-> "Transform" (link linear-transform-menu))
+  (-> "Specific" (link specific-menu))
+  (-> "Special" (link format-special-menu))
+  (-> "Font effects" (link text-font-effects-menu))
+  (assuming (== (get-preference "bitmap effects") "on")
+    (-> "Graphical effects" (link text-effects-menu))
+  ) ;assuming
 ) ;menu-bind
 
 (menu-bind text-format-menu