From 335764d820c39ab85e41d4f387c66b6a3927bc1c Mon Sep 17 00:00:00 2001 From: Luca Matei Pintilie Date: Sat, 5 Oct 2024 22:14:27 +0200 Subject: fixup! fixup! fixup! fixup! fixup! fixup! fixup! WIP add guix config --- home-configuration.scm | 50 +++++++++++++++++++++++++------------------------- 1 file changed, 25 insertions(+), 25 deletions(-) diff --git a/home-configuration.scm b/home-configuration.scm index af83435..d2e47d5 100644 --- a/home-configuration.scm +++ b/home-configuration.scm @@ -144,28 +144,28 @@ ;; Below is the list of Home services. To search for available ;; services, run 'guix home search KEYWORD' in a terminal. (services - (list - ;; (service home-bash-service-type - ;; (home-bash-configuration - ;; (aliases '(("cat" . "/usr/bin/bat -p") ("cls" . "clear") - ;; ("codium" . "flatpak run com.vscodium.codium --no-sandbox --enable-features=UseOzonePlatform --ozone-platform=wayland") - ;; ("ls" . "ls -h -F --color=auto --group-directories-first") - ;; ("mpv" . "/usr/bin/mpv") - ;; ("sudo" . "/usr/bin/doas") - ;; ("tmux" . "tmux -2"))) - ;; (bashrc (list (local-file ".bashrc" "bashrc"))) - ;; (bash-profile (list (local-file ".bash_profile" - ;; "bash_profile"))) - ;; (bash-logout (list (local-file ".bash_logout" "bash_logout"))))) - (service home-files-service-type - ;; `((".xinitrc" ,(local-file ".xinitrc" "my-xinitrc"))) - (map (lambda (name) - (format #t - (string-append name "\n")) - `((,name ,(local-file (assume-source-relative-file-name - name) - (string-replace-substring name "." - "-"))))) - (find-files "./.config")) - ;; Marker here - )))) + (list (service home-bash-service-type + (home-bash-configuration + (aliases '(("cat" . "/usr/bin/bat -p") ("cls" . "clear") + ("codium" . "flatpak run com.vscodium.codium --no-sandbox --enable-features=UseOzonePlatform --ozone-platform=wayland") + ("ls" . "ls -h -F --color=auto --group-directories-first") + ("mpv" . "/usr/bin/mpv") + ("sudo" . "/usr/bin/doas") + ("tmux" . "tmux -2"))) + (bashrc (list (local-file ".bashrc" "bashrc"))) + (bash-profile (list (local-file ".bash_profile" + "bash_profile"))) + (bash-logout (list (local-file ".bash_logout" "bash_logout"))))) + (service home-files-service-type + (map (lambda (name) + `(,name ,(local-file (assume-source-relative-file-name + name) + (string-replace-substring (string-replace-substring + name + "." + "-") + "/" + "-")))) + (find-files "./.config" + (lambda (file stat) + (not (symbolic-link? file))))))))) -- cgit v1.2.3