blob: 5211c572997c13689031c2b1af0679a1c6f4254f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
(define-module (corpo home)
#:use-module (gnu)
#:use-module (gnu packages gnupg)
#:use-module (gnu services)
#:use-module (gnu home)
#:use-module (gnu home services)
#:use-module (gnu home services pm)
#:use-module (gnu home services sound)
#:use-module (gnu home services shells)
#:use-module (gnu home services desktop)
#:use-module (gnu home services gnupg)
#:use-module (gnu home services xdg)
#:use-module (guix gexp)
#:export (corpo-home-environment))
(use-package-modules compression gnome fonts freedesktop
linux package-management pulseaudio
terminals xdisorg xorg glib wm)
(define corpo-home-environment
(home-environment
(services
(list
(simple-service 'profile-env-vars-service
home-environment-variables-service-type
'(;; Sort dot files first in ls
("LC_COLLATE" . "C")
;; vim instead of nano
("VISUAL" . "vim")
("EDITOR" . "vim")
;; Wayland
("XDG_CURRENT_DESKTOP" . "sway")
("XDG_SESSION_TYPE" . "wayland")
("RTC_USE_PIPEWIRE" . "true")
("SDL_VIDEODRIVER" . "wayland")
("MOZ_ENABLE_WAYLAND" . "1")
("CLUTTER_BACKEND" . "wayland")
("ELM_ENGINE" . "wayland_egl")
("ECORE_EVAS_ENGINE" . "wayland-egl")
("QT_QPA_PLATFORM" . "wayland-egl")))
(service home-bash-service-type
(home-bash-configuration
(bash-profile (list (local-file "./files/scripts/sway-login")))))
(service home-xdg-configuration-files-service-type
`(("sway/config" ,(local-file "./files/misc-config/sway-config"))))
(service home-dbus-service-type)
(service home-pipewire-service-type)))
(packages (list xorg-server-xwayland
sway swayidle swaylock fuzzel foot
grimshot wl-clipboard network-manager-applet
xdg-desktop-portal xdg-desktop-portal-gtk
xdg-desktop-portal-wlr xdg-utils xdg-dbus-proxy shared-mime-info
;; Flatpak
flatpak (list glib "bin") ; flatpak dependency
;; Audio
alsa-utils pavucontrol
;; General
zip unzip))))
|
