diff options
Diffstat (limited to 'etc/guix/home.scm')
| -rw-r--r-- | etc/guix/home.scm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/etc/guix/home.scm b/etc/guix/home.scm index 05e9d86..53937d0 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -1,7 +1,6 @@ (use-modules ((ice-9 textual-ports) #:prefix textual-ports:) ((guix licenses) #:prefix licenses:) - ((srfi srfi-1) #:prefix s1:) ((xyz euandreh heredoc) #:prefix heredoc:) (gnu home) (gnu home services) @@ -172,31 +171,6 @@ (define (xdg-config-home s) (string-append (getenv "XDG_CONFIG_HOME") "/" s)) -;; 2592000 = 60 * 60 * 24 * 30 -(define gpg-agent.conf - (mixed-text-file "gpg-agent.conf" #"- - default-cache-ttl 172800 - default-cache-ttl-ssh 172800 - max-cache-ttl 2592000 - max-cache-ttl-ssh 2592000 - enable-ssh-support - pinentry-program "# pinentry-gtk2 "/bin/pinentry-gtk-2\n")) - -(define config-files - `(("gnupg/gpg-agent.conf" ,gpg-agent.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 (s1:first t)) - (s1:second t))) - config-files))) - (define (slurp name) (string-trim-both @@ -568,7 +542,6 @@ (service poweralertd-service-type) (simple-service 'my-shell-profile home-shell-profile-service-type (list (plain-file "my-profile" ". ~/.usr/etc/sh/rc"))) - (simple-service 'config-files home-files-service-type dot-config) (service home-mcron-service-type (home-mcron-configuration (jobs cronjobs)))))) |