Org publish inserting HTML tags into sitemap-format-entry

Org publish inserting HTML tags into sitemap-format-entry

[Thomas Ingram]

Hello,

I am using  ox-publish to build my website. I have a custom 
sitemap-formt-entry function that adds post dates and I'm trying to add 
a div around those dates. Problem is the tags are getting escaped in the 
resulting HTML. How can I add tags without them being escaped?

Below is my :sitemap-format-entry function.

(defun org-sitemap-custom-entry-format (entry style project)
   (let ((filename (org-publish-find-title entry project)))
     (if (= (length filename) 0)
         (format "*%s*" entry)
       (format "<div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]"
               (format-time-string "%Y-%m-%d"
                   (org-publish-find-date entry project))
               entry
               filename))))

Thanks for the help!

Thomas Ingram

Re: Org publish inserting HTML tags into sitemap-format-entry

[Thibault Marin]

You may need to wrap the html part in a `#+begin_export html' block or
similar.  I believe the custom sitemap function should generate org
content, not directly HTML.

Hope it helps.

On 2019-07-10T17:44:01-0400, Thomas Ingram wrote:

  Hello,

  I am using ox-publish to build my website. I have a custom
  sitemap-formt-entry function that adds post dates and I'm trying to
  add a div around those dates. Problem is the tags are getting escaped
  in the resulting HTML. How can I add tags without them being escaped?

  Below is my :sitemap-format-entry function.

  (defun org-sitemap-custom-entry-format (entry style project)
   (let ((filename (org-publish-find-title entry project)))
   (if (= (length filename) 0)
   (format "*%s*" entry)
   (format "<div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]"
   (format-time-string "%Y-%m-%d"
       (org-publish-find-date entry project))
   entry
   filename))))

  Thanks for the help!

  Thomas Ingram

Re: Org publish inserting HTML tags into sitemap-format-entry

[Thomas Ingram]

Thanks, but adding `#+begin_export html' simply outputs that as well 
without changing the output

"#+begin_export html
<div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]
#+end_export"

Produces

<li>#+begin<sub>export</sub>html &lt;div 
class="timestamp"&gt;2019-07-10&lt;/div&gt; <a 
href="blog/test.html">Test</a>#+end<sub>export</sub></li>

On 7/10/19 7:47 PM, Thibault Marin wrote:
> You may need to wrap the html part in a `#+begin_export html' block or
> similar.  I believe the custom sitemap function should generate org
> content, not directly HTML.
>
> Hope it helps.
>
> On 2019-07-10T17:44:01-0400, Thomas Ingram wrote:
>
>    Hello,
>
>    I am using ox-publish to build my website. I have a custom
>    sitemap-formt-entry function that adds post dates and I'm trying to
>    add a div around those dates. Problem is the tags are getting escaped
>    in the resulting HTML. How can I add tags without them being escaped?
>
>    Below is my :sitemap-format-entry function.
>
>    (defun org-sitemap-custom-entry-format (entry style project)
>     (let ((filename (org-publish-find-title entry project)))
>     (if (= (length filename) 0)
>     (format "*%s*" entry)
>     (format "<div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]"
>     (format-time-string "%Y-%m-%d"
>         (org-publish-find-date entry project))
>     entry
>     filename))))
>
>    Thanks for the help!
>
>    Thomas Ingram
>
>
>

Re: Org publish inserting HTML tags into sitemap-format-entry

[Thibault Marin]

Right, sorry I thought that would be easier.

The closest I can get is with a global macro (called `div' in the following):

,----
| (defun org-sitemap-custom-entry-format (entry style project)
|   "Custom sitemap entry formatting: add date"
|   (cond ((not (directory-name-p entry))
|          (format "[[file:%s][(%s) %s]]{{{div(%s)}}}\n"
|                  entry
|                  (format-time-string "%Y-%m-%d"
|                                      (org-publish-find-date entry project))
|                  (org-publish-find-title entry project)
|                  (format-time-string "%Y-%m-%d"
|                                      (org-publish-find-date entry project))))
|         ((eq style 'tree)
|          ;; Return only last subdir.
|          (file-name-nondirectory (directory-file-name entry)))
|         (t entry)))
`----

The macro is global:
,----
| (setq org-export-global-macros
|       '(("div" . "@@html:<div style=\"color:blue;\">$1</div>@@")))
`----

The only(?) problem is that I get a line return between the title and
the date in the sitemap.  I wonder if this can be fixed, maybe by
passing extra options to `org-list-to-generic'.

This may be a starting point.


On 2019-07-10T20:30:42-0400, Thomas Ingram wrote:

  Thanks, but adding `#+begin_export html' simply outputs that as well
  without changing the output

  "#+begin_export html
  <div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]
  #+end_export"

  Produces

  <li>#+begin<sub>export</sub>html &lt;div
  class="timestamp"&gt;2019-07-10&lt;/div&gt; <a
