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 23:04:53 +0200 [thread overview]
Message-ID: <AANLkTim59Z-gmfcRj8oAnYKRvYW5E8mth4QFt_K6QRcB@mail.gmail.com> (raw)
In-Reply-To: <AANLkTinLiK9zZFi8sPFih3JA8gA+pMe5_v86_JJMG7_A@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 3205 bytes --]
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 <as1789@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 <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 #2: Type: text/html, Size: 4107 bytes --]
next prev parent reply other threads:[~2011-01-10 21:04 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-01-10 20:53 format text in TreeWidget Alin Soare
2011-01-10 21:04 ` Alin Soare [this message]
2011-01-10 21:10 ` Chong Yidong
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=AANLkTim59Z-gmfcRj8oAnYKRvYW5E8mth4QFt_K6QRcB@mail.gmail.com \
--to=as1789@gmail.com \
--cc=emacs-devel@gnu.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).