заставить org-blank-before-new-entry различать список TODO и текстовую схему?

Как и многие из нас, я использую org-mode для двух разных вещей:

1. Как менеджер списка TODO
2. Как текстовый планировщик

Я бы хотел, чтобы мои пустые строки работали по-разному в зависимости от контекста.

1. Список TODO: нет пустых строк
2. набросок текста: автоматически вставлять 1 пустую строку, если заголовок текста не предшествует заголовку

Другими словами, когда я делаю список TODO, когда у меня много заголовков подряд, я не хочу, чтобы между ними возникали случайные разрывы строк.

Режим списка TODO, без разрывов строк:

* Organize Party [33%]
 ** TODO Call people [1/2]
 *** TODO Peter
 *** DONE Sarah
 ** TODO Buy food
 ** DONE Talk to neighbor 

Тем не менее, когда я пишу текст, я хочу разрывы строк для визуального пробела / простоты чтения.

режим контура, пустая строка перед заголовком:

* Heading 
This is a document that has a heading, and a body. The body will consist of two paragraphs with sub-headings.

* Body  
This is an introduction to the body. The body has two sub-headings, each of which have their own paragraph.  

** The First Paragraph  
This is the first of two paragraphs. 

** The Second Paragraph
This is the second of two paragraphs.  

Я уже установил для org-blank-before-new-entry значение auto:

 ((heading . auto)
 (plain-list-item . auto))

Но я думаю, что org-blank-before-new-entry работает, обнаруживая другие пустые строки в этой области. Я хочу, чтобы он обнаружил, является ли предыдущая строка текста заголовком или не заголовком.

Как я могу изменить org-blank-before-new-entry, чтобы при org-meta-returnдобавлении разрыва строки в списке TODO, состоящем только из заголовков ? но после блока текста это делает?

Это можно сделать, создав пользовательскую функцию, которая проверяет, находится ли она в заголовке организации.

(setq org-blank-before-new-entry
      '((heading . always)
       (plain-list-item . nil)))

(defun call-rebinding-org-blank-behaviour (fn)
  (let ((org-blank-before-new-entry
         (copy-tree org-blank-before-new-entry)))
    (when (org-at-heading-p)
      (rplacd (assoc 'heading org-blank-before-new-entry) nil))
    (call-interactively fn)))

(defun smart-org-meta-return-dwim ()
  (interactive)
  (call-rebinding-org-blank-behaviour 'org-meta-return))

(defun smart-org-insert-todo-heading-dwim ()
  (interactive)
  (call-rebinding-org-blank-behaviour 'org-insert-todo-heading))

(define-key org-mode-map (kbd "M-<return>") 'smart-org-meta-return-dwim)