aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--home-configuration.scm50
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)))))))))