packages: package-management: Add current-system-guix procedure

2024-09-22 16:22:42 -03:00 · 2024-09-22 16:22:42 -03:00 · 047ef31382
parent 8091b190aa
commit 047ef31382
1 changed files with 16 additions and 0 deletions
--- a/radix/packages/package-management.scm
+++ b/radix/packages/package-management.scm
@ -0,0 +1,16 @@
+(define-module (radix packages package-management)
+  #:use-module (gnu packages package-management)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix gexp)
+  #:use-module (guix packages))
+
+(define-public (current-system-guix)
+  (let* ((current-system-guix
+          (readlink "/run/current-system/profile/bin/guix"))
+         (current-guix-profile
+          (dirname (dirname current-system-guix))))
+    (package/inherit guix
+     (build-system trivial-build-system)
+     (arguments (list #:builder
+                      #~(symlink #$current-guix-profile
+                                 #$output))))))