home: services: Add leading dot to home-files path.

home/config.scm

@@ -135,133 +135,133 @@
     (simple-service 'emacs-config
 		    home-files-service-type
 		    (list
-		     `("emacs.d/init.el"
+		     `(".emacs.d/init.el"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/emacs/init.el")))))
     (simple-service 'git-config
 		    home-files-service-type
 		    (list
-		     `("config/git/config"
+		     `(".config/git/config"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/git/config")))))
     (simple-service 'gnupg-dirmngr-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/dirmngr.conf"
+		     `(".gnupg/dirmngr.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/dirmngr.conf")))))
     (simple-service 'gnupg-gpa-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/gpa.conf"
+		     `(".gnupg/gpa.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/gpa.conf")))))
     (simple-service 'gnupg-gpg-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/gpg.conf"
+		     `(".gnupg/gpg.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/gpg.conf")))))
     (simple-service 'gnupg-gpg-agent-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/gpg-agent.conf"
+		     `(".gnupg/gpg-agent.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/gpg-agent.conf")))))
     (simple-service 'gnupg-scdaemon-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/scdaemon.conf"
+		     `(".gnupg/scdaemon.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/scdaemon.conf")))))
     (simple-service 'gnupg-sshcontrol-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/sshcontrol"
+		     `(".gnupg/sshcontrol"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/sshcontrol")))))
     (simple-service 'gtk-gtk2-config
 		    home-files-service-type
 		    (list
-		     `("gtkrc-2.0"
+		     `(".gtkrc-2.0"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gtk/gtkrc-2.0")))))
     (simple-service 'gtk-gtk3-config
 		    home-files-service-type
 		    (list
-		     `("config/gtk-3.0/settings.ini"
+		     `(".config/gtk-3.0/settings.ini"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gtk/settings.ini")))))
     (simple-service 'nano-config
 		    home-files-service-type
 		    (list
-		     `("config/nano/nanorc"
+		     `(".config/nano/nanorc"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/nano/nanorc")))))
     (simple-service 'poezio-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/poezio.cfg"
+		     `(".config/poezio/poezio.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/poezio.cfg")))))
     (simple-service 'poezio-irc-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/plugins/irc.cfg"
+		     `(".config/poezio/plugins/irc.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/plugins/irc.cfg")))))
     (simple-service 'poezio-link-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/plugins/link.cfg"
+		     `(".config/poezio/plugins/link.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/plugins/link.cfg")))))
     (simple-service 'poezio-otr-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/plugins/otr.cfg"
+		     `(".config/poezio/plugins/otr.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/plugins/otr.cfg")))))
     (simple-service 'stumpwm-config
 		    home-files-service-type
 		    (list
-		     `("stumpwm.d/init.lisp"
+		     `(".stumpwm.d/init.lisp"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/stumpwm/init.lisp")))))
     (simple-service 'termite-config
 		    home-files-service-type
 		    (list
-		     `("config/termite/config"
+		     `(".config/termite/config"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/termite/config")))))
     (simple-service 'x-xinit-config
 		    home-files-service-type
 		    (list
-		     `("xinitrc"
+		     `(".xinitrc"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/x/xinitrc")))))
     (simple-service 'x-xserver-config
 		    home-files-service-type
 		    (list
-		     `("xserverrc"
+		     `(".xserverrc"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/x/xserverrc"))))))