mailing-list for TeXmacs Users

[Maxim Nikulin <address@hidden>]

Hi,

Some time ago I was complaining on problem with switching to 
mathematical input in maxima session (texmacs-1.0.7.2)
https://lists.texmacs.org/wws/arc/texmacs-users/2009-07/msg00001.html

It seems that the problem is in the progs/dynamic/session-edit.scm file.
The field-update-math function sets node to <folded-io-math> 
(<folded-io>) even if it is <input> or <input-math> in the case of last 
session line:

> (define (field-update-math t)
>   (if (session-math-input?)
>       (when (field-prog-context? t)
>         (tree-assign-node! t 'folded-io-math)
>         (tree-assign (tree-ref t 1) '(document "")))
>       (when (field-math-context? t)
>         (tree-assign-node! t 'folded-io)
>         (tree-assign (tree-ref t 1) '(document "")))))

I try to fix that. This is my attempt to write scheme code, so it looks 
ugly. I'm sure there is a compact and clear variant of

(define (field-update-math t)
  (if (session-math-input?)
      (when (tm-func? (tree-ref t :up) 'document)
        (when (tree-in? t '(input))
          (tree-assign-node! t 'input-math))
        (when (tree-in? t '(folded-io))
          (tree-assign-node! t 'folded-io-math))
        (when (tree-in? t '(unfolded-io))
          (tree-assign-node! t 'unfolded-io-math)))
      (when (tm-func? (tree-ref t :up) 'document)
        (when (tree-in? t '(input-math))
          (tree-assign-node! t 'input))
        (when (tree-in? t '(folded-io-math))
          (tree-assign-node! t 'folded-io))
        (when (tree-in? t '(unfolded-io-math))
          (tree-assign-node! t 'unfolded-io))
        ; There should be a better way than just clear the field.
        ; Copy from input-math to input field converts the expression
        ; and something similar can be used here
        (tree-assign (tree-ref t 1) '(document "")))))

--
Regards,
Maxim Nikulin