From 7255cc1077bcc7146c73b5c555aeb0a3bbc556e9 Mon Sep 17 00:00:00 2001
From: Adrien Bourmault <neox@a-lec.org>
Date: Mon, 2 Dec 2024 21:55:55 +0100
Subject: [PATCH] update 2/12/2024

---
 config.scm | 83 ++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 81 insertions(+), 2 deletions(-)

diff --git a/config.scm b/config.scm
index 8e02101..d2f982e 100644
--- a/config.scm
+++ b/config.scm
@@ -68,6 +68,79 @@
     (list (service-extension shepherd-root-service-type
             (compose list fancontrol-shepherd-service))))))
 
+;; Outils GNU Boot
+(define gnuboot-version "0.1-rc4")
+(define gnuboot-source
+  (origin
+   (method url-fetch)
+   (uri (string-append "mirror://gnu/gnuboot/gnuboot-" gnuboot-version
+                       "/gnuboot-" gnuboot-version "_src.tar.xz"))
+   (sha256
+    (base32
+     "0nc0qjbrnxvs20g36irj11prmrmyk8d8f256xiyxcarnxc0sigfw"))))
+
+(define
+  (make-gnuboot-utils-package
+   name
+   source
+   version
+   synopsis
+   description)
+  (package
+   (name name)
+   (version version)
+   (source source)
+   (build-system gnu-build-system)
+   (arguments
+    (list
+     #:tests? #f
+     #:make-flags
+     #~(list
+        (string-append "CC=" #$(cc-for-target))
+        (string-append "DESTDIR=" #$output)
+        "INSTALL=install"
+        "PREFIX=/")
+     #:phases
+     #~(modify-phases
+        %standard-phases
+        (delete 'configure)
+        (add-after
+         'unpack 'enter-source
+         (lambda _
+           (chdir (string-append "coreboot/default/util/" #$name)))))))
+   (synopsis synopsis)
+   (description description)
+   (home-page "https://www.gnu.org/software/gnuboot")
+   (license license:gpl2)))
+
+(define cbfstool
+  (make-gnuboot-utils-package
+   "cbfstool"
+   gnuboot-source
+   gnuboot-version
+   "Tool to manipulate Coreboot image files"
+   "This package provides @command{cbfstool}, a program that can
+add a wide variety of files (bootblock, stage, payload, configuration
+files, etc) to Coreboot File System (CBFS) images.  It supports
+original CBFS images as well as images in the newer FMAP format.  It
+also supports compressing files when requested."))
+
+(define ifdtool
+  (make-gnuboot-utils-package
+   "ifdtool"
+   gnuboot-source
+   gnuboot-version
+   ""
+   ""))
+
+(define nvramtool
+  (make-gnuboot-utils-package
+   "nvramtool"
+   gnuboot-source
+   gnuboot-version
+   ""
+   ""))
+
 ;; Configuration sudoer personnalisée
 (define %sudoers-specification
   (plain-file "sudoers" "\
@@ -154,7 +227,7 @@ fi"))
                 ("GCC_COLORS" . "'error=01;31:warning=01;35:note=01;36:caret=01;32:locus=01:quote=01'")
                 ("GUIX_PACKAGE_PATH" . "$HOME/.config/guix/packages/defs")
                 ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share:/var/lib/flatpak/exports/share")
-                ("LV2_PATH" . "$HOME/.guix-profile/lib/lv2")))
+                ("LV2_PATH" . "/run/current-system/profile/lib/lv2")))
             (aliases 
               '(
                 ("clear" . "printf '\\033c'")
@@ -245,6 +318,7 @@ fi"))
           "binutils"
           "blueman"
           "cabextract"
+          "calf"
           "cdrdao"
           "claws-mail"
           "cmatrix"
@@ -270,6 +344,7 @@ fi"))
           "gallery-dl"
           "gdb"
           "freehdl"
+          "ghex"
           "ghostscript"
           "ghostwriter"
           "gimp"
@@ -396,6 +471,8 @@ fi"))
           "thin-provisioning-tools"
           "tig"
           "tilix"
+          "tor"
+          "torbrowser"
           "transmission"
           "tree"
           "eudev"
@@ -458,7 +535,9 @@ fi"))
                (x11-forwarding? #t)
                (password-authentication? #f)
                (permit-root-login 'prohibit-password)))
-          
+          ;; Service Tor
+          (service tor-service-type)
+       
           ;; Service d'impression
           (service cups-service-type
             (cups-configuration