From 3e10e9aa1d42a60764cff021a43ee96cbfdd4f8d 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 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'aisaka.org')

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
-- 
cgit v1.2.3