href="blog/test.html">Test</a>#+end<sub>export</sub></li>

  On 7/10/19 7:47 PM, Thibault Marin wrote:
  > You may need to wrap the html part in a `#+begin_export html' block or
  > similar.  I believe the custom sitemap function should generate org
  > content, not directly HTML.
  >
  > Hope it helps.
  >
  > On 2019-07-10T17:44:01-0400, Thomas Ingram wrote:
  >
  >    Hello,
  >
  >    I am using ox-publish to build my website. I have a custom
  >    sitemap-formt-entry function that adds post dates and I'm trying to
  >    add a div around those dates. Problem is the tags are getting escaped
  >    in the resulting HTML. How can I add tags without them being escaped?
  >
  >    Below is my :sitemap-format-entry function.
  >
  >    (defun org-sitemap-custom-entry-format (entry style project)
  >     (let ((filename (org-publish-find-title entry project)))
  >     (if (= (length filename) 0)
  >     (format "*%s*" entry)
  >     (format "<div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]"
  >     (format-time-string "%Y-%m-%d"
  >         (org-publish-find-date entry project))
  >     entry
  >     filename))))
  >
  >    Thanks for the help!
  >
  >    Thomas Ingram
  >
  >
  >

Re: Org publish inserting HTML tags into sitemap-format-entry

[Thomas Ingram]

Thanks, I wouldn't have considered using a macro.

I ended up embracing the line break between the date and title, although 
this
could be removed by adding `display: inline;' CSS rule to the div.

(setq org-export-global-macros
        '(("div" . "@@html:<div class=\"timestamp\">[$1]</div>@@")))

(defun org-sitemap-custom-entry-format (entry style project)
   "Sitemap entry format that includes date."
   (let ((filename (org-publish-find-title entry project)))
     (if (= (length filename) 0)
         (format "*%s*" entry)
       (format "{{{div(%s)}}} [[file:blog/%s][%s]]"
               (format-time-string "%Y-%m-%d"
                   (org-publish-find-date entry project))
               entry
               filename))))

On 7/10/19 9:30 PM, Thibault Marin wrote:
> Right, sorry I thought that would be easier.
>
> The closest I can get is with a global macro (called `div' in the following):
>
> ,----
> | (defun org-sitemap-custom-entry-format (entry style project)
> |   "Custom sitemap entry formatting: add date"
> |   (cond ((not (directory-name-p entry))
> |          (format "[[file:%s][(%s) %s]]{{{div(%s)}}}\n"
> |                  entry
> |                  (format-time-string "%Y-%m-%d"
> |                                      (org-publish-find-date entry project))
> |                  (org-publish-find-title entry project)
> |                  (format-time-string "%Y-%m-%d"
> |                                      (org-publish-find-date entry project))))
> |         ((eq style 'tree)
> |          ;; Return only last subdir.
> |          (file-name-nondirectory (directory-file-name entry)))
> |         (t entry)))
> `----
>
> The macro is global:
> ,----
> | (setq org-export-global-macros
> |       '(("div" . "@@html:<div style=\"color:blue;\">$1</div>@@")))
> `----
>
> The only(?) problem is that I get a line return between the title and
> the date in the sitemap.  I wonder if this can be fixed, maybe by
> passing extra options to `org-list-to-generic'.
>
> This may be a starting point.
>
>
> On 2019-07-10T20:30:42-0400, Thomas Ingram wrote:
>
>    Thanks, but adding `#+begin_export html' simply outputs that as well
>    without changing the output
>
>    "#+begin_export html
>    <div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]
>    #+end_export"
>
>    Produces
>
>    <li>#+begin<sub>export</sub>html &lt;div
>    class="timestamp"&gt;2019-07-10&lt;/div&gt; <a
> href="blog/test.html">Test</a>#+end<sub>export</sub></li>
>
>    On 7/10/19 7:47 PM, Thibault Marin wrote:
>    > You may need to wrap the html part in a `#+begin_export html' block or
>    > similar.  I believe the custom sitemap function should generate org
>    > content, not directly HTML.
>    >
>    > Hope it helps.
>    >
>    > On 2019-07-10T17:44:01-0400, Thomas Ingram wrote:
>    >
>    >    Hello,
>    >
>    >    I am using ox-publish to build my website. I have a custom
>    >    sitemap-formt-entry function that adds post dates and I'm trying to
>    >    add a div around those dates. Problem is the tags are getting escaped
>    >    in the resulting HTML. How can I add tags without them being escaped?
>    >
>    >    Below is my :sitemap-format-entry function.
>    >
>    >    (defun org-sitemap-custom-entry-format (entry style project)
>    >     (let ((filename (org-publish-find-title entry project)))
>    >     (if (= (length filename) 0)
>    >     (format "*%s*" entry)
>    >     (format "<div class=\"timestamp\">%s</div> [[file:blog/%s][%s]]"
>    >     (format-time-string "%Y-%m-%d"
>    >         (org-publish-find-date entry project))
>    >     entry
>    >     filename))))
>    >
>    >    Thanks for the help!
>    >
>    >    Thomas Ingram
>    >
>    >
>    >
>
>