version 1.17, 2006/02/13 10:00:05 |
version 1.18, 2006/02/13 12:30:08 |
|
|
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.16 2006/02/13 09:21:08 ohara Exp $ |
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.17 2006/02/13 10:00:05 ohara Exp $ |
|
|
(define (alist-search alist) |
(define (alist-search alist) |
(let* ((lang (or (getenv "LANG") "C")) |
(let* ((lang (or (getenv "LANG") "C")) |
|
|
(menu-extend texmacs-extra-menu |
(menu-extend texmacs-extra-menu |
(if (in-openxm?) |
(if (in-openxm?) |
(=> "OpenXM" |
(=> "OpenXM" |
(-> "Select engines" |
; (-> "Select engines" |
("Risa/Asir" (insert-string "!asir;")) |
; ("Risa/Asir" (insert-string "!asir;")) |
("Kan/sm1" (insert-string "!sm1;"))) |
; ("Kan/sm1" (insert-string "!sm1;"))) |
; (-> "Select display style" |
; (-> "Select display style" |
; ("LaTeX" (openxm-eval "!latex;")) |
; ("LaTeX" (openxm-eval "!latex;")) |
; ("verbatim" (openxm-eval "!verbatim;"))) |
; ("verbatim" (openxm-eval "!verbatim;"))) |
|
|
; ("Weyl algebra" (openxm-eval "noro_print_env(\"weyl\");")) |
; ("Weyl algebra" (openxm-eval "noro_print_env(\"weyl\");")) |
; ("Euler OPs" (openxm-eval "noro_print_env(\"yang\");")) |
; ("Euler OPs" (openxm-eval "noro_print_env(\"yang\");")) |
; ) |
; ) |
--- |
; --- |
(-> "Manuals" |
(-> "Manuals" |
("Risa/Asir manual" |
("Risa/Asir manual" |
(w3m-search manual-asir2000)) |
(w3m-search manual-asir2000)) |