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.7 and 1.13

version 1.7, 2004/03/16 03:26:40

version 1.13, 2004/04/16 07:50:22

Line 1

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.6 2004/03/12 02:22:27 ohara Exp $

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.12 2004/03/25 01:05:34 ohara Exp $

(define (alist-search alist)

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

(ent (assoc (substring lang 0 (min (string-length lang) 2)) alist)))

(if ent (cdr ent) (cdr (assoc "C" alist)))))

(define manual-asir2000

(alist-search

'(("C" . "doc/asir2000/html-eg/man_toc.html") ("ja" . "doc/asir2000/html-jp/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"))))

(define (openxm-eval t)

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

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

Line 16

Line 29

(web-path (string-append web-prefix t)))

(if (url-exists? local-path) local-path web-path))))

(define w3m-cmd

(cond

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

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

((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? "mozilla" ) "mozilla" )

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

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

(else #f)))

(define (w3m t)

(if (string? t)

(if (and (string? t) w3m-cmd)

(system (string-append "rxvt -g 100x50 -e w3m " t "&"))))

(system (string-append w3m-cmd " " t " &"))))

(define (w3m-search t)

(w3m (openxm-path t)))

Line 28

Line 53

(if (in-openxm?)

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

(w3m-search "doc/asir2000/html-jp/man_toc.html"))))

(w3m-search manual-asir2000))))

(menu-extend texmacs-extra-menu

(if (in-openxm?)

(=> "OpenXM"

Line 39

Line 64

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

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

(-> "Load Modules (Asir)"

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

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

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

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

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

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

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

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

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

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

)

(-> "Display Configuration (Asir)"

Line 51

Line 82

---

(-> "Manuals"

("Risa/Asir manual"

(w3m-search "doc/asir2000/html-jp/man_toc.html"))

(w3m-search manual-asir2000))

("Asir-contrib manual"

(w3m-search "doc/asir-contrib/html-ja/cman-ja_toc.html")))

(w3m-search manual-asir-contrib)))

(-> "Web"

("The OpenXM Project" (w3m "http://www.math.kobe-u.ac.jp/OpenXM/")))

("The OpenXM Project" (w3m "http://www.math.kobe-u.ac.jp/OpenXM/"))

("Risa/Asir web page" (w3m "http://www.math.kobe-u.ac.jp/Asir/index-ja.html")))

)))

)

(define (openxm-serialize lan t)

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

(with u (pre-serialize lan t)

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

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

)))

(plugin-configure openxm

(:require (url-exists-in-path? "openxm"))

(:initialize (openxm-initialize))

(:serializer ,openxm-serialize)

(:launch "exec openxm ox_texmacs")

(:session "OpenXM[asir,sm1]"))

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