blob: 1bb9267808fb7db00a38edda1e641ab193908a0d (
plain) (
blame)
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
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
;; This "home-environment" file can be passed to 'guix home reconfigure'
;; to reproduce the content of your profile. This is "symbolic": it only
;; specifies package names. To reproduce the exact same profile, you also
;; need to capture the channels being used, as returned by "guix describe".
;; See the "Replicating Guix" section in the manual.
(use-modules (gnu home services)
(gnu home services fontutils)
(gnu home services gnupg)
(gnu home services shells)
(gnu home)
(gnu packages admin)
(gnu packages algebra)
(gnu packages android)
(gnu packages base)
(gnu packages bash)
(gnu packages bittorrent)
(gnu packages calendar)
(gnu packages ccache)
(gnu packages certs)
(gnu packages chromium)
(gnu packages cmake)
(gnu packages commencement)
(gnu packages compression)
(gnu packages compton)
(gnu packages containers)
(gnu packages curl)
(gnu packages disk)
(gnu packages elf)
(gnu packages emulators)
(gnu packages fediverse)
(gnu packages file)
(gnu packages freedesktop)
(gnu packages gimp)
(gnu packages gnome)
(gnu packages gnupg)
(gnu packages gnuzilla)
(gnu packages golang)
(gnu packages image)
(gnu packages image-viewers)
(gnu packages imagemagick)
(gnu packages irc)
(gnu packages libreoffice)
(gnu packages linux)
(gnu packages llvm)
(gnu packages mail)
(gnu packages messaging)
(gnu packages music)
(gnu packages ncurses)
(gnu packages networking)
(gnu packages ntp)
(gnu packages package-management)
(gnu packages password-utils)
(gnu packages pdf)
(gnu packages photo)
(gnu packages pulseaudio)
(gnu packages python-xyz)
(gnu packages rsync)
(gnu packages rust)
(gnu packages rust-apps)
(gnu packages syndication)
(gnu packages telephony)
(gnu packages terminals)
(gnu packages tmux)
(gnu packages tor)
(gnu packages tree-sitter)
(gnu packages version-control)
(gnu packages video)
(gnu packages vim)
(gnu packages virtualization)
(gnu packages vnc)
(gnu packages w3m)
(gnu packages web)
(gnu packages wm)
(gnu packages xdisorg)
(gnu packages xfce)
(gnu services)
(guix build utils)
(guix channels)
(guix gexp)
(ice-9 ftw)
(ice-9 match)
(ice-9 string-fun))
(define (file-not-symlink-check file stat)
(not (symbolic-link? file)))
(home-environment
;; Below is the list of packages that will show up in your
;; Home profile, under ~/.guix-home/profile.
;; Can't find
;; firefox k9s kubectl steam turnstile
;; Won't build
;; avidemux
;; Unknown
;; which
(packages (list adb
bash
bash-completion
bat
bc
binutils
blueman
bluez
ccache
chathistorysync
chrony
clang
cmake
cmus
curl
darktable
dolphin-emu
dunst
easytag
fastfetch
ffmpeg
file
flatpak
foot
gajim
gammastep
gcc-toolchain
gimp
git
git-delta
glibc-locales
go
gparted
greetd
grim
htop
hut
icecat
imagemagick
imv
jq
khal
libreoffice
mercurial
mpv
mumble
ncurses
neomutt
neovim
network-manager
network-manager-applet
newsboat
nmap
nss-certs
offlineimap3
obs
passt
password-store
patchelf
pavucontrol
picom
pinentry
pipewire
podman
profanity
python-virtualenv
qemu
ranger
ripgrep
rsync
rust
rust-cargo
seatd
slurp
swappy
sway
swayidle
;; Must be installed system-wide, as it relies on PAM/suid
;; swaylock
swaysome
swayrbar
swayr
thunar
tmux
toot
torsocks
transmission
tree-sitter-bash
tree-sitter-c
tree-sitter-c-sharp
tree-sitter-cpp
tree-sitter-css
tree-sitter-go
tree-sitter-html
tree-sitter-javascript
tree-sitter-json
tree-sitter-lua
tree-sitter-markdown
tree-sitter-org
tree-sitter-php
tree-sitter-python
tree-sitter-rust
tree-sitter-scheme
tree-sitter-typescript
ungoogled-chromium
unzip
vim
w3m
wayvnc
weechat
wl-clipboard
wofi
wtype
xdg-utils
yt-dlp
ytfzf
zathura
zip
zstd))
;; Below is the list of Home services. To search for available
;; services, run 'guix home search KEYWORD' in a terminal.
(services
(list (service home-bash-service-type
(home-bash-configuration
(bashrc (list (local-file ".bashrc" "bashrc")))
;; TODO: Is it correct to use .profile as .bash_profile?
(bash-profile (list (local-file ".profile" "profile")))
(bash-logout (list (local-file ".bash_logout" "bash_logout")))))
(simple-service 'additional-fonts-service
home-fontconfig-service-type
(list "~/.local/share/fonts"))
(service home-gpg-agent-service-type
(home-gpg-agent-configuration (ssh-support? #t)))
(service home-files-service-type
;; Go through all relevant files in this repo and add them as symlinks individually
;; This is not done using local-file's recurse option in particular because
;; some services add their own files to .config, and there
;; will be conflicts if one service wants
;; .config/fontconfig/fonts.conf while we eat up the whole .config
(map (lambda (name)
`(,name ,(local-file (assume-source-relative-file-name
name)
;; objects cannot have "." or "/"
;; in their name, so these must
;; be explicitely substituted
(string-replace-substring (string-replace-substring
name
"."
"-")
"/"
"-")
#:recursive? #t)))
;; The given folders and files we want from the repo
(append (find-files "./.config" file-not-symlink-check)
(find-files "./.local" file-not-symlink-check)
(list ".xinitrc" ".inputrc" ".tcshrc")))))))
|