[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Thomas Ingram
Subject: Re: [O] Org publish inserting HTML tags into sitemap-format-entry
Date: Fri, 12 Jul 2019 11:08:10 -0400
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.7.2

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))

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]]


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

   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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]