Inserting heading level and titile from first non-blank line

[Heime]

I am adding a heading with the following function using 
(outline-insert-heading).
And want ta adapt it for a user to select the heading level. As the title, of 
the heading I want to use the first non-blank line that follows the position of 
the  heading.

(defun kinus ()
  (interactive)
  (outline-insert-heading))



Sent with Proton Mail secure email.