On 2024-10-20 18:35 +05:30, Dr. Volker Zell wrote:
how would you do it with the export-filter mechanism of Org mode... mayb this comes in handy later
For example, as follows. #+title: Org Tables to DataTables #+html_doctype: html5 #+html_head: <script src="https://code.jquery.com/jquery-3.7.1.min.js";></script> #+html_head: <script src="https://cdn.datatables.net/2.1.8/js/dataTables.min.js";></script> #+html_head: <link rel="stylesheet" type="text/css" href="https://cdn.datatables.net/2.1.8/css/dataTables.dataTables.min.css"; /> #+html_head: <script>$(document).ready(function () {$('#example').DataTable();});</script> #+html_head: <script>$(document).ready(function () {$('#another-example').DataTable({lengthMenu: [3, {label: 'All', value: -1}]});});</script> This is an example table. #+attr_html: :id example :class cell-border hover compact :width 100% | Name | Position | Office | |-------------+------------------+---------------| | Tiger Nixon | System Architect | Edinburgh | | Ashton Cox | Technical Author | San Francisco | ------------------------------------------------------------ This is another example table. #+attr_html: :id another-example :class display | Author | Title | Shelf | |-------------------+-------------------------+-------| | Capote, Truman | In cold blood | D3B | | Chandler, Raymond | The high window | D3B | | Dai, Mamang | The legends of Pensam | D3B | | Desai, Kiran | The inheritance of loss | D3B | | Farrell, J. G. | The hill station | C1B | # https://list.orgmode.org/87pprzuc74....@gmx.us/T/#m0d6059de7f7301a19faee0de340d9067276f24cb #+begin_src emacs-lisp :exports results :results none ;; List of lists of the form `(id footer1 footer2 ...)'. (setq my-tfoot-specs '(("example" "Name" "Position" "Office") ("another-example" "Author" "Title" "Shelf"))) (defun my-insert-tfoot (tfoot-spec) "Insert a tfoot as per TFOOT-SPEC in the current buffer." (goto-char (point-min)) (let* ((id (car tfoot-spec)) (footers (cdr tfoot-spec)) (regex (rx (and (literal (format "id=\"%s\"" id)) (*? anychar) "</tbody>")))) (when (re-search-forward regex nil t) (insert "\n<tfoot><tr><th scope=\"col\" class=\"org-left\">" (mapconcat #'identity footers "</th><th scope=\"col\" class=\"org-left\">") "</th></tr></tfoot>")))) (defun my-insert-tfeet (text backend _info) "Insert tfeet for tables in TEXT in HTML export." (when (org-export-derived-backend-p backend 'html) (with-temp-buffer (insert text) (mapc #'my-insert-tfoot my-tfoot-specs) (buffer-string)))) (make-local-variable 'org-export-filter-final-output-functions) (add-to-list 'org-export-filter-final-output-functions #'my-insert-tfeet) #+end_src
