(define-module (services emacs)
  #:use-module (gnu)
  #:use-module (gnu home services)
  #:use-module (gnu services)
  #:use-module (gnu services configuration)
  #:use-module (gnu system)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix git-download)
  #:export (bd-home-emacs-service-type))

;;; Commentary:
;;; Code:

(use-package-modules
 emacs
 aspell
 emacs-xyz
 cpp
 gnupg
 mail
 matrix
 lisp)

(define emacs-anki-editor-next
  (let ((url "https://github.com/anki-editor/anki-editor")
        (commit "65b64b3c492aabae1289fff63120187b535a30ab")
        (version "0.3.3")
        (revision "0"))
    (package
      (inherit emacs-anki-editor)
      (name "emacs-anki-editor-next")
      (version (git-version version revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url url)
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "1fgccmk1p91za13mahiz1fh6bb1b1shxhpm9zyrjmg7x73ihhjcn"))))
      (home-page url))))

(define (bd-emacs-package-list config)
  (list
   emacs-next
   pinentry-emacs

   emacs-anki-editor-next
   emacs-emms
   emacs-dash
   emacs-denote
   emacs-elpher
   emacs-exwm
   emacs-f
   emacs-guix
   emacs-paredit
   emacs-pinentry
   emacs-rainbow-delimiters
   emacs-rainbow-mode

   aspell
   aspell-dict-en
   ))


(define bd-home-emacs-service-type
  (service-type (name 'emacs-config)
                (description "A service which bundles required
emacs packages.")
                (extensions
                 (list (service-extension
                        home-profile-service-type
                        bd-emacs-package-list)))
                (default-value #f)))