;; 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 (guix packages)
(guix gexp)
(gnu home)
(gnu packages)
(gnu packages gnupg)
(gnu packages base)
(gnu packages emacs)
(gnu packages shellutils)
(gnu packages wm)
(gnu packages freedesktop)
(gnu packages mail)
(guix git-download)
(gnu packages fonts)
(gnu services)
(gnu home services fontutils)
(gnu home services desktop)
(gnu home services shells)
(gnu home services gnupg)
(gnu home services sound)
(gnu home services xdg)
(gnu home services)
(ruther home dwl wm)
(ruther home dwl scripts)
(ruther home packages themes)
(ruther home services hydroxide)
(gnu home services mcron)
(ruther home services mpris-ctld)
(ruther home services gtk)
(ruther home services xdg-desktop-portals)
(ruther home services wayland)
(ruther home services kanshi))
(define offlineimap-job
#~(job '(next-minute (range 0 60 5))
(string-append #$offlineimap3 "/bin/offlineimap")))
(define-public font-awesome-6
(package/inherit font-awesome
(version "6.5.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FortAwesome/Font-Awesome")
(commit version)))
(sha256
(base32 "1v1acl833ifg9bw3lffklkg8i80bj8h01b99y5pvxidby8pvyili"))))
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(source (getcwd))
(fonts (string-append out "/share/fonts")))
(for-each (lambda (file)
(install-file file (string-append fonts "/truetype")))
(find-files source "\\.(ttf|ttc)$"))
(for-each (lambda (file)
(install-file file (string-append fonts "/opentype")))
(find-files source "\\.(otf|otc)$"))
#t))))))))
(define (apply-patches pkg patches)
(let ((src (package-source pkg))
(source-patches
(if (list? patches)
patches
(list patches))))
(package
(inherit pkg)
(source
(origin
(inherit src)
(patches
(append source-patches
(origin-patches src))))))))
(home-environment
;; Below is the list of packages that will show up in your
;; Home profile, under ~/.guix-home/profile.
(packages
(append
(list
dwl-mine
font-awesome-6
(apply-patches msmtp
(local-file "./patches/msmtp-from-utf8-encoding.patch")))
(specifications->packages
(list
"man-db"
"slurp"
;; HW interactions
"pavucontrol"
;; Terminals, utilities
"foot" "fbset"
;; Shell utilities
"ripgrep-all" "ripgrep"
"fd" "fzf"
"direnv"
;; Fonts
"font-hack" "font-dejavu"
"font-ubuntu"
"font-google-noto-emoji"
;; Browsing
"librewolf"
"firefox" ;; No netflix in librewolf :'(
;; Development
"git" "openssh"
;; Passwords
"gnupg" "password-store-wl" "pass-otp"
;; DBus services
"mako-mine"
;; Notebook stuff
"acpi" "xbacklight"
"brillo"
;; Images, Videos
"mpv" "nsxiv" "zathura"
"evince"
;; TODO: probably the dconf service has to add this,
;; since it tries to search for its service on activation, and errors.
;; How could we give it just this service?
"dconf"
;; E-mail
"offlineimap3"
"notmuch" "afew"
"xdg-utils" "libnotify"
;; Editing
"emacs" "emacs-vterm"
"tree-sitter-vhdl" "tree-sitter-rust" "tree-sitter-bash"
"tree-sitter-awk" "tree-sitter-nix" "tree-sitter-python"
"tree-sitter-c" "tree-sitter-cpp" "tree-sitter-c-sharp"
"neovim"))))
;; 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
(guix-defaults? #t)
(aliases '(("grep" . "grep --color=auto")
("ip" . "ip -color=auto")
("ll" . "ls -l")
("ls" . "ls -p --color=auto")))
(bashrc (list (local-file "dotfiles/.bashrc" "bashrc")))
(bash-profile (list (local-file "dotfiles/.bash_profile"
"bash_profile")))))
(service home-mcron-service-type
(home-mcron-configuration
(log-file (let* ((state-dir (or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME"))))
(log-dir (string-append state-dir "/log")))
(string-append log-dir "/mcron.log")))))
(simple-service 'email-sync
home-mcron-service-type
(list offlineimap-job))
(service home-gtk-service-type
(let ((gtk-theme (make-graphite-gtk-theme #:theme "orange" #:color "dark"))
(icon-theme (make-tela-circle-icon-theme #:variant "orange"))
(cursor-theme (make-catppuccin-cursors #:flavor "frappe" #:accent "sapphire")))
(home-gtk-configuration
(gtk-theme
(gtk-theme-configuration
(package gtk-theme)
(name (assoc-ref (package-properties gtk-theme) 'theme-name))))
(cursor-theme
(gtk-theme-configuration
(package cursor-theme)
(name (assoc-ref (package-properties cursor-theme) 'cursor-theme-name))
(size 16)))
(icon-theme
(gtk-theme-configuration
(package icon-theme)
(name (assoc-ref (package-properties icon-theme) 'dark-icon-theme-name))))
(font-name "Ubuntu 10"))))
(service home-zsh-service-type
(home-zsh-configuration
(zshrc (list
(local-file "dotfiles/.zshrc" "zshrc")))))
(service home-files-service-type
`((".config/foot/foot.ini" ,(local-file "dotfiles/foot.ini"))
(".config/waybar/config.jsonc" ,(local-file "dotfiles/waybar/config.jsonc"))
(".config/waybar/style.css" ,(local-file "dotfiles/waybar/style.css"))
(".config/mako/config" ,(local-file "dotfiles/mako"))
;; TODO the services should be started by shepherd
(".start-dwl" ,(start-dwl #:dwl dwl-mine #:waybar waybar-mine))
(".config/gammastep/config.ini" ,(local-file "dotfiles/gammastep.ini"))
(".config/zsh/direnv/direnv" ,direnv)
(".config/zsh/plugins" ,#~(string-append #$(directory-union
"zsh-plugins"
(list zsh-autosuggestions zsh-syntax-highlighting
liquidprompt))
"/share/zsh/plugins"))
(".librewolf/native-messaging-hosts/com.github.browserpass.native.json"
,(file-append
(specification->package "browserpass-native")
"/lib/browserpass/hosts/firefox/com.github.browserpass.native.json"))))
(simple-service
'start-dwl-on-tty
home-shell-profile-service-type
(list
(mixed-text-file "start-dwl-tty"
#~(format
#f
"[ $(tty) = /dev/tty~a ] && \\
~a -p \"$(~a ~a)\" && \\
exec ~a ~a"
1
#$(file-append coreutils "/bin/mkdir")
#$(file-append coreutils "/bin/dirname")
"$XDG_STATE_HOME/log/dwl.log"
#$(start-dwl #:dwl dwl-mine #:waybar waybar-mine)
#$(string-join (list ">>" "$XDG_STATE_HOME/log/dwl.log" "2>&1") " ")))))
(simple-service 'default-fonts
home-fontconfig-service-type
(list
'(alias
(family "monospace")
(prefer (family "Ubuntu Mono")))
'(alias
(family "sansSerif")
(prefer (family "Ubuntu")))
'(alias
(family "serif")
(prefer (family "Ubuntu")))))
(service home-xdg-user-directories-service-type
(home-xdg-user-directories-configuration
(desktop "$HOME/desktop")
(documents "$HOME/doc")
(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/pdf" . "org.pwmt.zathura.desktop")
("image/gif" . "nsxiv.desktop")
("image/jpeg" . "nsxiv.desktop")
("image/png" . "nsxiv.desktop")
("image/tiff" . "nsxiv.desktop")
("image/webp" . "nsxiv.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-wayland-display-service-type)
(service home-wlr-services-service-type
'(waybar kanshi emacs gammastep swayidle
blueman-applet network-manager-applet))
(service home-waybar-service-type
(home-waybar-configuration
(waybar waybar-mine)))
(service home-emacs-service-type
(home-emacs-configuration
(emacs emacs-pgtk)))
(service hydroxide-service-type)
(service mpris-ctld-service-type)
(service home-blueman-applet-service-type)
(service home-network-manager-applet-service-type)
(service home-gammastep-service-type)
(service home-kanshi-service-type
(home-kanshi-configuration
(config
'((profile notebook
((output eDP-1 enable)))
(profile docked
((output eDP-1 disable)
(output DP-9 enable position 0,0)
(output DP-8 enable position 3840,0)
(output DP-7 enable position 1920,0)))
(profile docked-alt
((output eDP-1 disable)
(output DP-12 enable position 0,0)
(output DP-11 enable position 3840,0)
(output DP-10 enable position 1920,0)))))))
(service home-swayidle-service-type
(home-swayidle-configuration
(config
`((before-sleep ,#~(string-append "\"" #$swaylock "/bin/swaylock -fF\""))
(lock ,#~(string-append "\"" #$swaylock "/bin/swaylock -fF\""))
(timeout 30
,#~(string-append "\"" #$mako "/bin/makoctl mode -a idle\"")
resume
,#~(string-append "\"" #$mako "/bin/makoctl mode -r idle\""))
(timeout 1800
,#~(string-append "\"" #$elogind "/bin/loginctl suspend\""))))))
(service home-xdg-desktop-portal-service-type
(xdg-desktop-portal-configuration
(implementations
(list
xdg-desktop-portal-gtk
xdg-desktop-portal-wlr))
(configs
(list
(xdg-desktop-portals-conf
(name "wlroots")
(config
'((preferred ((default . gtk)
(org.freedesktop.impl.portal.ScreenCast . wlr)
(org.freedesktop.impl.portal.Screenshot . wlr)
;; https://github.com/labwc/labwc/discussions/1503
(org.freedesktop.impl.portal.Inhibit . none))))))))))
(service home-gpg-agent-service-type
(home-gpg-agent-configuration
(pinentry-program
(file-append pinentry-gtk2 "/bin/pinentry-gtk-2"))
(max-cache-ttl 72000)
(extra-content
"allow-emacs-pinentry
allow-loopback-pinentry
")))
(service home-pipewire-service-type)
(service home-dbus-service-type))))
;; dconf service, first for the gtk theme imports