From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alin Soare Subject: Re: format text in TreeWidget. Date: Mon, 10 Jan 2011 23:04:53 +0200 Message-ID: References: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=0016e659f534c8b2bf04998451ca Return-path: In-Reply-To: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org To: Emacs Dev , emacs-orgmode@gnu.org List-Id: emacs-orgmode.gnu.org --0016e659f534c8b2bf04998451ca Content-Type: text/plain; charset=UTF-8 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 : > > > |- 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 > > > > > > > > > > > > > > > > > > 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 > "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 > > > > > > --0016e659f534c8b2bf04998451ca Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable

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&qu= ot; an accumulator to help me know the

:level N

of every tree-widget element. N can represens the numbe= r 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 tre= e-widget mode ?

Please help from the author of tree-widget and everybody else who knows= it .


Alin.












<= div class=3D"gmail_quote">2011/1/10 Alin Soare <as1789@gmail.com>

No.

Th= anks for your answer.

No, your answer is wrong.

You did not u= nderstand what I meant.

I answer you so:

I do not like to create a tree like this :
<= br>
|- aaaaaaaaaaaaa
aaaaaaaaaaaaaaa
|- bbbbbbbbbbbbb
bbbbbbbbbbbbbbb
`cccccccccccccccc
ccccccccccccccc= cc

but like this:


|- aaaaaaaaaaaaaaaaaaa
|=C2=A0 aaaaa= aaaaaaaaaaaaaa
|- bbbbbbbbbbbbbbbbbbb
| bbbbbbbbbbbbbbbbbbbb
|-ccc= cccccccccccccccccccc
`ccccccccccccccccccccccc


In other words:

Is there a funct= ion fill-paragraph for tree-mode ?


Thanks.

Alin















<quote author= =3D"Tassilo Horn-5">
Alin Soare <as1789= @gmail.com> writes:

> I did write the following code.
&= gt;
> 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 perfe= ct:

--8<---------------cut here---------------start-------------&= gt;8---
(widget-create 'tree-widget
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 :node '(push-button :tag "xxxxxxxxxxxxxxxxxxxxxxxx= xxxxxxxxxxxxxxx" :format "%[%t%]\n")
=C2=A0=C2=A0=C2=A0 = =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 `(tree-widget
=C2=A0=C2=A0=C2=A0 = =C2=A0=C2=A0=C2=A0 =C2=A0:tag ,(with-temp-buffer
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(set-fill-co= lumn 50)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0= (insert "bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla b= la 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")
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(fill-paragr= aph)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(buf= fer-string)))
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 `(= tree-widget
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0:tag ,(with-temp= -buffer
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(= set-fill-column 60)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0= =C2=A0 =C2=A0(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")
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(fill-paragr= aph)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(buf= fer-string)))
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 `(= tree-widget
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0:tag ,(with-temp= -buffer
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(= set-fill-column 70)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0= =C2=A0 =C2=A0(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")
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(fill-paragr= aph)
=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0(buf= fer-string))))
--8<---------------cut here---------------end---------= ------>8---

The problem is that only the first line has correct t= ree lines...

But maybe that's still a pointer into the right direction.

Bye,
Tassilo



</quote>


--0016e659f534c8b2bf04998451ca--