ryan77627/guix-dotfiles
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix-config.git synced 2024-11-07 10:26:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

temp changes

Browse source
This commit is contained in:
Ryan 2024-01-18 18:43:59 -05:00
parent c45e1fcd8b
commit c8a2ce5015
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
2 changed files with 38 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
home-config/home-configuration.scm
View file

@ -18,6 +18,7 @@
(gnu home services)
(ryan-services pipewire)
(ryan-services spotify)
(ryan-config utils)
(ryan-packages freedesktop)
(ryan-packages mozilla))
@ -132,7 +133,6 @@
("sway" ,(local-file "sway" #:recursive? #t))
("hypr" ,(local-file "hypr" #:recursive? #t))
("foot" ,(local-file "foot" #:recursive? #t))
("spotify-player" ,(local-file "spotify-player" #:recursive? #t))
("pulse/client.conf" ,(local-file "pulseaudio/client.conf"))
("waybar" ,(local-file "waybar" #:recursive? #t))
("alacritty" ,(local-file "alacritty" #:recursive? #t))
@ -149,6 +149,10 @@
(service home-pipewire-service-type)
(service home-spotifyd-service-type)
(service home-dbus-service-type)
;;; trying some changes
(template-files "."
'("spotify-player/app.toml"
;;;
(service home-gpg-agent-service-type
(home-gpg-agent-configuration
(pinentry-program

33
modules/ryan-config/utils.scm Normal file
View file

@ -0,0 +1,33 @@
(define-module (ryan-config utils)
#:use-module (gnu packages)
#:use-module (gnu services)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu packages freedesktop)
#:use-module (gnu services configuration)
#:use-module (guix gexp)
#:use-module (ice-9 regex)
#:use-module (ice-9 pretty-print)
#:use-module (ice-9 textual-ports)
#:export (gather-manifest-packages
apply-template-file))
(define (apply-template template-string value-alist)
(regexp-substitute/global #f
"\\$\\{([A-Za-z/\\-]+)\\}"
template-string
'pre
(lambda (m)
(let ((entry (assq (string->symbol (match:substring m 1))
value-alist)))
(if entry
(cdr entry)
"VALUE NOT FOUND")))
'post))
(define (apply-template-file file-path value-alist)
(call-with-input-file file-path
(lambda (port)
(apply-template (get-string-all port)
value-alist))))