(define-module (radio packages emacs-xyz)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages emacs-xyz)
  #:use-module (gnu packages guile-xyz)
  #:use-module (gnu packages haskell-apps)
  #:use-module (gnu packages imagemagick)
  #:use-module (gnu packages mail)
  #:use-module (radix packages emacs-xyz)
  #:export (packages:emacs
            packages:all
            packages:blogging
            packages:completion
            packages:file-managing
            packages:guile
            packages:guix
            packages:haskell
            packages:mathematics
            packages:misc
            packages:modal-editing
            packages:org
            packages:social-media
            packages:terminal
            packages:writing))

;; https://github.com/rougier/svg-lib

(define packages:emacs
  (list emacs-next-pgtk
        emacs-no-littering
        emacs-centaur-tabs
        emacs-helpful))

(define packages:modeline
  (list emacs-diminish))

(define packages:completion
  (list emacs-anzu emacs-cape emacs-corfu emacs-corfu-doc emacs-consult-lsp
        emacs-marginalia emacs-orderless emacs-vertico))

(define packages:file-managing
  (list emacs-dirvish emacs-dired-hide-dotfiles emacs-all-the-icons imagemagick))

(define packages:ide
  (list emacs-magit emacs-hl-fill-column emacs-origami-el))

(define packages:guile
  (list emacs-arei guile-ares-rs emacs-macrostep-geiser emacs-geiser-eros
        emacs-flycheck emacs-flycheck-guile emacs-lispy emacs-rainbow-delimiters
        emacs-lispyville emacs-isayt emacs-puni))

(define packages:guix
  (cons emacs-guix packages:guile))

(define packages:haskell
  (list emacs-haskell-mode emacs-dante))

(define packages:themes
  (list emacs-ef-themes))

;; https://github.com/oantolin/embark ?
(define packages:modal-editing
  (list emacs-meow
        #|emkaks|# emacs-zones emacs-expand-region emacs-ryo-modal
                   emacs-visual-regexp emacs-undo-tree
        emacs-selected emacs-crux))

(define packages:misc
  (list #|maps     |# emacs-osm
        #|pulsar   |# emacs-pulsar))

(define packages:communication
  (list #|irc |# emacs-circe
        #|mail|# emacs-notmuch))

(define packages:mathematics
  (list emacs-lean4-mode))

(define packages:org
  (list emacs-org-auto-tangle emacs-org-bullets emacs-org-fragtog emacs-org-present
        emacs-org-roam emacs-org-modern emacs-olivetti)) ;emacs-org-pdftools

(define packages:studying
  (list emacs-gnosis
        emacs-hyperbole
        emacs-pdf-tools
        emacs-saveplace-pdf-view))

(define packages:social-media
  (list emacs-mastodon))

(define packages:terminal
  (list emacs-eat))

(define packages:writing
  (list emacs-auctex emacs-latex-preview-pane))

(define packages:blogging
  (cons* emacs-ox-haunt
         packages:writing))

(define packages:all
  (append packages:emacs
          packages:blogging
          packages:completion
          packages:communication
          packages:file-managing
          packages:guile
          packages:guix
          packages:haskell
          packages:ide
          packages:mathematics
          packages:misc
          packages:modal-editing
          packages:modeline
          packages:org
          packages:studying
          packages:social-media
          packages:terminal
          packages:themes
          packages:writing))