summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarek Paśnikowski <marekpasnikowski@protonmail.com>2023-02-03 20:00:46 +0100
committerMarek Paśnikowski <marekpasnikowski@protonmail.com>2023-02-03 20:25:04 +0100
commitb51aa15c6399c058d82c6af5c3a5886622cab371 (patch)
treed08c500d8457ee288ed77525e1ff508c719871e3
parent8502f83312580ebb56e82a1235a50f46fd1e4f06 (diff)
Transfer Trezord Packages to a Service
-rw-r--r--aisaka.org37
-rw-r--r--system-configuration.scm17
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))