emacs - 在 org-babel 的结果 block 中启用字体粗细和颜色

Question

有没有办法在 org-babel 的 #+RESULTS block 中启用字体粗细和颜色？

例如，使用 --color 选项调用 ls 会在 shell 中呈现预期的字体粗细和颜色，但在 #+结果 block :

#+BEGIN_SRC shell
ls --color ~/
#+END_SRC

#+RESULTS:
| Applications      |
| Desktop           |
| Documents         |
| Downloads         |
| Library           |
...

Screenshot of ls with and without --color in the terminal

另一个例子是node模块chalk，它以明文形式出现在#+RESULTS block 中:

#+BEGIN_SRC js
const chalk = require('chalk');

console.log(chalk.red('Hello world!'));
#+END_SRC

#+RESULTS:
: Hello world!
: undefined

Screenshot of chalk in the terminal

Answer 1

这是我想出的。当光标位于代码块(而不是结果 block )上时运行它，将其用作交互式函数。您需要安装 xterm-color 包。

(defun org-babel-color-results()
  "Color org babel results.
Use the :wrap header argument on your code block for best results.
Without it, org may color overtop with whatever default coloring it
uses for literal examples.
Depends on the xterm-color package."
  (interactive)
  (when-let ((result-start (org-babel-where-is-src-block-result nil nil)))
    (save-excursion
      (goto-char result-start)
      (when (looking-at org-babel-result-regexp)
        (let ((element (org-element-at-point)))
          (pcase (org-element-type element)
            (`fixed-width
             (let ((post-affiliated (org-element-property :post-affiliated element))
                   (end (org-element-property :end element))
                   (contents (org-element-property :value element))
                   (post-blank (org-element-property :post-blank element)))
               (goto-char post-affiliated)
               (delete-region post-affiliated end)
               (insert (xterm-color-filter contents))
               (org-babel-examplify-region post-affiliated (point))
               (insert (make-string post-blank ?\n ))
               ))
            ((or `center-block `quote-block `verse-block `special-block)
             (let ((contents-begin (org-element-property :contents-begin element))
                   (contents-end (org-element-property :contents-end element)))
               (goto-char contents-begin)
               (let ((contents (buffer-substring contents-begin contents-end)))
                 (delete-region contents-begin contents-end)
                 (insert (xterm-color-filter contents)))))))))))

或者添加一个钩子(Hook)

(add-hook 'org-babel-after-execute-hook 'org-babel-color-results)

This link是我的灵感。

我还没有弄清楚的一件事是，虽然当您不在代码块上使用 :wrap 参数时它会为文本着色，但 Org Literal Examples 的着色: 似乎覆盖了它。但是，您可以看到应用了颜色，只需删除 : 预期有颜色的行即可。