OpenXM/src/kxx/init-openxm.scm - diff

Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

version 1.17, 2006/02/13 10:00:05

version 1.20, 2009/02/23 08:11:26

Line 1

; $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.19 2009/02/22 17:30:03 ohara Exp $

(define (alist-search alist)

(let* ((lang (or (getenv "LANG") "C"))

Line 7

(define manual-asir2000

(alist-search

'(("C" . "doc/asir2000/html-eg/man_toc.html") ("ja" . "doc/asir2000/html-jp/man_toc.html"))))

'(("C" . "doc/asir2000/html-en/man_toc.html") ("ja" . "doc/asir2000/html-ja/man_toc.html"))))

(define manual-asir-contrib

(alist-search

'(("C" . "doc/asir-contrib/html-en/cman-en_toc.html") ("ja" . "doc/asir-contrib/html-ja/cman-ja_toc.html"))))

'(("C" . "doc/asir-contrib/en/cman-html/cman-en_toc.html") ("ja" . "doc/asir-contrib/ja/cman-html/cman-ja_toc.html"))))

; (define (openxm-eval t)

; (import-from (texmacs plugin plugin-cmd))

Line 58

(menu-extend texmacs-extra-menu

(if (in-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"

; ("LaTeX" (openxm-eval "!latex;"))

; ("verbatim" (openxm-eval "!verbatim;")))

Line 80

; ("Weyl algebra" (openxm-eval "noro_print_env(\"weyl\");"))

; ("Euler OPs" (openxm-eval "noro_print_env(\"yang\");"))

; )

---

; ---

(-> "Manuals"

("Risa/Asir manual"

(w3m-search manual-asir2000))