(define-module (xyz euandreh queue)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (ice-9 match)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system perl)
  #:use-module (guix build-system python)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages)
  #:use-module (gnu packages aspell)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages base)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages flex)
  #:use-module (gnu packages groff)
  #:use-module (gnu packages libreoffice)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages perl-check)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages language)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages markup))

(define-public grap
  (package
    (name "grap")
    (version "1648c3a1dafed63969f23ce2a904ff68df21892c")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/snorerot13/grap")
                    (commit "1648c3a1dafed63969f23ce2a904ff68df21892c")))
              (sha256
               (base32
                "0zjzmp2bqig8ni20hw40d99rl1wasyhjl7hwl3wqr7q3lc4dcgwb"))))
    (build-system gnu-build-system)
    (arguments
     `(#:parallel-build? #f
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'autogen
           (lambda _
             (invoke "autoreconf" "-vif"))))))
    (native-inputs
     `(("automake" ,automake)
       ("autoconf" ,autoconf)
       ("bison" ,bison)
       ("groff" ,groff)
       ("flex" ,flex)))
    (synopsis "grap tool for troff graphs")
    (description "This is grap, an implementation of Kernighan and
Bentley's grap language for typesetting graphs.  I got sick of groff
not having a version of grap, so I built one.")
    (home-page "https://github.com/snorerot13/grap")
    (license license:bsd-3)))

(define (hunspell-dictionary-utf8 dict-name)
  (package
    (name (string-append "hunspell-dict-" dict-name "-utf8"))
    (version "630b34e6f8f3cbe7aa7b27b6d8ab118e27252fd1")
    (source (origin
             (method git-fetch)
             (uri (git-reference
                   (url "https://github.com/wooorm/dictionaries")
                   (commit version)))
             (file-name (git-file-name "hunspell-dictionary-utf8" version))
             (sha256
              (base32 "1iknwzh5h04m067ddw9hlzc1qqj4mr9mdkcfapsnay304laaiyn5"))))
    (build-system trivial-build-system)
    (arguments
     `(#:modules ((guix build utils))
       #:builder (begin
                   (use-modules (guix build utils))
                   (let ((source-prefix (string-append (assoc-ref %build-inputs "source")
                                                       "/dictionaries/"
                                                       ,dict-name
                                                       "/index"))
                         (install-prefix (string-append %output "/share/hunspell/")))
                     (mkdir-p install-prefix)
                     (copy-file (string-append source-prefix ".aff")
                                (string-append install-prefix ,dict-name ".aff"))
                     (copy-file (string-append source-prefix ".dic")
                                (string-append install-prefix ,dict-name ".dic"))))))
    (synopsis (string-append "Hunspell " dict-name " dictionary in UTF-8"))
    (description (string-append "Hunspell " dict-name " dictionary in UTF-8"))
    (license license:expat)
    (home-page "https://github.com/wooorm/dictionaries")))

(define-public hunspell-dict-en-utf8
  (hunspell-dictionary-utf8 "en"))

(define-public hunspell-dict-pt-utf8
  (hunspell-dictionary-utf8 "pt"))

(define-public hunspell-dict-fr-utf8
  (hunspell-dictionary-utf8 "fr"))

(define-public hunspell-dict-eo-utf8
  (hunspell-dictionary-utf8 "eo"))

(define-public hunspell-iconv
  (package
    (inherit hunspell)
    (name "hunspell-iconv")
    (inputs
     `(("libiconv" ,libiconv)
       ,@(package-inputs hunspell)))))

;; Wait for upstream to release 0.2.1, or 0.3.0
(define-public python-flake8-implicit-str-concat-patched
  (package
    (inherit python-flake8-implicit-str-concat)
    (name "python-flake8-implicit-str-concat-patched")
    (propagated-inputs
     `(("python-attrs" ,python-attrs-bootstrap)
       ,@(alist-delete "python-attrs" (package-propagated-inputs
                                       python-flake8-implicit-str-concat))))))

;; Wait for python-flake8-implicit-str-concat to be updated to send in one batch
;; Wait for PR to be merged upstream:
;; https://github.com/dominickpastore/pymd4c/pull/28
(define python-pymd4c-latest
  (package
    (inherit python-pymd4c)
    (version "8d58510d801d1765e9f83e3d153fb81a8e3b17a2")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/dominickpastore/pymd4c")
                    (commit version)))
              (sha256
               (base32
                "1pj8bhps7421ig3rgwmdxg0974di2l0skyc3kmp0mbk9l9yqig8f"))))))

;; Depends on python-flake8-implicit-str-concat to be updated
(define-public mdpo-patched
  (package
    (inherit mdpo)
    (name "mdpo-patched")
    (version "0.3.63")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "mdpo" version))
       (sha256
        (base32 "0p8nbyqlljqfm38yj2nl2am5bkd1pf37ybwymrhs7dlk04zm9a6b"))))
    (native-inputs
     `(("python-flake8-implicit-str-concat" ,python-flake8-implicit-str-concat-patched)
       ,@(alist-delete "python-flake8-implicit-str-concat"
                       (package-native-inputs mdpo))))
    (propagated-inputs
     `(("python-pymd4c" ,python-pymd4c-latest)
       ,@(alist-delete "python-pymd4c"
                       (package-propagated-inputs mdpo))))))

(define-public python-docx
  (package
    (name "python-docx")
    (version "0.8.11")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "python-docx" version))
        (sha256
          (base32 "1i7bxghb7knlyjain101qg1jmmz2b6qj03bi3vfxhvcml0rx418i"))))
    (build-system python-build-system)
    (arguments
      `(#:tests? #f))
    (propagated-inputs
      (list python-lxml))
    (home-page "https://github.com/python-openxml/python-docx")
    (synopsis "Create and update Microsoft Word .docx files.")
    (description "Create and update Microsoft Word .docx files.")
    (license #f)))

(list
 grap
 hunspell-iconv
 hunspell-dict-en-utf8
 hunspell-dict-pt-utf8
 hunspell-dict-fr-utf8
 hunspell-dict-eo-utf8
 python-flake8-implicit-str-concat-patched
 python-pymd4c-latest
 mdpo-patched
 python-docx)