modern_lisp-machine/home-configuration/home-configuration.scm

393 lines
13 KiB
Scheme

;; 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)
(radix packages)
(radix packages image-viewers)
(gnu home services desktop)
(gnu packages)
(gnu services)
(gnu packages java)
(gnu packages librewolf)
(gnu packages guile-xyz)
(gnu packages haskell)
(gnu packages gimp)
(gnu packages ebook)
(gnu home services syncthing)
(gnu packages tor)
(gnu packages sync)
(gnu packages package-management)
(gnu packages syncthing)
(guix gexp)
(gnu packages rust-apps)
(gnu home services)
(gnu home services shells)
(gnu home services fontutils)
(gnu home services xdg)
(gnu packages image)
(gnu packages mpd)
(gnu packages disk)
(gnu packages emacs-xyz)
(gnu packages text-editors)
(gnu packages xfce)
(gnu packages image-viewers)
(gnu packages gnupg)
(gnu packages freedesktop)
(gnu packages fonts)
(gnu packages qt)
(gnu packages mail)
(gnu packages compression)
(gnu packages xml)
(gnu packages bittorrent)
(gnu packages xorg)
(gnu packages gstreamer)
(gnu packages xdisorg)
(gnu packages video)
(gnu packages emulators)
(gnu packages web-browsers)
(gnu packages tmux)
(gnu packages terminals)
(gnu packages linux)
(gnu packages python)
(gnu packages cmake)
(gnu packages readline)
(gnu packages curl)
(gnu packages pdf)
(gnu packages glib)
(gnu packages admin)
(gnu packages lisp-xyz)
(gnu packages wm)
(gnu packages compton)
(gnu packages lisp)
(gnu packages music)
(gnu packages version-control)
(gnu packages lxqt)
(gnu packages emacs)
(srfi srfi-26))
(define fontconfig
'(fontconfig
(comment " Set subpixel arrangement for all fonts ")
(match ((target "font")
(edit (@ (name "rgba") (mode "assign"))
(const "bgr"))
(edit (@ (name "hrgba") (mode "assign"))
(const "bgr"))
(edit (@ (name "hinting") (mode "assign"))
(bool "true")))
(comment " Alias for Migu 1P font ")
(alias ((family "sans-serif")
(prefer (family "Migu 1P")))))))
(define-syntax-rule
(associate-right (association keys) ...)
`(,@(map (cut cons <> association) keys) ...))
(home-environment
(packages (cons* flameshot
ncmpcpp
;; gd-tools
wmctrl
lf
ranger
emacs-org-roam
guile-ares-rs
emacs-arei
;; multimonitor
xset
librewolf
arandr
;;
;;
;;
;; sselp
syncthing
nano
gimp
thunar
net-tools
mcomix
pinentry
;; goldendict-ng
xdg-utils
font-google-material-design-icons
gst-plugins-good-qt
;;unrar
qtmultimedia
sylpheed
zpaq
;; xpad-module
unzip
zip
emacs-esxml
html-xml-utils
emacs-rainbow-delimiters
aria2
xdg-desktop-portal
xdg-desktop-portal-gtk
gnupg
xprop
;;nicotine+
nextcloud-client
yt-dlp
higan
librewolf
nyxt
sbcl-coleslaw
emacs-nyxt
tmux
alacritty
lm-sensors
;; anki
ripgrep
emacs-olivetti
emacs-deadgrep
emacs-rg
emacs-dumb-jump
;; foliate
emacs-slime
python
xrdb
dbus
;; steam
;; make
p7zip
tor-client
cmake
;;
emacs-dirvish
readline
curl
librewolf
qpdfview
xclip
emacs-nerd-icons
emacs-telega
;; anki
flatpak
flatpak-xdg-utils
;;----
htop
cl-clx
openjdk
neofetch
kitty
picom
calibre
feh
xsel
rofi
sbcl
cmus
;; xmonad
xmonad
ghc
xmobar
ghc-xmonad-contrib
;;-----------------
zstd
;; suckless-dictpopup
scrot
cl-css
git
gst-plugins-good
gst-plugins-bad
gstreamer
pavucontrol-qt
mpv
emacs
ueberzug++
(specifications->packages
(list "steam"
"guile"
;; "ueberzug++"
"fcitx5-gtk4"
"fcitx5-qt"
"fcitx5-gtk"
"navidrome-bin"
"torbrowser"
"unrar"
"nicotine+"
"librewolf"
"zpaq"
"gimp"
"foliate"
"tor-client"
"make"
"element-desktop"
"font-apple-color-emoji"))))
;; 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
(aliases '(("analyze_video" . "~/.local/bin/analyze_video.sh")
("ct" . "~/.local/bin/compatibility.sh")
("grep" . "grep --color=auto")
("update" . "guix pull && sudo guix system reconfigure .config/guix/config.scm")
("lf" . "~/.local/bin/lf/lfrun")
("ps2" . "nohup flatpak run --filesystem=/mnt/Data net.pcsx2.PCSX2 > /dev/null 2>&1 &")
("ocr" . "sudo /nix/var/nix/profiles/default/bin/manga_ocr")
("ll" . "ls -l")
("ls" . "ls -p --color=auto")
("run_code" . "g++ -o main main.cc -Ofast -std=c++23 -s -flto -march=native -I ~/dev/ajatt/hakurei/include/ && ./main")
("rgf" . "rg --files | rg")
("dufh" . "/nix/var/nix/profiles/default/bin/duf -hide-fs tmpfs,ext4,devtmpfs,vfat")
("mpv" . "mpv --audio-pitch-correction=yes --vf=setpts=PTS/1")
("record" . "ffmpeg -f x11grab -r 23 -s 1366x768 -i $DISPLAY -f pulse -i nui_mic_remap -filter_complex '[1:a]volume=2.0[a]' -map 0:v -map '[a]' -c:v libx264 -pix_fmt yuv420p -preset ultrafast -crf 23 -y /tmp/output.mp4")
("isolate" . "guix shell --container --network --preserve='^DISPLAY$' \
--preserve='^XAUTHORITY$' --expose=$XAUTHORITY --expose=/etc/ssl/certs --no-cwd ")))
(bashrc (list (local-file
"/home/hashirama/src/guix-config/.bashrc"
"bashrc")))
(bash-profile (list (local-file
"/home/hashirama/src/guix-config/.bash_profile"
"bash_profile")))
(environment-variables
'(
("GTK_IM_MODULE"
. "fcitx")
("QT_IM_MODULE"
. "fcitx")
("GUIX_GTK2_IM_MODULE_FILE"
. "/run/current-system/profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache")
("GUIX_GTK3_IM_MODULE_FILE"
. "/run/current-system/profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache")
("XMODIFIERS=@im="
. "fcitx")
("INPUT_METHOD"
. "fcitx")
("XIM_PROGRAM"
. "fcitx")
("GLFW_IM_MODULE"
. "ibus")
("GUILE_LOAD_PATH"
. "$HOME/dev/guix_channel/ajatt-tools-guix:$GUILE_LOAD_PATH")
("XMONAD_CONFIG_DIR"
. "$HOME/.xmonad")
("GUIX_PROFILE=$HOME/.config/guix/current"
. "$GUIX_PROFILE/etc/profile")
))
))
(service home-syncthing-service-type
(for-home
(syncthing-configuration
(user "hashirama"))))
(service home-xdg-mime-applications-service-type
(home-xdg-mime-applications-configuration
(default (associate-right
('librewolf.desktop
`("text/html"
"application/xhtml+xml"
"application/x-extension-htm"
"application/x-extension-xhtml"
"application/x-extension-xht"
"x-scheme-handler/http"
"x-scheme-handler/https"))
('emacs.desktop
`("text/plain"
"text/troff"
"text/xml"
"text/x-c"
"text/x-c++"
"text/x-diff"
"text/x-lisp"
"text/x-scheme"
"text/x-shellscript"
"text/x-tex"))
('lf.desktop
`("inode/directory"
"x-scheme-handler/ftp"
"x-scheme-handler/nfs"
"x-scheme-handler/smb"
"x-scheme-handler/ssh"
"application/x-directory"))
('mpv.desktop
`("image/gif"
"audio/mpeg"
"audio/ogg"
"audio/opus"
"audio/x-opus+ogg"
"audio/flac"
"video/mp4"
"application/octet-stream"
"video/mp2t"
"video/x-matroska"
"video/webm"))
('nsxiv.desktop
`("image/avif"
"image/bmp"
"image/jpeg"
"image/png"
"image/svg+xml"
"image/webp"))
('emacs.desktop
`("image/vnd.djvu"))
('foliate.desktop
`("application/epub+zip"))
('sioyek.desktop
`("application/pdf"))
))))
(simple-service 'font-antialias
home-fontconfig-service-type
(list "~/.local/share/fonts" fontconfig))
(simple-service 'bash-fancy-prompt
home-bash-service-type
(home-bash-extension
(environment-variables
'(("PS1" . "\\u \\wλ ")))))
(simple-service 'environment-variables-service
home-environment-variables-service-type
`(#|Shells|#
("PATH" . "$HOME/.local/bin:$PATH")
("XINITRC" . "$XDG_CONFIG_HOME/.xinitrc")
#|Guile|#
("GUILE_WARN_DEPRECATED" . "detailed")
("GUILE_LOAD_PATH"
. "$HOME/dev/guix_channel/ajatt-tools-guix:$GUILE_LOAD_PATH")
#|IME|#
("GTK_IM_MODULE" . "fcitx")
("QT_IM_MODULE" . "fcitx")
("XMODIFIERS" . "@im=fctix")
#|Dictionary|#
("STARDICT_DATA_DIR" . "/mnt/Data/Japanese_Resources/languages-study(japanesAndRussian)/dicts/stardict/being_used")
#|Language|#
("LANG" . "en_US.UTF-8")
("LANGUAGE" . "en_US.UTF-8")
("LC_COLLATE" . "C")
#|Default applications|#
("BROWSER" . "nyxt")
("EDITOR" . "emacs")
("FCEDIT" . "emacs")
("PAGER" . "less")
("READER" . "foliate")
("SHELL" . "bash")
("TERMINAL" . "alacritty")
("VISUAL" . "nsxiv")
("WM" . "xmonad")))))
)