emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [ANN] Export block syntax change
@ 2015-12-20 21:06 Nicolas Goaziou
  2015-12-20 23:02 ` Rasmus
                   ` (2 more replies)
  0 siblings, 3 replies; 16+ messages in thread
From: Nicolas Goaziou @ 2015-12-20 21:06 UTC (permalink / raw)
  To: Org Mode List

Hello,

I just finalized the syntax change for export blocks. As a reminder, the
new syntax is:

  #+BEGIN_EXPORT backend
  ...
  #+END_EXPORT

instead of

  #+BEGIN_backend
  ...
  #+END_backend

So, basically, "export" is a reserved block type, much like "src". As
a consequence, INCLUDE keywords syntax is modified, e.g.,

  #+INCLUDE: "file.org" HTML

becomes

  #+INCLUDE: "file.org" export html

The following function, included in ORG-NEWS, updates any Org document
to the new syntax. It is meant to be applied after applying the patch.

  (defun org-repair-export-blocks ()
    "Repair export blocks and INCLUDE keywords in current buffer."
    (when (eq major-mode 'org-mode)
      (let ((case-fold-search t)
            (back-end-re (regexp-opt
                          '("HTML" "ASCII" "LATEX" "ODT" "MARKDOWN" "MD" "ORG"
                            "MAN" "BEAMER" "TEXINFO" "GROFF" "KOMA-LETTER")
                          t)))
        (org-with-wide-buffer
         (goto-char (point-min))
         (let ((block-re (concat "^[ \t]*#\\+BEGIN_" back-end-re)))
           (save-excursion
             (while (re-search-forward block-re nil t)
               (let ((element (save-match-data (org-element-at-point))))
                 (when (eq (org-element-type element) 'special-block)
                   (save-excursion
                     (goto-char (org-element-property :end element))
                     (save-match-data (search-backward "_"))
                     (forward-char)
                     (insert "EXPORT")
                     (delete-region (point) (line-end-position)))
                   (replace-match "EXPORT \\1" nil nil nil 1))))))
         (let ((include-re
                (format "^[ \t]*#\\+INCLUDE: .*?%s[ \t]*$" back-end-re)))
           (while (re-search-forward include-re nil t)
             (let ((element (save-match-data (org-element-at-point))))
               (when (and (eq (org-element-type element) 'keyword)
                          (string= (org-element-property :key element) "INCLUDE"))
                 (replace-match "EXPORT \\1" nil nil nil 1)))))))))


Regards,

-- 
Nicolas Goaziou                                                0x80A93738

^ permalink raw reply	[flat|nested] 16+ messages in thread

end of thread, other threads:[~2016-01-11  9:18 UTC | newest]

Thread overview: 16+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-12-20 21:06 [ANN] Export block syntax change Nicolas Goaziou
2015-12-20 23:02 ` Rasmus
2015-12-21  8:21   ` Nicolas Goaziou
2015-12-21 11:09 ` Ken Mankoff
2015-12-21 12:40   ` Nicolas Goaziou
2016-01-02  7:54 ` Suvayu Ali
2016-01-02  8:18   ` John Hendy
2016-01-02 10:54   ` Nicolas Goaziou
2016-01-02 14:40     ` Suvayu Ali
2016-01-06 16:04       ` Kaushal Modi
2016-01-06 18:06         ` Nicolas Goaziou
2016-01-06 19:57           ` Kaushal Modi
2016-01-06 21:52             ` Nicolas Goaziou
2016-01-06 22:26               ` Kaushal Modi
2016-01-11  3:56                 ` Kaushal Modi
2016-01-11  9:20                   ` Nicolas Goaziou

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).