;;; Copyright © 2025,2026 bdunahu <bdunahu@operationnull.com>
(define-module (kolwynia home bdunahu packages)
  #:use-module (gnu)
  #:use-module (gnu system)
  #:use-module (guix packages)
  #:use-module (kolwynia utils)
  #:use-module (tanelorn packages fonts)
  #:use-module (tanelorn packages wm)
  #:use-module (tanelorn packages engineering)
  #:use-module (tanelorn packages emacs-xyz)
  #:export (emacs
            browser
            pass
            media
            mail
            tex
            desktop
	    pdf
            fonts
            development
            reverse-engineering
            university
            emulators
            games))

(when hel?
  (use-modules (nongnu packages nvidia)
               (nongnu packages game-client)))

;;; Commentary:
;;; Code:

(use-package-modules
 admin            ;; netcat
 algebra          ;; bc
 aspell           ;; aspell, aspell-dict-en
 assembly         ;; nasm
 base             ;; make
 chromium         ;; ungoogled-chromium
 clojure          ;; clojure
 commencement     ;; gcc-toolchain
 compton          ;; picom
 cpp              ;; ccls
 education        ;; anki
 emacs-build      ;; emacs-dash
 emacs            ;; emacs-next
 emacs-xyz        ;; emacs-emms, etc.
 emulators        ;; mupen64plus*, bsnes, mgba
 engineering      ;; radare2, iaito
 fonts            ;; font-terminus, font-openmoji
 fontutils        ;; fontconfig
 freedesktop      ;; xdg-utils
 games            ;; nethack
 gdb              ;; gdb
 gimp             ;; gimp-next
 gnome            ;; brightnessctl
 gnupg            ;; gnupg, pinentry-emacs
 graphviz         ;; graphviz
 haskell-xyz      ;; pandoc
 image            ;; flameshot
 imagemagick      ;; imagemagick
 image-viewers    ;; feh, nsxiv
 libreoffice      ;; libreoffice
 librewolf        ;; librewolf
 linux            ;; tlp, alsa-plugins
 lisp             ;; sbcl
 luanti           ;; luanti
 machine-learning ;; llama-cpp
 mail             ;; offlineimap
 password-utils   ;; pass-otp, password-store
 pdf              ;; xpdf, pdfgrep, zathura, zathura-pdf-mupdf
 photo            ;; perl-image-exiftool
 pkg-config       ;; pkg-config
 pulseaudio       ;; pavucontrol, pulseaudio,
 python           ;; python
 python-xyz       ;; python-lsp-server
 rsync            ;; rsync
 texlive          ;; texlive, texlive-biber
 tex              ;; texlive-dvipng
 tor-browsers     ;; torbrowser
 video            ;; ffmpeg, mpv, yt-dlp
 virtualization   ;; qemu
 web              ;; jq
 xdisorg          ;; xdotool, xrdb, wmctrl
 xorg) ;; xf86-input-libinput, xf86-video-fbdev, xinit...



(define emacs
  (list emacs-next
        pinentry-emacs
        ;;
        emacs-atomic-chrome
        emacs-cider
        emacs-clojure-mode
        emacs-dash
        emacs-denote
        emacs-denote-journal
        emacs-elpher
        emacs-emms
        emacs-exwm
        emacs-f
        emacs-gptel
        emacs-guix
        emacs-hydra
        emacs-jeison
        emacs-lua-mode
        emacs-paredit
        emacs-pinentry
        emacs-rainbow-delimiters
        emacs-rainbow-mode
        emacs-s
        emacs-slime
        emacs-vterm
        emacs-yasnippet
        ;;
        aspell              ;for ispell
        aspell-dict-en      ;
        wmctrl              ;for exwm
        perl-image-exiftool ;for emms
        ccls                ;for eglot
        python-lsp-server   ;
        llama-cpp))         ;for emacs-gptel

(define browser
  (list torbrowser
        ungoogled-chromium
        librewolf))

(define pass
  (list gnupg
        pass-otp
        password-store))

(define media
  (list feh
        ffmpeg
        flameshot
        gimp
        imagemagick
        mpv
        nsxiv
        pandoc
        yt-dlp))

(define mail
  (list offlineimap3))

(define tex
  (list texlive
        texlive-biber
        texlive-dvipng
        texlive-pgfgantt
        texlive-libertinus))

(define desktop
  (list alsa-plugins
        eww/x11
        pavucontrol
        (if hel? (replace-mesa picom) picom)
        pulseaudio
        setxkbmap
        xauth
        xdg-utils
        xf86-input-libinput
        xf86-video-fbdev
        xinput
        xkbcomp
        xorg-server
        xrandr
        xrdb
        xset
        xss-lock))

(define pdf
  (list pdfgrep
        xpdf ;pdftotext
        zathura
        zathura-pdf-mupdf))

(define fonts
  (list fontconfig
        font-iosevka
        font-medieval-sharp
        font-openmoji
        font-runa-mono
        font-terminus
        font-libertinus))

(define development
  (list bc
        cl-asdf
        clojure
        clojure-tools
        gcc-toolchain
        gdb
        gnu-make
        pkg-config
        python
        jq
        netcat
        sbcl))

(define reverse-engineering
  (list nasm
        iaito
        radare2))

(define university
  (list anki
        graphviz
        libreoffice
        qemu))

(define emulators
  (list bsnes
        dolphin-emu
        mgba
        mupen64plus-ui-console
        mupen64plus-video-glide64mk2))

(define games
  (cons* crawl-tiles
         luanti
         (if hel? (list steam-nvidia) '())))

;;; packages.scm ends here