diff options
author | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-01-10 21:24:09 +0100 |
---|---|---|
committer | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2023-01-10 21:24:09 +0100 |
commit | 00764d77d15b1368188ab55ca24c5c99d89c66d2 (patch) | |
tree | 2ff7997e1c17462d09c71601fca41097b4df365f /home-configuration.scm | |
parent | ab062e6c30616a80b3246efca421e3d40d479201 (diff) |
Optimize Noweb References
Diffstat (limited to 'home-configuration.scm')
-rw-r--r-- | home-configuration.scm | 150 |
1 files changed, 75 insertions, 75 deletions
diff --git a/home-configuration.scm b/home-configuration.scm index 820404e..4c8752b 100644 --- a/home-configuration.scm +++ b/home-configuration.scm @@ -22,8 +22,8 @@ (define pull-guix- (string-append pull-guix - allow-downgrades - "--disable-authentication ")) + allow-downgrades + "--disable-authentication ")) (define guix-home "guix home reconfigure ") @@ -33,12 +33,12 @@ (define reconfigure-home (string-append guix-home - config-prefix - home-configuration)) + config-prefix + home-configuration)) (define reconfigure-home- (string-append reconfigure-home - allow-downgrades)) + allow-downgrades)) (define guix-system "sudo guix system reconfigure ") @@ -48,95 +48,95 @@ (define reconfigure-system (string-append guix-system - config-prefix - system-configuration)) + config-prefix + system-configuration)) (define reconfigure-system- (string-append reconfigure-system - allow-downgrades)) + allow-downgrades)) (define and "&& ") (define system-update (string-append pull-guix - and - reconfigure-system - and - reconfigure-home)) + and + reconfigure-system + and + reconfigure-home)) (define system-update- (string-append pull-guix- - and - reconfigure-system- - and - reconfigure-home-)) + and + reconfigure-system- + and + reconfigure-home-)) (home-environment (packages (map (compose list - specification->package+output) - '("adwaita-icon-theme" - "alacritty" - "clamav" - "cpupower" - "dconf-editor" - "dmenu" - "emacs" - "emacs-aggressive-indent" - "emacs-eldoc" - "emacs-geiser" - "emacs-geiser-guile" - "emacs-nov-el" - "emacs-org-auto-tangle" - "emacs-org-contacts" - "emacs-org-contrib" - "font-google-noto" - "git" - "git-lfs" - "gnome-tweaks" - "gnupg" - "guile" - "guile-spec" - "hicolor-icon-theme" - "icecat" - "jami" - "libadwaita" - "libreoffice" - "nm-tray" - "pwgen" - "seahorse" - "sicp" - "strace" - "trezor-agent" - "unzip" - "zip"))) + specification->package+output) + '("adwaita-icon-theme" + "alacritty" + "clamav" + "cpupower" + "dconf-editor" + "dmenu" + "emacs" + "emacs-aggressive-indent" + "emacs-eldoc" + "emacs-geiser" + "emacs-geiser-guile" + "emacs-nov-el" + "emacs-org-auto-tangle" + "emacs-org-contacts" + "emacs-org-contrib" + "font-google-noto" + "git" + "git-lfs" + "gnome-tweaks" + "gnupg" + "guile" + "guile-spec" + "hicolor-icon-theme" + "icecat" + "jami" + "libadwaita" + "libreoffice" + "nm-tray" + "pwgen" + "seahorse" + "sicp" + "strace" + "trezor-agent" + "unzip" + "zip"))) (services `(,flashrom-package ,ssh-configuration ,sway-configuration ,sway-packages ,(service home-bash-service-type - (home-bash-configuration - (environment-variables '(("EDITOR" . "emacs -nw") - ("LIBGL_ALWAYS_SOFTWARE" . "1") - ("NVM_DIR" . "$HOME/src/nvm") - ("GUILE_AUTO_COMPILE" . "0"))) - (aliases `(("grep" . "grep --color=auto ") - ("ll" . "ls -l ") - ("ls" . "ls -p --color=auto ") - ("pull-guix" . ,pull-guix) - ("pull-guix-" . ,pull-guix-) - ("reconfigure-home" . ,reconfigure-home) - ("reconfigure-home-" . ,reconfigure-home-) - ("reconfigure-system" . ,reconfigure-system) - ("reconfigure-system-" . ,reconfigure-system-) - ("system-update" . ,system-update) - ("system-update-" . ,system-update-))) - (bash-profile `(,(local-file "bash_profile"))) - (bashrc `(,(local-file "bashrc"))))) + (home-bash-configuration + (environment-variables '(("EDITOR" . "emacs -nw") + ("LIBGL_ALWAYS_SOFTWARE" . "1") + ("NVM_DIR" . "$HOME/src/nvm") + ("GUILE_AUTO_COMPILE" . "0"))) + (aliases `(("grep" . "grep --color=auto ") + ("ll" . "ls -l ") + ("ls" . "ls -p --color=auto ") + ("pull-guix" . ,pull-guix) + ("pull-guix-" . ,pull-guix-) + ("reconfigure-home" . ,reconfigure-home) + ("reconfigure-home-" . ,reconfigure-home-) + ("reconfigure-system" . ,reconfigure-system) + ("reconfigure-system-" . ,reconfigure-system-) + ("system-update" . ,system-update) + ("system-update-" . ,system-update-))) + (bash-profile `(,(local-file "bash_profile"))) + (bashrc `(,(local-file "bashrc"))))) ,(simple-service 'configuration-files - home-files-service-type - `((".config/git/config" ,(local-file "git.config")) - (".config/guix/shell-authorized-directories" - ,(local-file "guix-shell-authorized-directories")) - (".emacs" ,(local-file "emacs.el"))))))) + home-files-service-type + `((".config/git/config" ,(local-file "git.config")) + (".config/guix/shell-authorized-directories" + ,(local-file "guix-shell-authorized-directories")) + (".emacs" ,(local-file "emacs.el"))))))) |