diff options
| author | EuAndreh <eu@euandre.org> | 2022-05-12 20:51:58 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-05-12 20:51:58 -0300 |
| commit | 920473d9d4ee2d18649124476a1e1e33f39b513e (patch) | |
| tree | 0d4ebc17a9a814cc67e4fb525ccf8c5e96ef2b5f | |
| parent | etc/guix/home.scm: use-modules (diff) | |
| download | dotfiles-920473d9d4ee2d18649124476a1e1e33f39b513e.tar.gz dotfiles-920473d9d4ee2d18649124476a1e1e33f39b513e.tar.xz | |
etc/guix/home.scm: Include "dot-config" and "jobs" variables
| -rw-r--r-- | etc/guix/home.scm | 40 |
1 files 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 |