I think I did it!!!
just make a backward search
Check the following
(defun org-export-top-levels ()
(interactive)
(goto-char (point-max))
(let (start (point))
(while (re-search-backward "^* " nil t)
(write-region start (point-at-bol) (concat (org-get-heading)
".txt"))
(setq start (point-at-bol)))))
2008/3/18, Dimitris Kapetanakis <[EMAIL PROTECTED]>:
>
> THANKS EVERYBODY
>
> I was looking at something like Hugo's response. It is a click away since
> it saves under a "heading.txt" the next heading's text. I am trying to
> take a look at it with my poor knowledge of Lisp.
>
> 2008/3/17, Hugo Schmitt <[EMAIL PROTECTED]>:
> >
> > Hm, I guess I sent this only to Dimitri... I'm resending it to the
> > list..
> >
> > This seems to do what you want.
> >
> >
> > (defun org-export-top-levels ()
> > (interactive)
> > (goto-char (point-min))
> > (let (start (point))
> > (while (re-search-forward "^* " nil t)
> > (write-region start (point-at-bol) (concat (org-get-heading)
> > ".txt"))
> > (setq start (point-at-bol)))))
> >
> > Regards,
> > Hugo
> >
> >
> > On Mon, Mar 17, 2008 at 4:43 PM, Daniel Clemente <[EMAIL PROTECTED]>
> > wrote:
> > >
> > > Mmmm... I wrote a program which can do this:
> > > http://www.danielclemente.com/dislines/index.en.html
> > >
> > > however it's not LISP.
> > > I have written multilingual org files this way, but it's not
> > comfortable since it requires several programs and processing phases. I am
> > still looking for a solution in Emacs LISP, and if possible, one which
> > integrates nicely with org-mode :-)
> > >
> > >
> > >
> > >
> > >
> >
> > > _______________________________________________
> > > Emacs-orgmode mailing list
> > > Remember: use `Reply All' to send replies to the list.
> > > Emacs-orgmode@gnu.org
> > > http://lists.gnu.org/mailman/listinfo/emacs-orgmode
> > >
> >
>
>
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
