I generate the tree in the following order:
XML - (xml-parse-tag) -> LISP - (defining xml-tags as lisp functions) ->
tree-widget format.
I can insert to te level "xml-tags as lisp functions" an accumulator to help
me know the
:level N
of every tree-widget element. N can represens the number of columns at the
beginning of a line used by "group"
| [N times]
Supposing you have a (:level N) element for every element of tree-widget,
how do you define a fill-paragraph function in tree-widget mode ?
Please help from the author of tree-widget and everybody else who knows it .
Alin.
2011/1/10 Alin Soare
>
> No.
>
> Thanks for your answer.
>
> No, your answer is wrong.
>
> You did not understand what I meant.
>
> I answer you so:
>
> I do not like to create a tree like this :
>
>
> |- a
> aaa
> |- b
> bbb
> `
> c
>
> but like this:
>
>
> |- aaa
> | aaa
> |- bbb
> |
> |-ccc
> `ccc
>
>
> In other words:
>
> Is there a function fill-paragraph for tree-mode ?
>
>
> Thanks.
>
> Alin
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Alin Soare writes:
>
> > I did write the following code.
> >
> > As the :tag text is very long on some lines, and pass over the end the
> > line, it is displayed on myltiple lines, and the tree looks spoiled. I
> > wish to make the tree widget show the text formatted correctly, and on
> > maximum N columns.
>
> Hm, this somehow works, but is not perfect:
>
> --8<---cut here---start->8---
> (widget-create 'tree-widget
>:node '(push-button :tag
> "xxx" :format "%[%t%]\n")
>`(tree-widget
> :tag ,(with-temp-buffer
> (set-fill-column 50)
> (insert "bla bla bla bla bla bla bla bla bla bla bla bla bla
> bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla
> bla bla bla bla bla bla bla bla bla bla bla")
> (fill-paragraph)
> (buffer-string)))
>`(tree-widget
> :tag ,(with-temp-buffer
> (set-fill-column 60)
> (insert "foo foo foo foo foo foo foo foo foo foo foo foo foo
> foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo
> foo foo foo foo foo foo foo foo foo foo foo")
> (fill-paragraph)
> (buffer-string)))
>`(tree-widget
> :tag ,(with-temp-buffer
> (set-fill-column 70)
> (insert "baz baz baz baz baz baz baz baz baz baz baz baz baz
> baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz baz
> baz baz baz baz baz baz baz baz baz baz baz")
> (fill-paragraph)
> (buffer-string
> --8<---cut here---end--->8---
>
> The problem is that only the first line has correct tree lines...
>
> But maybe that's still a pointer into the right direction.
>
> Bye,
> Tassilo
>
>
>
>
>
>
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
