From 3064dba42a5c12d6ae9dbf1dafa6aa2254131115 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Fri, 3 Feb 2023 17:45:12 +0100
Subject: Create a String-to-Package Helper

---
 aisaka.org               | 13 +++++++++----
 home-configuration.scm   |  5 +++--
 system-configuration.scm |  5 +++--
 3 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/aisaka.org b/aisaka.org
index 60310ac..870f745 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -44,8 +44,7 @@ https://guix.gnu.org/en/manual/devel/en/html_node/System-Configuration.html
                                                        "video"
                                                        "wheel")))
                  %base-user-accounts))
-   (packages (append (map (compose list
-                                   specification->package+output)
+   (packages (append (map <<to-package+output>>
                           '("netcat-openbsd"
                             "nss-certs"
                             "ntfs-3g"
@@ -159,8 +158,7 @@ https://guix.gnu.org/en/manual/devel/en/html_node/Home-Configuration.html
                    reconfigure-home-))
 
   (home-environment
-   (packages (map (compose list
-                           specification->package+output)
+   (packages (map <<to-package+output>>
                   '("adwaita-icon-theme"
                     "alacritty"
                     "clamav"
@@ -337,4 +335,11 @@ memory without overprovisioning, as well as to prolog the lifetime of SSD.
 
 * TODO Device Management
 ** TODO Trezor
+* TODO Helpers
+** TODO String to Package
 
+#+begin_src scheme :noweb-ref to-package+output
+  (compose ; &rest
+   list
+   specification->package+output)
+#+end_src
diff --git a/home-configuration.scm b/home-configuration.scm
index 83b220a..157fac4 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -71,8 +71,9 @@
                  reconfigure-home-))
 
 (home-environment
- (packages (map (compose list
-                         specification->package+output)
+ (packages (map (compose ; &rest
+ list
+ specification->package+output)
                 '("adwaita-icon-theme"
                   "alacritty"
                   "clamav"
diff --git a/system-configuration.scm b/system-configuration.scm
index 87c5df4..4114d24 100644
--- a/system-configuration.scm
+++ b/system-configuration.scm
@@ -30,8 +30,9 @@
                                                      "video"
                                                      "wheel")))
                %base-user-accounts))
- (packages (append (map (compose list
-                                 specification->package+output)
+ (packages (append (map (compose ; &rest
+ list
+ specification->package+output)
                         '("netcat-openbsd"
                           "nss-certs"
                           "ntfs-3g"
-- 
cgit v1.2.3