(define-module (home-packages firmware)
               #:use-module (guix packages)
               #:use-module (guix utils)
               #:use-module (gnu packages)
               #:use-module (gnu packages package-management)
               #:use-module (gnu packages build-tools)
               #:use-module (gnu packages virtualization)
               #:use-module (gnu packages firmware)
               #:use-module (guix gexp))

(define-public ovmf-new
  (package
    (inherit ovmf)
    (name "ovmf-new")
    (arguments
     (substitute-keyword-arguments (package-arguments ovmf)
       ((#:phases phases)
        #~(modify-phases #$phases
            (replace 'install
               (lambda _
                 (let ((fmw (string-append #$output "/share/firmware")))
                    (mkdir-p fmw)
                    (copy-recursively "Build/OvmfX64/RELEASE_GCC49/FV" fmw)
                    (copy-file "Build/OvmfX64/RELEASE_GCC49/FV/OVMF.fd" (string-append fmw "/OVMF_CODE.fd"))
                   )))
        ))))))