emacs-添加org-ql-view为org-mode link

[2024-04-07 周日 10:13]

在使用org-ql的时候，我发现官方说明里推荐的形如

[[org-ql-search:todo:NEXT priority:A]]
[[org-ql-search:(and (todo "NEXT") (priority "A"))]]

的链接，实际体验存在一定的问题：

1. 如果通过官方推荐的 org-store-link 方法，在Windows上会因为汉字的编码造成无法匹配汉字标签；
   
2. 重启emacs之后也无法直接点击链接启动，会提示“No Match”（仅在未启动过org-ql时出现此问题）
   

所以可以保存常用的org-ql-view搜索，然后添加以下代码，通过形如 [[qlview: 个人事项] 的org-link快速启动org-ql-view指定结果

(org-add-link-type
 "qlview" 'my/org-ql-view)
(defun my/org-ql-view (name)
  "View saved org-ql-view"
  (org-ql-view name))

(org-add-link-type
 "qlsearch" 'my/org-ql-search)
(defun my/org-ql-search (query)
  "Search query in default mode"
  (org-ql-search (org-agenda-files) query :narrow nil :super-groups '((:auto-tags)) :sort nil))