From b51aa15c6399c058d82c6af5c3a5886622cab371 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Fri, 3 Feb 2023 20:00:46 +0100
Subject: Transfer Trezord Packages to a Service

---
 aisaka.org               | 37 +++++++++++++++++++++++++++++++++----
 system-configuration.scm | 17 ++++++++++++++---
 2 files changed, 47 insertions(+), 7 deletions(-)

diff --git a/aisaka.org b/aisaka.org
index 21e8b3b..511c4a2 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -50,11 +50,10 @@ https://guix.gnu.org/en/manual/devel/en/html_node/System-Configuration.html
       <<to-package+output>>
       '("netcat-openbsd"
         "nss-certs"
-        "ntfs-3g"
-        "trezord"
-        "trezord-udev-rules"))
+        "ntfs-3g"))
      %base-packages))
    (services (cons* ssh-service
+                    <<trezor-system-packages>>
                     (service cups-service-type
                              (cups-configuration (extensions `(,cups-filters
                                                                ,epson-inkjet-printer-escpr))
@@ -63,7 +62,7 @@ https://guix.gnu.org/en/manual/devel/en/html_node/System-Configuration.html
                     (service tor-service-type
                              (tor-configuration (config-file (local-file "torrc"))
                                                 (control-socket? #t)))
-                    (udev-rules-service 'trezord trezord-udev-rules)
+                    <<trezor-udev-rules>>
                     (modify-services %desktop-services
                                      (elogind-service-type
                                       configuration =>
@@ -343,7 +342,37 @@ memory without overprovisioning, as well as to prolog the lifetime of SSD.
 #+end_src
 
 * TODO Device Management
+
+https://www.linuxfromscratch.org/lfs/view/11.1/chapter09/symlinks.html
+
 ** TODO Trezor
+
+https://trezor.io/trezor-model-t
+
+*** TODO Trezor System Packages
+
+#+begin_src scheme :noweb-ref trezor-system-packages
+  (service
+   (service-type
+    (name 'trezor-system-packages)
+    (extensions
+     (list
+      (service-extension profile-service-type
+                         (lambda (_)
+                           (map specification->package
+                                (list
+                                 "trezord"
+                                 "trezord-udev-rules"))))))
+    (description "TrezorD packages needed by the system.")
+    (default-value #f)))
+#+end_src
+
+*** TODO Trezor Udev Services
+
+#+begin_src scheme :noweb-ref trezor-udev-rules
+  (udev-rules-service 'trezord trezord-udev-rules)
+#+end_src
+
 * TODO Helpers
 ** TODO String to Package
 
diff --git a/system-configuration.scm b/system-configuration.scm
index eb0d170..25606c8 100644
--- a/system-configuration.scm
+++ b/system-configuration.scm
@@ -37,11 +37,22 @@
              specification->package+output)
     '("netcat-openbsd"
       "nss-certs"
-      "ntfs-3g"
-      "trezord"
-      "trezord-udev-rules"))
+      "ntfs-3g"))
    %base-packages))
  (services (cons* ssh-service
+                  (service
+                   (service-type
+                    (name 'trezor-system-packages)
+                    (extensions
+                     (list
+                      (service-extension profile-service-type
+                                         (lambda (_)
+                                           (map specification->package
+                                                (list
+                                                 "trezord"
+                                                 "trezord-udev-rules"))))))
+                    (description "TrezorD packages needed by the system.")
+                    (default-value #f)))
                   (service cups-service-type
                            (cups-configuration (extensions `(,cups-filters
                                                              ,epson-inkjet-printer-escpr))
-- 
cgit v1.2.3