[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] another blog exporter
From: |
Rasmus |
Subject: |
Re: [O] another blog exporter |
Date: |
Fri, 07 Feb 2014 18:35:03 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
Robert Klein <address@hidden> writes:
> Hi,
>
> around the org-mode 8.0 release I began to write a new blog exporter
> using the new export framework.
>
> I wanted one feature org2blog didn't offer, support for different syntax
> highlighters, and i wanted to learn about the new exporter and Emacs
> programming.
>
> Around Christmas I did some polishing to make it ready for a greater public.
Cool.
Could you provide an example blog so that we can see the output?
> ;;; Transcode Functions
>
> ;;;; Example Block
>
> (defun org-blog-example-block (example-block contents info)
> "Transcode a EXAMPLE-BLOCK element from Org to HTML.
> CONTENTS is nil. INFO is a plist holding contextual
> information."
> (if (org-export-read-attribute :attr_html example-block :textarea)
> (org-html--textarea-block example-block)
> ;;; beginnin here we need org/wp-syntac/syntaxhl information!!!!
> (format "<pre class=\"example\">\n%s</pre>"
> (org-html-format-code example-block info))))
Isn't this an exact copy of the corresponding entry in ox-html (Less
the name)? Why?
> ;;;; Latex Environment
>
> (defun org-blog-latex-environment (latex-environment contents info)
> "Transcode a LATEX-ENVIRONMENT element from Org to HTML.
> CONTENTS is nil. INFO is a plist holding contextual information."
> (let ((processing-type (plist-get info :with-latex))
> (latex-frag (org-remove-indentation
> (org-element-property :value latex-environment)))
> (attributes (org-combine-plists
> (org-export-read-attribute :attr_html latex-environment)
> (org-export-read-attribute :attr_blog
> latex-environment))))
> (case processing-type
> ((t mathjax)
> (org-html-format-latex latex-frag 'mathjax info))
> ((dvipng imagemagick)
> (let ((formula-link
> (org-html-format-latex latex-frag processing-type info)))
> (when (and formula-link (string-match "file:\\([^]]*\\)" formula-link))
> ;; Do not provide a caption or a name to be consistent with
> ;; `mathjax' handling.
> (org-html--wrap-image
> (org-blog--format-image
> (match-string 1 formula-link) attributes info) info))))
> (t latex-frag))))
Same. There seems to be a couple of these. . .
Rasmus
--
Don't panic!!!