This commit is contained in:
Daniel Ziltener 2023-12-08 12:56:00 +01:00
parent 021a3c5356
commit 223f3ed6b1
Signed by: zilti
GPG Key ID: B38976E82C9DAE42
5 changed files with 34 additions and 39 deletions

View File

@ -1,3 +0,0 @@
((scheme-mode . ((geiser-scheme-implementation . 'guile)))
(org-mode . ((geiser-scheme-implementation . 'guile)
(org-confirm-babel-evaluate . nil))))

3
.dir-locals.el Normal file
View File

@ -0,0 +1,3 @@
((nil . ((geiser-scheme-implementation . guile)
(geiser-guile-binary . ("guix" "repl"))))
(org-mode . ((org-confirm-babel-evaluate . nil))))

View File

@ -1,4 +1,3 @@
# -*- geiser-scheme-implementation: guile -*-
#+TITLE: GUIX System Configuration #+TITLE: GUIX System Configuration
#+AUTHOR: Daniel Ziltener #+AUTHOR: Daniel Ziltener
#+PROPERTY: scheme-implementation guile #+PROPERTY: scheme-implementation guile

View File

@ -1,4 +0,0 @@
grab
pinentry-program /home/zilti/.guix-home/profile/bin/pinentry-qt
allow-emacs-pinentry
allow-loopback-pinentry

View File

@ -14,9 +14,9 @@
(gnu home) (gnu home)
(gnu home services) (gnu home services)
(gnu home services desktop) (gnu home services desktop)
#;(gnu home services gnupg) (gnu home services gnupg)
(gnu home services guix) (gnu home services guix)
#;(gnu home services mail) (gnu home services mail)
(gnu home services mcron) (gnu home services mcron)
(gnu home services pm) (gnu home services pm)
(gnu home services shells) (gnu home services shells)
@ -58,26 +58,26 @@
(services (services
(list (list
(service home-shepherd-service-type) (service home-shepherd-service-type)
#;(service home-msmtp-service-type (service home-msmtp-service-type
(home-msmtp-configuration ; (home-msmtp-configuration
(accounts ; (accounts
(list ; (list
(msmtp-account ; (msmtp-account
(name "LMail") ; (name "LMail")
(configuration ; (configuration
(msmtp-configuration ; (msmtp-configuration
(host "lyrion.ch") ; (host "lyrion.ch")
(port 587) ; (port 587)
(user "dziltener") ; (user "dziltener")
(password-eval "pass Privat/Mailaccount | head -n 1")))) ; (password-eval "pass Privat/Mailaccount | head -n 1"))))
(msmtp-account ; (msmtp-account
(name "Red Sky") ; (name "Red Sky")
(configuration ; (configuration
(msmtp-configuration ; (msmtp-configuration
(host "gmail.com") ; (host "gmail.com")
(port 587) ; (port 587)
(user "dz@redsky.io") ; (user "dz@redsky.io")
(password-eval "pass Privat/RedSkyGMail")))))))) (password-eval "pass Privat/RedSkyGMail"))))))))
(simple-service 'ziltis-environment-variable-service (simple-service 'ziltis-environment-variable-service
home-environment-variables-service-type home-environment-variables-service-type
`(("PATH" . "$PATH:~/.local/bin") `(("PATH" . "$PATH:~/.local/bin")
@ -93,7 +93,7 @@
("CHICKEN_INSTALL_PREFIX" . "$HOME/.local"))) ("CHICKEN_INSTALL_PREFIX" . "$HOME/.local")))
(simple-service 'ziltis-home-files-service (simple-service 'ziltis-home-files-service
home-files-service-type home-files-service-type
`((".gnupg/gpg-agent.conf" ,(local-file "gnupg/gpg-agent.conf")))) `(#;(".gnupg/gpg-agent.conf" ,(local-file "gnupg/gpg-agent.conf"))))
(simple-service 'ziltis-xdg-configuration-files-service (simple-service 'ziltis-xdg-configuration-files-service
home-xdg-configuration-files-service-type home-xdg-configuration-files-service-type
`(("sway/config" ,(local-file "./sway/sway")) `(("sway/config" ,(local-file "./sway/sway"))
@ -152,13 +152,13 @@
(user "git") (user "git")
(port 7920) (port 7920)
(identity-file "~/.ssh/personal_ed")))))) (identity-file "~/.ssh/personal_ed"))))))
#;(service home-gpg-agent-service-type (service home-gpg-agent-service-type
(home-gpg-agent-configuration ; (home-gpg-agent-configuration
(pinentry-program ; (pinentry-program
(file-append pinentry-qt "/bin/pinentry-qt")) ; (file-append pinentry-qt "/bin/pinentry-qt"))
(ssh-support? #t) ; (ssh-support? #t)
(default-cache-ttl 7200) ; (default-cache-ttl 7200)
(default-cache-ttl-ssh 7200) ; (default-cache-ttl-ssh 7200)
(extra-content "allow-emacs-pinentry\nallow-loopback-pinentry"))) (extra-content "grab\nallow-emacs-pinentry\nallow-loopback-pinentry")))
(service home-dbus-service-type) (service home-dbus-service-type)
))) )))