(setq ndk-list-to-paragraph-file-list '("/home/nick/src/org/list/to-paragraph/derek-thomas.org")) (defun org-list-to-paragraph () "Convert the list at point into a paragraph." (interactive) (insert (org-list-to-generic (org-list-parse-list t) '(:ustart "" :splice t :isep " " :nobr t )))) (defun ndk-buffer-file-name () ;;; if called from inside org-export-preprocess-string ;;; source-buffer will be bound to the original org buffer, not the temp buffer ;;; otherwise assume we want to operate on the current buffer ;;; don't bother telling me how ugly this is - I know ;;; but do bother telling me about a better way to do it. (if (boundp 'source-buffer) (buffer-file-name source-buffer) (buffer-file-name (current-buffer)))) (defun org-lists-to-paragraphs () (if (not (member (ndk-buffer-file-name) ndk-list-to-paragraph-file-list)) nil (goto-char (point-min)) (condition-case nil (while (org-list-search-forward "+ ") (org-list-to-paragraph)) (error nil)))) (add-hook 'org-export-preprocess-hook (function org-lists-to-paragraphs))