Perhaps checking if the tree has the script-label output in a loop till it has could be the way to write the function, but I have not been able to make it work yet. I have tried with
(define (image-set-default-size)
(if (equal? (tree-label (cursor-tree)) 'script-busy)
(begin (usleep 250000)
(image-set-default-size))
(let ((t (find-image (cursor-tree))))
(set-image-size t))))
but TeXmacs hangs.
Archive powered by MHonArc 2.6.19.