;; 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")))))))