Jambunathan K <kjambunat...@gmail.com> writes: > Bastien > > I have created a new feature branch named "org-xhtml-and-org-odt". > > The main "feature" introduced by this branch is: > > 1. The HTML exporter in lisp/org-html.el is *totally* rewritten. It > should be on par with the current HTML exporter in the master branch. > > Note: Anyone who depends on HTML export for his day-to-day work > *must* make sure that nothing is broken. > > 2. The ODT exporter is now moved to lisp/org-odt.el > > Additional Info: > > 1. testing > - There is a testfile in contrib/odt/tests/test.org which users can use > to unit test the changes. > > 2. info manual > > - I have updated the ODT section in the info manual and it is worth a > read for serious users. (Chirstian, I will revise the manual later > in the day. For now, it is pretty much same as what you had seen > last time.) > > Let me know if there are any questions or comments.
I hope this is not OT but I have a question regarding this new infrastructure. I have a project at github called inkmacs, which integrates inkscape, org-mode, and emacs: https://github.com/jave/inkmacs There I support interactive transfer of org nodes to inkscapes text nodes. My current code to extract the org nodes is not beautiful and I though maybe org-lparse improves the situation? Below is an excerpt from the code. As you can see it's very primitive and does not support many org constructs. (Its surprisingly useful anyway though) ----- (defun org-get-entry-2 () "Get the entry text, after heading, to next heading, or eof." (save-excursion (org-back-to-heading t) (let ((p1 (point-at-bol 2)) (p2 (progn (forward-line) (search-forward "*" nil t)))) (setq p2 (if (null p2) (point-max) (1- p2))) (buffer-substring p1 p2)))) (defun inkorg-entry-text () "Extract text from current org node. Return a format suitable to create an inkscape text node from. asterisks and properties are removed." ;;TODO there ought to be some code in org-exp for this somewhere(org-ascii for example) (let ((text (concat (org-get-heading) "\n" (org-get-entry-2)))) (set-text-properties 0 (length text) nil text ) (replace-regexp-in-string "\\([^\n]\\)\n\\([^\n]\\)" "\\1 \\2" (concat (substring text 0 (string-match org-property-start-re text)) (if (string-match org-property-end-re text) (substring text (progn (string-match org-property-end-re text) (match-end 0)) (length text))))))) ---------- > > Jambunathan K. -- Joakim Verona