Make new buffers into new frames

[Heime <heimeborgia@protonmail.com>]

I want to display the user named buffer when calling buffer-into-frame into 
a new frame. The buffer will have a button, which when pressed another buffer 
will be made to display my-message, which is some text.

I also want my-message to be displayed in a buffer and in the same new frame. 

(defun display-message (my-message &optional bfrn)
  "Display textual message into the buffer BFRN."

  (let* ( (bfname (or bfrn "Info"))
          (dbuffer (get-buffer-create (concat "𒆳 " bfname))) )

    (with-current-buffer dbuffer
      (erase-buffer)
      (insert my-message)
      (goto-char (point-min)))

    (display-buffer dbuffer)))

;; -------------------------------------------------------

(defun buffer-into-frame (&optional bfrn)
  "TODO"

  (interactive
    (list (let ( (rqmatch nil)
                 (cseq '("Default" "Torium")) )
            (completing-read " Display Name: " cseq nil rqmatch "Selection Buffer"))))

  (let* ( (bfname (or bfrn "S_election Buffer"))
          (dbuffer (get-buffer-create (concat "𒆳 " bfname))) )

    (with-current-buffer dbuffer
      (erase-buffer)

      ;; Insert a button that shows the info when pressed
      (insert-button " - "
        'action (display-message my-message "Info Buffer")
        'follow-link t)

      (insert " Running Non-Interactive Commands"))) )