version 1.15, 2006/02/13 06:14:22 |
version 1.16, 2006/02/13 09:21:08 |
|
|
; $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) |
(define (alist-search alist) |
(let* ((lang (or (getenv "LANG") "C")) |
(let* ((lang (or (getenv "LANG") "C")) |
|
|
(alist-search |
(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/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) |
(define (openxm-path t) |
(if (string? t) |
(if (string? t) |