Create a String-to-Package Helper

1 files changed, 9 insertions, 4 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