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

Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

Diff for /OpenXM/src/kxx/init-openxm.scm between version 1.14 and 1.20

version 1.14, 2005/01/23 09:55:29

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

Line 1

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.13 2004/04/16 07:50:22 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)

; (define (openxm-eval t)

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

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

(import-from (texmacs plugin plugin-convert))

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

(plugin-eval "openxm" "default" (object->tree t)))

; (plugin-eval "openxm" "default" (object->tree t)))

(define (openxm-eval-paste t)

; (define (openxm-eval-paste t)

(insert-tree (object->tree (openxm-eval t))))

; (insert-tree (object->tree (openxm-eval t))))

(define (openxm-path t)

(if (string? t)

Line 36

((url-exists-in-path? "kterm") "kterm -g 100x50 -e w3m")

((url-exists-in-path? "xterm") "xterm -g 100x50 -e w3m")

(else #f)))

((url-exists-in-path? "firefox" ) "firefox" )

((url-exists-in-path? "mozilla" ) "mozilla" )

((url-exists-in-path? "netscape") "netscape")

((url-exists-in-path? "iexplore") "iexplore")

Line 49

Line 50

(w3m (openxm-path t)))

(define (openxm-initialize)

(menu-extend texmacs-session-help-icons

; (menu-extend texmacs-session-help-icons

(if (in-openxm?)

; (if (in-openxm?)

; |

((balloon (icon "tm_help.xpm") "Risa/Asir manual")

; ((balloon (icon "tm_help.xpm") "Risa/Asir manual")

(w3m-search manual-asir2000))))

; (w3m-search manual-asir2000))))

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

; (-> "Select display style"

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

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

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

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

(-> "Load Modules (Asir)"

; (-> "Load Modules (Asir)"

("ccurve" (openxm-eval "load(\"ccurve.rr\");"))

; ("ccurve" (openxm-eval "load(\"ccurve.rr\");"))

("dsolv" (openxm-eval "load(\"dsolv\");"))

; ("dsolv" (openxm-eval "load(\"dsolv\");"))

("ratint" (openxm-eval "load(\"ratint\");"))

; ("ratint" (openxm-eval "load(\"ratint\");"))

("solv" (openxm-eval "load(\"solv\");"))

; ("solv" (openxm-eval "load(\"solv\");"))

("sp" (openxm-eval "load(\"sp\");"))

; ("sp" (openxm-eval "load(\"sp\");"))

("sturm" (openxm-eval "load(\"sturm\");"))

; ("sturm" (openxm-eval "load(\"sturm\");"))

("sym" (openxm-eval "load(\"sym\");"))

; ("sym" (openxm-eval "load(\"sym\");"))

("weight" (openxm-eval "load(\"weight\");"))

; ("weight" (openxm-eval "load(\"weight\");"))

("yang" (openxm-eval "load(\"yang.rr\");"))

; ("yang" (openxm-eval "load(\"yang.rr\");"))

)

; )

(-> "Display Configuration (Asir)"

; (-> "Display Configuration (Asir)"

("Load default" (openxm-eval "noro_print_env(0);"))

; ("Load default" (openxm-eval "noro_print_env(0);"))

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

("Risa/Asir manual"

(w3m-search manual-asir2000))

Line 92

Line 93

)

(define (openxm-serialize lan t)

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

(import-from (utils plugins plugin-cmd))

(with u (pre-serialize lan t)

(with s (texmacs->verbatim (stree->tree u))

(string-append (string-replace s "\n" "\v") "\n")

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>