2022-03-30 11:42:09 +02:00
|
|
|
(define-module (oni home data config)
|
|
|
|
#:use-module (gnu home)
|
|
|
|
#:use-module (gnu home services)
|
|
|
|
#:use-module (gnu home services shells)
|
|
|
|
#:use-module (gnu home services desktop)
|
|
|
|
#:use-module (gnu services)
|
2022-04-02 09:27:11 +02:00
|
|
|
#:use-module (gnu packages)
|
2022-03-30 11:42:09 +02:00
|
|
|
#:use-module (gnu packages admin)
|
|
|
|
#:use-module (guix gexp)
|
2022-04-02 09:29:25 +02:00
|
|
|
#:use-module (oni home services xdisorg)
|
|
|
|
#:use-module (oni home services xmodmap))
|
2022-03-30 11:42:09 +02:00
|
|
|
|
|
|
|
(home-environment
|
2022-04-02 09:27:11 +02:00
|
|
|
(packages (list (specification->package+output "glibc-locales")))
|
|
|
|
|
2022-03-30 11:42:09 +02:00
|
|
|
(services
|
|
|
|
(list
|
|
|
|
(simple-service 'some-useful-env-vars-service
|
|
|
|
home-environment-variables-service-type
|
|
|
|
`(("LESS" . "FXRSi")
|
|
|
|
("MY_GUIX_CONFIGURED" . "1")
|
|
|
|
("DOTNET_CLI_TELEMETRY_OPTOUT" . "1")
|
|
|
|
("EDITOR" . "emacsclient")
|
2022-04-02 09:27:11 +02:00
|
|
|
("CALIBRE_USE_DARK_PALETTE" . "1")
|
|
|
|
("GUIX_LOCPATH" . "$HOME/.guix-home/profile/lib/locale")))
|
2022-03-30 11:42:09 +02:00
|
|
|
|
|
|
|
(service home-redshift-service-type
|
|
|
|
(home-redshift-configuration
|
|
|
|
(location-provider 'manual)
|
|
|
|
(latitude 49.2127205)
|
|
|
|
(longitude 122.9267927)))
|
|
|
|
|
2022-04-02 09:28:10 +02:00
|
|
|
(service home-zsh-service-type)
|
2022-03-30 21:26:45 +02:00
|
|
|
|
|
|
|
(service home-rofi-service-type
|
|
|
|
(home-rofi-configuration
|
|
|
|
(config
|
|
|
|
'((kb-cancel . "Escape,Control+bracketleft,Control+g")))
|
|
|
|
(theme
|
|
|
|
'((window
|
|
|
|
((background-color . "#222424")))
|
|
|
|
(entry
|
|
|
|
((text-color . "#bfbfbf")))
|
|
|
|
(prompt
|
|
|
|
((text-color . "#bfbfbf")))
|
|
|
|
(element-text
|
|
|
|
((background-color . "#222424")
|
2022-04-02 09:29:25 +02:00
|
|
|
(text-color . "#bfbfbf")))))))
|
|
|
|
|
|
|
|
(service home-xmodmap-service-type
|
|
|
|
(home-xmodmap-configuration
|
|
|
|
(pointer '(3 2 1))
|
|
|
|
(extra '("remove Mod5 = ISO_Level3_Shift"
|
|
|
|
"keycode 108 = Alt_L"
|
|
|
|
"add Mod1 = Alt_L")))))))
|