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

Return to init-openxm.scm CVS log

Up to [local] / OpenXM / src / kxx

version 1.15, 2006/02/13 06:14:22

version 1.16, 2006/02/13 09:21:08

Line 1

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.14 2005/01/23 09:55:29 ohara Exp $

; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.15 2006/02/13 06:14:22 ohara Exp $

(define (alist-search alist)

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

Line 13

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

(define openxm-eval script-apply)

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

; (define (openxm-eval t)

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

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

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

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

; (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)