1

我想在 org-babel 源代码块的注释上有一些超链接。我的目标是将文件导出为 html 并能够跟踪一些引用，如下面的最小示例所示：

#+BEGIN_SRC lisp
(princ "Hello World!") ;; [[stackoverflow.com/blabla1234][Got this from SO.]]
#+END_SRC

“问题”是链接没有嵌入到源代码块中（这实际上很有意义）。

有没有办法覆盖这种行为，或者在 src 块中插入超链接的替代语法？

4

1 回答 1

1

现在可能不可能（从 org-mode 8.3.4 开始）。HTML 导出引擎目前似乎没有转义受保护字符的机制。您应该提交实施它或提交功能请求！（详情）

一些解决方法：

使用原始 HTML 模拟输出

您可以输出看起来像源代码块的原始 HTML，并且它将呈现完整的链接：

#+BEGIN_HTML
<pre class="src src-sh">
(princ "Hello World!") ;; <a href="stackoverflow.com/blabla1234">Got this from SO.</a>
</pre>
#+END_HTML

防止替换 如果您的代码没有大于和小于符号，您可以防止它们被替换为

(setq org-html-protect-char-alist '(("&" . "&amp;"))

或者如果这不起作用：

(setq htmlize-basic-character-table
  ;; Map characters in the 0-127 range to either one-character strings
  ;; or to numeric entities.
  (let ((table (make-vector 128 ?\0)))
    ;; Map characters in the 32-126 range to themselves, others to
    ;; &#CODE entities;
    (dotimes (i 128)
      (setf (aref table i) (if (and (>= i 32) (<= i 126))
                   (char-to-string i)
                 (format "&#%d;" i))))
    ;; Set exceptions manually.
    (setf
     ;; Don't escape newline, carriage return, and TAB.
     (aref table ?\n) "\n"
     (aref table ?\r) "\r"
     (aref table ?\t) "\t"
     ;; Escape &, <, and >.
     (aref table ?&) "&amp;"
     ;;(aref table ?<) "&lt;"
     ;;(aref table ?>) "&gt;"
     ;; Not escaping '"' buys us a measurable speedup.  It's only
     ;; necessary to quote it for strings used in attribute values,
     ;; which htmlize doesn't typically do.
     ;(aref table ?\") "&quot;"
     )
    table))

请注意，两者都是黑客，它们本身根本不会转义 HTML 标记分隔符。如果语法突出显示适用于任何字符，它将通过插入<span>'s 来破坏生成的 HTML 链接。

于 2016-05-24T04:15:24.850 回答