kernel attempt #1 of who knows

2025-07-16 17:09:10 -05:00
parent ab1aefea22
commit 442f71994c
1 changed files with 86 additions and 0 deletions
--- a/gchannel/packages/mac-compat-kernel.scm
+++ b/gchannel/packages/mac-compat-kernel.scm
@@ -0,0 +1,86 @@
+;;; Filename: mbp-kernel.scm
+
+(define-module (mbp-kernel)
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
+  #:use-module (guix gexp)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix utils)
+  #:use-module (gnu packages linux)
+  #:use-module (srfi srfi-1)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (nongnu packages linux))
+
+(define-public linux-t2-patches
+  (package
+    (name "linux-t2-patches")
+    (version "6.12")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/t2linux/linux-t2-patches.git")
+                    (commit "54606b8797c539da9782dcbb16456fdf92d74f12")))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32 "1ig7373xl5vqfpblh0sh4z8vgks4hq761j58lyns5cw2n648xl61"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; Disable the 'check' phase
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'configure (lambda _ #t))
+         (replace 'build (lambda _ #t))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (mkdir-p out)
+               (copy-recursively "." out))
+             #t)))))
+
+    (synopsis "Patch set for running Linux on T2-based Macs")
+    (description "This package provides a set of patches from the t2linux project
+to enable support for the Apple T2 security chip and related hardware.")
+    (home-page "https://github.com/t2linux/linux-t2-patches")
+    (license license:gpl2+)))
+
+(define (mbp-t2-extra-options)
+  '(("CONFIG_SPI_APPLE"        . y)
+    ("CONFIG_APPLE_BCE"        . y)
+    ("CONFIG_APPLE_DCP"        . y)
+    ("CONFIG_PINCTRL_APPLE_GPIO" . y)))
+
+(define-public linux-kernel-mbp-t2
+  (package
+    (inherit linux-6.12)
+    (name "linux-kernel-mbp-t2")
+    (synopsis "Linux kernel for Macs with the T2 chip")
+    (description "This package provides a Linux kernel with patches applied to support hardware found in Apple T2-based MacBooks.")
+    (license license:gpl2+)
+
+    (native-inputs
+     (append (package-native-inputs linux-6.12)
+             `(("t2-patches" ,linux-t2-patches))))
+
+    (arguments
+     (substitute-keyword-arguments (package-arguments linux-6.12)
+       ((#:native-inputs native-inputs)
+        #~(cons* (list "t2-patches" ,linux-t2-patches)
+                 #$native-inputs))
+       ((#:phases phases)
+        #~(modify-phases #$phases
+            (add-after 'unpack 'apply-t2-patches
+  (lambda* (#:key inputs #:allow-other-keys)
+    (use-modules (guix build utils))
+    (let ((patch-dir (assoc-ref inputs "t2-patches")))
+      (let ((patch-files (find-files patch-dir "\\.patch$")))
+        (format #t "Applying ~a T2 patches...~%" (length patch-files))
+        (for-each
+         (lambda (patch)
+           (invoke "patch" "-p1" "-i" patch))
+         (sort patch-files string<))
+        #t))))))
+       ((#:kernel-config config)
+        #~(kernel-config-union #$config
+           (kernel-config #:configs (mbp-t2-extra-options))))))))
+           
+linux-kernel-mbp-t2