Как добавить метки scheduled и deadline на разные строки?

(defconst planning-info-regex "\s+\\<\\(DEADLINE\\|SCHEDULED\\)\\>")

(defun advance-planning-info (&optional boundary)
  (re-search-forward planning-info-regex boundary t))

(defun beginning-of-line-text? ()
  (save-excursion
    (or (= (point) (line-beginning-position))
        (let ((pos (point)))
          (beginning-of-line-text)
          (= pos (point))))))

(defun add-planning-info-separate-line (what &rest _args)
  (when (memq what '(scheduled deadline))
    (save-excursion
      (let ((boundary (save-excursion
                        (outline-next-heading)
                        (point))))
        (org-back-to-heading t)
        (when (and (advance-planning-info boundary)
                   (advance-planning-info boundary))
          (goto-char (match-beginning 1))
          (unless (beginning-of-line-text?)
            (newline-and-indent)))))))

(advice-add 'org-add-planning-info :after
            #'add-planning-info-separate-line)