mailing-list for TeXmacs Users

[Werner Hug <address@hidden>]

Dear Alex,

Second version works great, I tested it through an almost 200 page 
Texmacs document with about 100 pictures.

Nobody cares here if it is elegant or not, we cannot tell. I think you 
greatly overestimate our competence in the matter.

In case you might ever plan to implement something similar as an 
optional feature in Texmacs (for ordinary scientists, i.e. 
non-mathematicians with manuscripts with lots of graphics material), a 
convenient aspect might be if one could scroll, with pictures switched 
off, to a section of the manuscript where one needs to make changes, 
then switch figures on but remain at the same place of the manuscript.

Again, warm thanks,

Werner

Alex D schrieb:

> Hi,
>
> OK, try this instead. I changed the selection routine. It's less intelligent
> now but it at least it should work.
>
> What I'd really like to do is something like (select (buffer-tree) `(:*
> (:not inactive) ,elem)). That is, to select every elem element whose parent
> is not inactive. Perhaps, someone here knows how to do this...
>
> I think this can be pretty useful for evaluation switches. You could write
> your document with some Maxima code where the results should go. Hit eval
> all and the code is replaced by the result.
>
> (use-modules (utils library tree))
>
> (define active-elems
>  (lambda (elem)
>    (append (select (buffer-tree) `(:* ,elem)))))
>
> (define inactive-elems
>  (lambda (elem)
>    (select (buffer-tree) `(:* inactive ,elem))))
>
> (define activate-elem
>  (lambda (elem)
>    (let ((t (tree-ref elem :up)))
>      (tree-set! t elem))))
>
> (define deactivate-elem
>  (lambda (elem)
>    (tree-set! elem (tree 'inactive elem))))
>
>
> (menu-extend texmacs-extra-menu
>  (=> "Alex"
>    ("activate all"
>      (begin (for-each activate-elem (inactive-elems 'postscript))))
>    ("deactivate all"
>      (begin (for-each deactivate-elem (active-elems 'postscript))))))
>
> Sincerely,
>
> Aleksandr Dobkin
>
>