Making frames match original frame or current window size

This makes a new frame of the same size of the original.
I also want to have the option for the new frame to have
the size of the current window.  How can I do this?


(defun galaxiakos-du (frm-name bfr-name &rest implfds)
  "Call multiple implanted functions passed as arguments.
This allows dynamic insertion within the buffer.

FRM-NAME   Name for the frame.
BFR-NAME   Name for the buffer.
IMPLFDS    Implanted feed functions."
 =20
  (interactive)

  (let* ( (frame-inherited-parameters '(width height))
=09  (frm    (make-frame galaxiakos-frame-prmt))
          (bfr    (get-buffer-create bfr-name))
          (scale  text-scale-mode-amount) )

    ;; Change frame parameter for name
    (set-frame-parameter frm 'name frm-name)

    ;; Iterate and call each function passed as argument
    (select-frame frm)

    (with-current-buffer bfr
      (dolist (implfd implfds)
        (funcall implfd))
      (goto-char (point-min)))

    ;; Display the buffer in the selected frame
    (switch-to-buffer bfr)

    ;; Enable `text-scale-mode' and set the scaling level to the value
    ;; at the start of the function execution.
    (text-scale-set scale) ))