Re: format text in TreeWidget.

From: Alin Soare <as1789@gmail.com>
To: Emacs Dev <emacs-devel@gnu.org>, emacs-orgmode@gnu.org
Subject: Re: format text in TreeWidget.
Date: Mon, 10 Jan 2011 22:53:53 +0200	[thread overview]
Message-ID: <AANLkTinLiK9zZFi8sPFih3JA8gA+pMe5_v86_JJMG7_A@mail.gmail.com> (raw)

[-- Attachment #1.1: Type: text/plain, Size: 2375 bytes --]

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 <as1789@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>

[-- Attachment #1.2: Type: text/html, Size: 3041 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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