组织模式：使链接在列视图中可点击？

Question

我尝试制作一些 org 文件来在 emacs 中组织我的内容，但我不太明白如何在 列视图。

目前，我的组织文件如下所示：

* Main
:PROPERTIES:
:COLUMNS: %10ITEM %20LINK
:END:
** SUB1
:PROPERTIES:
:LINK: [[foo][bar]]
:END:
** SUB2
:PROPERTIES:
:LINK: [[bar][foo]]
:END:

但是，我在列视图中得到的不是可点击的链接，而是类似的内容：

  ITEM     | LINK         |
* Main     |              |
** SUB1    |[[foo][bar]]  |
** SUB2    |[[bar][foo]]  |

有没有办法使列视图像组织模式中的其他地方一样显示可点击的链接？

Answer 1

组织模式9.6.7

搜索标签xxx，带有链接：

#+BEGIN: columnview :id local :match "xxx" :format "%ITEM(Title) %ID(Link)"
| Title | Link |                  |
|-------+------+------------------|
| Help  | 7EB  | [[id:7EB][Link]] |
#+TBLFM: $3='(format "\[[id:%s][Link]\]" $2)
#+END: columnview

Answer 2

我是否误解了您的问题，或者您的 .emacs.d 中是否有任何特殊的组织模式配置，我使用 emacs -Q 打开您的组织模式文件，以及所有链接是可点击的。

~ » emacs --version                                                                                                                                                                                                                                                       
GNU Emacs 28.0.91

Answer 3

我不知道当时情况是否有所不同，但在最近的 Org 模式版本（我使用的是 9.6）中，这很容易实现。

已经有命令org-columns-open-link，默认情况下绑定到列视图中的Cc Co，用于打开链接。因此，要使所有链接都可单击，只需：

(org-defkey org-columns-map [mouse-1] #'org-columns-open-link)

然而，每当单击非链接（例如更改点）时，都会显示一条用户错误消息。

为了获得更好的用户体验，我们可以自定义 org-columns-modify-value-for-display-function，如下所示：

(defun my-column-display-value-transformer (column-title value)
  "Modifies the value to display in column view."
  (when (and (string-prefix-p "[[" value)
             (string-suffix-p "]]" value))
    (string-match org-link-bracket-re value)
    (let ((target (match-string 1 value))
          (descr (match-string 2 value)))
      (setq value (or descr target))
      ;; put the suitable faces:
      (put-text-property 0 (length value) 'face 'org-link value)
      (put-text-property 0 (length value) 'mouse-face 'highlight value)
      ;; help echo:
      (put-text-property 0 (length value) 'help-echo
                         (format "LINK: %s" target) value)
      ;; put a local keymap:
      (put-text-property 0 (length value) 'keymap
                         '(keymap (mouse-1 . org-columns-open-link)) value)
      value)))

(setq org-columns-modify-value-for-display-function
      #'my-column-display-value-transformer)

可以通过检查 来检查该点的文本属性是否按预期设置>(get-char-property (point) 'org-columns-value) 在列视图中。