From bd7bf713290f0ab6c26ad34b7af714ff7f4b885f Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Fri, 3 Feb 2023 22:21:38 +0100
Subject: Transfer Trezor Agent Package to a Service

---
 aisaka.org             | 19 ++++++++++++++++++-
 home-configuration.scm | 13 ++++++++++++-
 2 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/aisaka.org b/aisaka.org
index 167cefc..d3606c4 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -198,13 +198,13 @@ https://guix.gnu.org/en/manual/devel/en/html_node/Home-Configuration.html
        "seahorse"
        "sicp"
        "strace"
-       "trezor-agent"
        "unzip"
        "zip")))
    (services
     (list
      <<flashrom-package>>
      ssh-configuration
+     <<trezor-user-packages>>
      (service home-bash-service-type
               (home-bash-configuration
                (environment-variables '(("EDITOR" . "emacs -nw")
@@ -367,6 +367,23 @@ https://trezor.io/trezor-model-t
     (default-value #f)))
 #+end_src
 
+*** TODO Trezor User Packages
+
+#+begin_src scheme :noweb-ref trezor-user-packages
+  (service
+   (service-type
+    (name 'trezor-user-packages)
+    (extensions
+     (list
+      (service-extension home-profile-service-type
+                         (lambda (_)
+                           (map specification->package
+                                (list
+                                 "trezor-agent"))))))
+    (description "Trezor packages for the user.")
+    (default-value #f)))
+#+end_src
+
 *** TODO Trezor Udev Services
 
 #+begin_src scheme :noweb-ref trezor-udev-rules
diff --git a/home-configuration.scm b/home-configuration.scm
index 02a3713..98bbbc0 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -107,7 +107,6 @@
      "seahorse"
      "sicp"
      "strace"
-     "trezor-agent"
      "unzip"
      "zip")))
  (services
@@ -123,6 +122,18 @@
      (description "Flashrom installation.")
      (default-value #f)))
    ssh-configuration
+   (service
+    (service-type
+     (name 'trezor-user-packages)
+     (extensions
+      (list
+       (service-extension home-profile-service-type
+                          (lambda (_)
+                            (map specification->package
+                                 (list
+                                  "trezor-agent"))))))
+     (description "Trezor packages for the user.")
+     (default-value #f)))
    (service home-bash-service-type
             (home-bash-configuration
              (environment-variables '(("EDITOR" . "emacs -nw")
-- 
cgit v1.2.3