blob: 12f852c7b8282afd636438faf57b7eb9375af6ce (
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
;; This is a sample Guix Home configuration which can help setup your
;; home directory in the same declarative manner as Guix System.
;; For more information, see the Home Configuration section of the manual.
(define-module (guix-home-config)
#:use-module (gnu home)
#:use-module (gnu home services)
#:use-module (gnu home services shells)
#:use-module (gnu services)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages emacs)
#:use-module (gnu packages fonts)
#:use-module (gnu packages mail)
#:use-module (gnu packages rust-apps)
#:use-module (gnu packages search)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages password-utils)
#:use-module (gnu packages image-viewers)
#:use-module (gnu packages xfce)
#:use-module (gnu packages sync)
#:use-module (gnu packages xorg)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages gnome)
#:use-module (gnu packages librewolf)
#:use-module (gnu packages emacs-xyz)
#:use-module (gnu packages text-editors)
#:use-module (gnu packages golang)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages aspell)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages gcc)
#:use-module (gnu packages commencement)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages base)
#:use-module (gnu packages golang-crypto)
#:use-module (gnu packages linux)
#:use-module (gnu packages image)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages databases)
#:use-module (gnu packages package-management)
#:use-module (gnu packages compression)
#:use-module (gnu system shadow)
#:use-module (gnu services xorg)
#:use-module (gnu system keyboard)
#:use-module (gnu home services fontutils)
#:use-module (gnu home services dotfiles)
#:use-module (gnu home services gnupg)
#:use-module (gnu home services desktop)
#:use-module (gnu home services fontutils)
#:use-module (gnu packages ssh)
#:use-module (gnu packages pdf)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages man)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (gnu packages video)
#:use-module (guix build-system go)
#:use-module (gnu home services pm)
#:use-module (gnu home services xdg)
#:use-module (nongnu packages game-client)
#:use-module (nongnu packages mozilla))
(define home-config
(home-environment
(packages (list
font-iosevka
font-iosevka-aile
font-iosevka-etoile
font-liberation
isync
zoxide
ugrep
imagemagick
password-store
fd
recutils
unzip
inxi
alsa-utils
texinfo
man-db
man-pages
mandoc
steam
;; gsettings
(specification->package+output "glib:bin")
go
binutils
sqlite
gcc-toolchain
mg
imv
thunar
thunar-volman
emacs-geiser
emacs-geiser-guile
emacs-pinentry
; emacs-hyperbole
emacs-pdf-tools
emacs-alsamixer-el
mu
msmtp
emacs
aspell
aspell-dict-en
adwaita-icon-theme
gnupg
age
pinentry
openssh
firefox
librewolf
xsetroot
xhost
scrot
imlib2 ;; Needed for scrot
xset
xrdb
brightnessctl
autocutsel
gsettings-desktop-schemas
setxkbmap))
(services
(list
(service home-bash-service-type
(home-bash-configuration
(guix-defaults? #f)
(bash-profile (list (local-file "./profile")))
(bashrc (list (local-file "./bashrc")))))
(service home-startx-command-service-type
(xorg-configuration (keyboard-layout (keyboard-layout "us" "colemak" #:options '("ctrl:escape")))))
; (service home-xmodmap-service-type
; (home-xmodmap-configuration
; (key-map '(("remove Lock" . "Caps_Lock")
; ("keysym Caps_Lock" . "Escape")))))
(simple-service 'additional-fonts-service
home-fontconfig-service-type
(list "~/.local/extra/fonts"))
(service home-gpg-agent-service-type
(home-gpg-agent-configuration
(pinentry-program
(file-append pinentry-emacs "/bin/pinentry-emacs"))
(ssh-support? #t)
(max-cache-ttl 99999)
(default-cache-ttl 99999)))
(service home-xdg-user-directories-service-type
(home-xdg-user-directories-configuration
(desktop "$HOME/desktop")
(documents "$HOME/docs")
(download "$HOME/download")
(music "$HOME/music")
(pictures "$HOME/pictures")
(publicshare "$HOME/public")
(templates "$HOME/templates")
(videos "$HOME/videos")))
(service home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration
(default
'(("application/mp4" . "mpv.desktop")
("application/x-shellscript" . "emacsclient.desktop")
("text/javascript" . "emacsclient.desktop")
("text/markdown" . "emacsclient.desktop")
("text/plain" . "emacsclient.desktop")
("text/x-python3" . "emacsclient.desktop")
("video/h264" . "mpv.desktop")
("video/h265" . "mpv.desktop")
("video/h266" . "mpv.desktop")
("video/mpeg" . "mpv.desktop")
("x-scheme-handler/mailto" . "emacs-mail.desktop")
("x-www-browser" . "librewolf.desktop")
("text/html" . "librewolf.desktop")
("x-scheme-handler/about" . "librewolf.desktop")
("x-scheme-handler/chrome" . "librewolf.desktop")
("x-scheme-handler/file" . "emacsclient.desktop")
("x-scheme-handler/http" . "librewolf.desktop")
("x-scheme-handler/https" . "librewolf.desktop")
("x-scheme-handler/unknown" . "librewolf.desktop")))))
(service home-files-service-type
`((".guile" ,%default-dotguile)
(".Xdefaults" ,%default-xdefaults)))
(service home-dotfiles-service-type
(home-dotfiles-configuration
(directories '("./dots"))))
(service home-dbus-service-type)
(simple-service 'extend-home
home-environment-variables-service-type
`(("PATH" . "${PATH}:~/go/bin:~/.cargo/bin:~/.local/bin")))
(service home-xdg-configuration-files-service-type
`(("gdb/gdbinit" ,%default-gdbinit)))))))
home-config
|