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 <as1...@gmail.com> > > 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 : > > > |- aaaaaaaaaaaaa > aaaaaaaaaaaaaaa > |- bbbbbbbbbbbbb > bbbbbbbbbbbbbbb > `cccccccccccccccc > ccccccccccccccccc > > but like this: > > > |- aaaaaaaaaaaaaaaaaaa > | aaaaaaaaaaaaaaaaaaa > |- bbbbbbbbbbbbbbbbbbb > | bbbbbbbbbbbbbbbbbbbb > |-ccccccccccccccccccccccc > `ccccccccccccccccccccccc > > > In other words: > > Is there a function fill-paragraph for tree-mode ? > > > Thanks. > > Alin > > > > > > > > > > > > > > > > > <quote author="Tassilo Horn-5"> > Alin Soare <as1...@gmail.com> 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 > "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" :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 > > > > </quote> > >
_______________________________________________ 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
