如何在組織模式議程中插入空行？

Question

我正在使用組織模式來組織任務。 我使用標准優先級。

是否可以在標准議程視圖中插入空行？ 我每天有很多任務，通常按優先級排序。 #A顯示在頂部，＃B顯示在中間，＃C顯示在底部。

我想在每個優先級類之后有一個空行作為分隔符（在所有#A任務之后為空行，在所有#B任務之后為空行，在#C任務之后為空行）。 這將使我的議程更具可讀性。

我確實找到了有關如何在塊后插入分隔符的幫助，但我沒有使用塊。

謝謝！

Answer 1

這是注釋中提供的@lawlist代碼的有效解決方案。 它將根據優先級在視覺上划定當天的任務

  (defun my-custom-agenda-fn ()
    (save-excursion
     (let ((delimit "------------------------"))
      (org-agenda-goto-today)
      (dolist
          (priority '("\\[#A\\]" "\\[#B\\]" "\\[#C\\]" "\\[#D\\]" "\\[#E\\]"))
        (when (re-search-forward priority nil t)
          (goto-char (point-at-bol)) (insert (concat delimit "\n"))))
      (org-agenda-goto-today)
      (when (re-search-forward delimit nil t)
        (delete-region
         (progn (forward-visible-line 0) (point))
         (progn (forward-visible-line 1) (point))))
      ))
   )

(add-hook 'org-agenda-finalize-hook 'my-custom-agenda-fn)