What's wrong with org-export-html-final-hook in 8.x

What's wrong with org-export-html-final-hook in 8.x

[visayafan]

Recently I upgrade my Org Mode from 7.8.11 to the latest 8.0.2 and find
org-export-html-final-hook doesn't work.

------------------------------
(add-hook 'org-export-html-final-hook 'org-delete-!!!)
(defun org-delete-!!! ()
  (interactive)
  (goto-char (point-min))
  (while (re-search-forward "AAAAA" nil t)
    (replace-match "<"))
  (goto-char (point-min))
  (while (re-search-forward "BBBBB" nil t)
    (replace-match ">")))
------------------------------

I need this piece of code because when I export my org note to html I
want something like   AAAAAfont color="red"BBBBBthis is
redAAAAA/fontBBBBB change to  <font color="red">this is red</font> then
I will have red color. but now it doen't work.

I find this org-hook link
http://orgmode.org/worg/org-configs/org-hooks.html, but this page
doesn't seem to help, it says nothing about the upgrade thing.

So, can anybody help about this? Any help would be very appreciated.

Sorry for my broken English :)

visayafan
--

Re: What's wrong with org-export-html-final-hook in 8.x

[Rasmus]

Hi Visayafan,

> Recently I upgrade my Org Mode from 7.8.11 to the latest 8.0.2 and find
> org-export-html-final-hook doesn't work.

This variable no longer exists, since quite I while I think (check the
git log if interested).  

You could switch to filters.  Here's an ugly hack for removing titles
on my web-site (the title is already inserted in a shared preamble).

#+BEGIN_SRC emacs-lisp
  (defun rasmus/org-html-ignore-title-if-present (string backend info)
      "Strip title if it's already there. Ignore BACKEND and INFO."
      (when (and (org-export-derived-backend-p backend 'html)
                 (string-match "h1 class=\"mytitle\"" string))
        (replace-regexp-in-string "<h1 class=\"title\">.*?</h1>" "" string)))

  (add-to-list 'org-export-filter-final-output-functions
               'rasmus/org-html-ignore-title-if-present)
#+END_SRC

Hope it helps,
Rasmus

-- 
Summon the Mothership!

Re: What's wrong with org-export-html-final-hook in 8.x

[visayafan]

Rasmus <rasmus@gmx.us> writes:

> You could switch to filters.  Here's an ugly hack for removing titles
> on my web-site (the title is already inserted in a shared preamble).
>
> #+BEGIN_SRC emacs-lisp
>   (defun rasmus/org-html-ignore-title-if-present (string backend info)
>       "Strip title if it's already there. Ignore BACKEND and INFO."
>       (when (and (org-export-derived-backend-p backend 'html)
>                  (string-match "h1 class=\"mytitle\"" string))
>         (replace-regexp-in-string "<h1 class=\"title\">.*?</h1>" "" string)))
>
>   (add-to-list 'org-export-filter-final-output-functions
>                'rasmus/org-html-ignore-title-if-present)
> #+END_SRC
>

Thank you very much Rasmus, your code perfectly does the trick.

#+BEGIN_SRC emacs-lisp
(add-to-list 'org-export-filter-final-output-functions
             'fan/org-html-produce-inline-html)
(defun fan/org-html-produce-inline-html (string backend info)
  "replace !!!!! to < and @@@@@ to >"
  (when (and (org-export-derived-backend-p backend 'html)
             (string-match "!!!!!" string))
    (replace-regexp-in-string (rx  (= 5 "!")
                                   (group (+? anything))
                                   (= 5 "@"))
                              "<\\1>"
                              string)))
#+END_SRC

Now with this code and the macro below I can have colorful font inside a
paragraph.

#+BEGIN_SRC org
#+macro: color !!!!!font color="$1"@@@@@$2!!!!!/font@@@@@
before {{{color(red,this is red)}}} after
#+END_SRC

visayafan
--

Re: What's wrong with org-export-html-final-hook in 8.x

[visayafan]

#+BEGIN_SRC emacs-lisp
(eval-after-load 'ox-html
  '(add-to-list 'org-export-filter-final-output-functions
             'fan/org-html-produce-inline-html))
#+END_SRC

----