Re: How can I export a table to HTML with header and footers

[Raghavendra Nyshadham]

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.fsf@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