;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Copyright © 2022 Hilton Chain <hako@ultrarare.space>

(define-module (rosenthal packages busybox)
  ;; Utilities
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix utils)
  ;; Guix packages
  #:use-module (gnu packages busybox))

(define-public busybox/static
  (let ((base busybox))
    (package
      (inherit base)
      (name "busybox-static")
      (arguments
       (substitute-keyword-arguments arguments
         ((#:phases phases)
          #~(modify-phases #$phases
              (add-after 'configure 'static-build
                (lambda _
                  (substitute* ".config"
                    (("# CONFIG_STATIC is not set")
                     "CONFIG_STATIC=y"))))
              ;; FIXME: All mdev tests fail when building staticly.
              (add-before 'check 'disable-failing-tests
                (lambda _
                  (delete-file "testsuite/mdev.tests")))))))
      (properties
       `(,@(package-properties base)
         (disable-updater? . #t))))))
