diff options
| author | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-02-03 17:45:12 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-02-03 17:45:12 +0100 |
| commit | 3064dba42a5c12d6ae9dbf1dafa6aa2254131115 (patch) | |
| tree | 806c9688fdd8277c14866e701ef7e44c1bfe18b5 | |
| parent | 649f2ab2090b01997771c5944d693218751e1ecc (diff) | |
Create a String-to-Package Helper
| -rw-r--r-- | aisaka.org | 13 | ||||
| -rw-r--r-- | home-configuration.scm | 5 | ||||
| -rw-r--r-- | system-configuration.scm | 5 |
3 files changed, 15 insertions, 8 deletions
@@ -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" |