From 920473d9d4ee2d18649124476a1e1e33f39b513e Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Thu, 12 May 2022 20:51:58 -0300 Subject: etc/guix/home.scm: Include "dot-config" and "jobs" variables --- etc/guix/home.scm | 40 ++++++++++++++++++++++++++++------------ 1 file changed, 28 insertions(+), 12 deletions(-) diff --git a/etc/guix/home.scm b/etc/guix/home.scm index 71d6b68..3255f51 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -136,18 +136,34 @@ (define config-files `(("gnupg/gpg-agent.conf" ,gpg-agent.conf) - ("git/config" ,gitconfig))) - -(define (dot-config) - (define (prefix-with-config s) - (string-append (substring (getenv "XDG_CONFIG_HOME") - (+ 1 (string-length (getenv "HOME")))) - "/" - s)) - (map (lambda (t) - (list (prefix-with-config (first t)) - (second t))) - config-files)) + ("git/config" ,gitconfig) + ("ssh/config" ,ssh.conf))) + +(define dot-config + (let ((prefix-with-config + (lambda (s) + (string-append (substring (getenv "XDG_CONFIG_HOME") + (+ 1 (string-length (getenv "HOME")))) + "/" + s)))) + (map (lambda (t) + (list (prefix-with-config (first t)) + (second t))) + config-files))) + + +(define jobs + '() + #; + (list + ;; FIXME + #~(job "* * * * *" "echo foi > ~/foi") + #~(job "* * * * *" "backup -h 2>&1 > ~/bk") + #~(job "* * * * *" "which backup -h 2>&1 > ~/which-bk") + #~(job "* * * * *" "echo $PATH 2>&1 > ~/path") + #~(job "* * * * *" "echo 123") + #~(job "* * * * *" "echo 123 > k") + #~(job "* * * * *" "date > ~/job"))) (home-environment (packages -- cgit v1.2.3