1

从 org-mode 导出的默认 HTML 表格具有以下样式：

<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<thead>
<tr>
<th scope="col">ID</th>
<th scope="col">First Name</th>
<th scope="col">Last Name</th>
</tr>
</thead>
<tbody>
<tr>
<td>1</td>
<td>Tom</td>
<td>Cruise</td>
</tr>

<tr>
<td>2</td>
<td>Arnold</td>
<td>Schwarzenegger</td>
</tr>

<tr>
<td>3</td>
<td>Sylvester</td>
<td>Stallone</td>
</tr>
</tbody>
</table>

有什么办法可以让它更紧凑，像这样：

<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<thead>
<tr>
<th scope="col">ID</th>
<th scope="col">First Name</th>
<th scope="col">Last Name</th>
</tr>
</thead>
<tbody>
<tr><td>1</td><td>Tom</td><td>Cruise</td></tr>
<tr><td>2</td><td>Arnold</td><td>Schwarzenegger</td></tr>
<tr><td>3</td><td>Sylvester</td><td>Stallone</td></tr>
</tbody>
</table>

由于我有一个非常大的表格，所以通过 org-mode 导出的 html 文件一直太长到底部。

4

2 回答 2

1

html 缓冲区上的一个简单的正则表达式替换就可以完成这项工作：

(defun compactify-html-table ()
  (interactive)
  (goto-char (point-min))
  (while (re-search-forward "<\\(/?t[rd]\\)>\n<\\(/?t[rd]\\)>" nil t)
    (replace-match "<\\1><\\2>"))
  (goto-char (point-min))
  (while (re-search-forward "\n\n" nil t)
    (replace-match "\n")))

UPD：如何应用于所有打开的 html 缓冲区：

(defun compactify-all-html-buffers ()
  (interactive)
  (mapc
   (lambda(b)
     (with-current-buffer b
       (when (eq major-mode 'html-mode)
         (compactify-html-table))))
   (buffer-list)))
于 2013-11-01T13:18:01.933 回答
1

另一个解决方案是整理 HTML 输出。使用不同的参数，您可以获得更紧凑（当然，更一致）的演示文稿。

于 2013-11-04T10:04:31.810 回答