[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] How to change the export semantics of the property-drawer?
From: |
Eduardo Bellani |
Subject: |
[O] How to change the export semantics of the property-drawer? |
Date: |
Fri, 15 Sep 2017 14:54:42 -0300 |
User-agent: |
mu4e 0.9.17; emacs 26.0.50 |
Hello list.
I am trying to export the property-drawer as a description list on an
html derived backend, but I'm afraid I got stuck after some effort in
it.
Basically, I wanted this:
,----
| * Some
| :PROPERTIES:
| :CUSTOM_ID: 123
| :END:
`----
To be exported *as if* it was this
,----
| * Some
| - custom_id :: 123
`----
The problem I am facing is, how to resolve links in properties? The
example below illustrates the maximum point I've reached in my efforts
If someone can point me to a path, I'll be happy to follow it.
Thanks.
,----
| #+options: prop:t
|
| * some
| :PROPERTIES:
| :CUSTOM_ID: qwe123
| :END:
|
| * another
| :PROPERTIES:
| :link: [[#qwe123]]
| :END:
|
|
|
| #+BEGIN_SRC emacs-lisp
| (defun fee-html-property-drawer (property-drawer contents info)
| "Transcode a property-drawer into a descriptive list."
| (let* ((drawer-properties
| (with-temp-buffer
| (org-mode)
| (insert (format "* H\n%s" (org-element-interpret-data
property-drawer)))
| (goto-char (point-min))
| (org-element--get-node-properties)))
| (dlist))
| (--> drawer-properties
| (ht<-plist it)
| (ht-map (-lambda (key value)
| (format "- %s :: %s"
| (string-trim (symbol-name key) ":") value))
| it)
| (string-join it "\n")
| (org-export-string-as it
| 'html
| t
| info))))
|
| (org-export-define-derived-backend 'fee-html 'html
| :translate-alist '((property-drawer . fee-html-property-drawer)))
| #+END_SRC
|
`----
signature.asc
Description: PGP signature
- [O] How to change the export semantics of the property-drawer?,
Eduardo Bellani <=