#+style: <style>.abstract:before { content: "Abstract: "; font-weight: bold; display: inline}
#+style: .abstract {font-size: 10pt; margin-left: 3em}
#+style: .sidebar {border: 1px solid black; padding: 1em; background: yellow; counter-increment: box}
#+style: .sidebar:before {content: "Box " counter(box); font-weight: bold; display: block}
#+style: p {font-family: arial}</style

Special blocks test


#+begin_src emacs-lisp
  (require 'org-special-blocks)
#+end_src

#+results:
: org-special-blocks


#+begin_abstract
  This is a special =abstract= block.
#+end_abstract

Some text.

#+begin_sidebar
  This is a sidebar with additional detail. Check that the first
  paragraph is styled the same as the others.

  It extends over several paragraphs.
#+end_sidebar

Some more text.

#+begin_sidebar

  This is another example with lines above/below.

#+end_sidebar

Text again.

#+begin_center
  This is centered text. Like special blocks, it's wrapped in a =div=
  element in HTML.
#+end_center


New code:


#+begin_src emacs-lisp
  (defun org-special-blocks-convert-html-special-cookies ()
  "Converts the special cookies into div blocks."
  ;; Uses the dynamically-bound variable `line'.
  (when (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" line)
    (message "%s" (match-string 1))
    (when (equal (match-string 2 line) "START")
      (org-close-par-maybe)
      (insert "\n<div class=\"" (match-string 1 line) "\">")
      (org-open-par))
    (when (equal (match-string 2 line) "END")
      (org-close-par-maybe)
      (insert "\n</div>")
      (org-open-par))
    (throw 'nextline nil)))
#+end_src