Re: Some hacks on top of org-publish

[Nikolaos Chatzikonstantinou <nchatz314@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1317 bytes --]

On Wed, Dec 25, 2024 at 8:47 AM Ihor Radchenko <yantar92@posteo.net> wrote:
>
> Nikolaos Chatzikonstantinou <nchatz314@gmail.com> writes:
>
> > Finally a highlight of the hacks I had to pull off: apparently
> > #+INCLUDE: will strip away inline backend information such as
> > @@html:<b>@@. I figured out that if I write something like
> > @@html@@a:@@:<b>@@, only the inner @@a:@@ is recognized and stripped,
> > which leaves me with what I originally wanted! (see
> > <https://github.com/createyourpersonalaccount/blog-v2/blob/main/content/publish.el#L14-L20>)
>
> May you show more concrete example?
> #+INCLUDE by itself does not remove export snippets.

It must not be #+INCLUDE then, but sitemap.org generation itself, I
misremembered when I wrote the e-mail. Here's a reproducer, see
attachment. Have this index.org file in its own directory and publish
it. Then view public/sitemap.html. You will see that the @@BACKEND:@@
stuff has been stripped away in the first sitemap entry instance,
while in the second it is there. When inspecting the generated
sitemap.org you will see the following line:

  - Without italics: [[file:./index.org][index]], 2024-12-26 -- With
italics: [[file:./index.org][index]],
@@html:<i>@@2024-12-26@@html:</i>@@

Regards,
Nikolaos Chatzikonstantinou

[-- Attachment #2: index.org --]
[-- Type: text/org, Size: 874 bytes --]

* Hello world

This is a test.

#+begin_comment
Local Variables:
org-publish-project-alist:
  (("test-project"
    :components ("test-component"))
   ("test-component"
    :auto-sitemap t
    :base-directory "."
    :base-extension "org"
    :publishing-function org-html-publish-to-html
    :publishing-directory "public"
    :sitemap-format-entry
    (lambda (entry sitemap-style project)
      (let* ((title (org-publish-find-title entry project))
             (date (org-publish-find-date entry project))
             (date-s (format-time-string "%Y-%m-%d" date)))
        (format (concat "Without italics: [[./%s][%s]], @@html:<i>@@%s@@html:</i>@@"
                        " -- "
                        "With italics: [[./%s][%s]], @@html@@a:@@:<i>@@%s@@html@@a:@@:</i>@@")
                entry title date-s
                entry title date-s)))))
End:
#+end_comment