From b00f00b4493d369f6ce56075f1de77d65aca4fdd Mon Sep 17 00:00:00 2001
From: Vasilij Schneidermann <mail@vasilij.de>
Date: Thu, 3 Sep 2020 10:47:04 +0200
Subject: [PATCH] Use org-insert-heading to add new heading

---
 lisp/org-datetree.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-datetree.el b/lisp/org-datetree.el
index ce91591f1..33e7c9304 100644
--- a/lisp/org-datetree.el
+++ b/lisp/org-datetree.el
@@ -185,8 +185,9 @@ inserted into the buffer."
 
 (defun org-datetree-insert-line (year &optional month day text)
   (delete-region (save-excursion (skip-chars-backward " \t\n") (point)) (point))
-  (insert "\n" (make-string org-datetree-base-level ?*) " \n")
-  (backward-char)
+  (org-insert-heading)
+  (while (> (org-current-level) 1)
+    (org-do-promote))
   (when month (org-do-demote))
   (when day (org-do-demote))
   (if text
-- 
2.28.0