diff options
Diffstat (limited to 'home-configuration.scm')
-rw-r--r-- | home-configuration.scm | 50 |
1 files 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))))))))) |