Re: outline -> latex

[Oliver Scholz <alkibiades@gmx.de>]

ray@nabuli.de writes:
[...]
> just a question here: Isn't there an easy way to convert outline into
> latex?  I am not realy sure, but I thought there was something.  Does
> somebody have a clue?

I am not aware of any package doing this, but unless I am
misunderstanding you, I dare say that this task is rather trivial,
since it is just about regexp matching and replacing.

Hmm, maybe:

(defconst ray-outline-to-latex-alist
  '((1 "\\section{%s}")
    (2 "\\subsection{%s}")
    (3 "\\subsubsection{%s}")))

(defun ray-outline-to-latex ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (ray-convert-heading-maybe)
    (while (= 0 (forward-line 1))
      (ray-convert-heading-maybe))))

(defun ray-convert-heading-maybe ()
  (when (looking-at outline-regexp)
    (let ((format (cadr (assq (funcall outline-level)
			      ray-outline-to-latex-alist)))
	  str)
      (when format
	(goto-char (match-end 0))
	(skip-syntax-forward "-")
	(setq str (buffer-substring (point) (line-end-position)))
	(delete-region (line-beginning-position)
		       (line-end-position))
	(insert (format format str))))))


    Oliver
-- 
28 Vendémiaire an 212 de la Révolution
Liberté, Egalité, Fraternité!