From: Dan Davison <davison@stats.ox.ac.uk>
To: emacs org-mode mailing list <emacs-orgmode@gnu.org>
Subject: Re: latex <-> org ?
Date: Thu, 4 Dec 2008 18:12:31 -0500 [thread overview]
Message-ID: <20081204231231.GE8550@stats.ox.ac.uk> (raw)
In-Reply-To: <20081204165144.GA8550@stats.ox.ac.uk>
For what it's worth, here's my attempt at a simple version of
this. These flip a latex document into org mode so that you can see
the document structure, and then flip it back, hopefully to the same
latex document. #+begin_src ... #+end_src are inserted in the org
version so that text in unfolded sections can be edited in latex-mode
via C-c '. The only latex tags operated on are \section, \subsection
and \subsubsection. But maybe a proper version of this already exists
somewhere?
Dan
(defun org-latex-to-org ()
"Convert latex buffer to org."
(interactive)
(beginning-of-buffer)
(if (save-excursion (re-search-forward "^\\\\title{\\([^}]*\\)}" nil t))
(insert (concat "#+title: " (match-string 1) "\n"))
(insert "#+title: [No title found]\n"))
(insert "* Preamble\n")
(let (level dummy)
(dotimes (level 3)
(let (string)
(dotimes (dummy level) (setq string (concat "sub" string))) ;; how do you make e.g. 'subsub'?
(save-excursion
(while (re-search-forward (concat "^\\\\" string "section\\(\\*?{.*\\)$") nil t)
(replace-match
(concat (make-string (1+ level) (string-to-char "*")) " "
(replace-regexp-in-string "\\\\" "\\\\\\\\" (match-string 1))) ;; further '\'s might occur e.g. \label{}
nil nil)
(beginning-of-line)
(insert "#+end_src\n")
(end-of-line)
(insert "\n#+begin_src latex"))))))
(org-mode))
(defun org-latex-to-org-inverse ()
"Convert org buffer to latex. Intended to be the inverse of org-latex-to-org."
(interactive)
(latex-mode)
(beginning-of-buffer)
(kill-line 2)
(save-excursion (while (re-search-forward "^#\\+begin_src latex" nil t) (kill-line 0) (kill-line)))
(save-excursion (while (re-search-forward "^#\\+end_src" nil t) (kill-line 0) (kill-line)))
(save-excursion
(while (re-search-forward "^\\* \\(.*\\)$" nil t)
(replace-match
(concat "\\\\section" (replace-regexp-in-string "\\\\" "\\\\\\\\" (match-string 1))) nil nil)))
(save-excursion
(while (re-search-forward "^\\*\\* \\(.*\\)$" nil t)
(replace-match
(concat "\\\\subsection" (replace-regexp-in-string "\\\\" "\\\\\\\\" (match-string 1))) nil nil)))
(save-excursion
(while (re-search-forward "^\\*\\*\\* \\(.*\\)$" nil t)
(replace-match
(concat "\\\\subsubsection" (replace-regexp-in-string "\\\\" "\\\\\\\\" (match-string 1))) nil nil))))
On Thu, Dec 04, 2008 at 11:51:44AM -0500, Dan Davison wrote:
> Has anyone worked on reversible transformation between org and latex?
> I'm collaborating on a latex document with some non-org
> users. Basically what I'd like to do is transform a latex document
> into an org document, fold/unfold sections and edit the document under
> org-mode, and then reconvert to latex. The end result would be as if
> the transformation to org had never happened.
>
> At its simplest those functions would convert between '\section' <->
> '* section', '\subsection' <-> '** subsection' etc, but obviously
> there's a lot more that could be done such as all the conversions that
> org-export-to-latex does; I imagine that function couldn't be used
> directly, but ideally the inverse of the latex->org function would
> share conversion code with org-export-to-latex. Does this idea make
> sense, and has anyone already worked on this?
>
> Dan
>
> --
> http://www.stats.ox.ac.uk/~davison
>
>
> _______________________________________________
> 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
--
http://www.stats.ox.ac.uk/~davison
next prev parent reply other threads:[~2008-12-04 23:12 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-12-04 16:51 latex <-> org ? Dan Davison
2008-12-04 23:12 ` Dan Davison [this message]
2008-12-08 12:39 ` Harri Kiiskinen
2008-12-18 16:50 ` orgstruct minor mode (WAS: latex <-> org ?) Dan Davison
2008-12-19 8:40 ` Carsten Dominik
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20081204231231.GE8550@stats.ox.ac.uk \
--to=davison@stats.ox.ac.uk \
--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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.