path: root/src/xyz/euandreh/queue.scm

(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 check)
  #: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 perl-check)
  #:use-module (gnu packages python-build)
  #:use-module (gnu packages python-crypto)
  #:use-module (gnu packages python-web)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages language)
  #:use-module (gnu packages time)
  #:use-module (gnu packages tmux)
  #: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-dict-es-utf8
  (hunspell-dictionary-utf8 "es"))

(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)))

(define-public python-pytest-tornado5
  (package
    (name "python-pytest-tornado5")
    (version "2.0.0")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "pytest-tornado5" version))
        (sha256
         (base32 "0qb62jw2w0xr6y942yp0qxiy755bismjfpnxaxjjm05gy2pymr8d"))))
    (build-system python-build-system)
    (propagated-inputs (list python-pytest python-tornado))
    (home-page "https://github.com/vidartf/pytest-tornado")
    (synopsis
     "A py.test plugin providing fixtures and markers to simplify testing of asynchronous tornado applications.")
    (description
     "This package provides a py.test plugin providing fixtures and markers to
simplify testing of asynchronous tornado applications.")
    (license license:asl2.0)))

;; FIXME
#;
(define-public python-futures
  (package
    (name "python-futures")
    (version "3.3.0")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "futures" version))
        (sha256
          (base32 "154pvaybk9ncyb1wpcnzgd7ayvvhhzk92ynsas7gadaydbvkl0vy"))))
    (build-system python-build-system)
    (home-page "https://github.com/agronholm/pythonfutures")
    (synopsis "Backport of the concurrent.futures package from Python 3")
    (description "Backport of the concurrent.futures package from Python 3")
    (license #f)))

(define-public python-ordereddict
  (package
    (name "python-ordereddict")
    (version "1.1")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "ordereddict" version))
        (sha256
          (base32 "07qvy11nvgxpzarrni3wrww3vpc9yafgi2bch4j2vvvc42nb8d8w"))))
    (build-system python-build-system)
    (arguments
      `(#:phases
        (modify-phases %standard-phases
          (delete 'sanity-check))))
    (home-page "UNKNOWN")
    (synopsis
     "A drop-in substitute for Py2.7's new collections.OrderedDict that works in Python 2.4-2.6.")
    (description "This package provides a drop-in substitute for Py2.7's new
collections.OrderedDict that works in Python 2.4-2.6.")
    (license #f)))

(define-public python-funcsigs
  (package
    (name "python-funcsigs")
    (version "1.0.2")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "funcsigs" version))
        (sha256
          (base32 "0l4g5818ffyfmfs1a924811azhjj8ax9xd1cffr1mzd3ycn0zfx7"))))
    (build-system python-build-system)
    (propagated-inputs
      (list python-ordereddict))
    (native-inputs
      (list python-unittest2))
    (home-page "http://funcsigs.readthedocs.org")
    (synopsis
     "Python function signatures from PEP362 for Python 2.6, 2.7 and 3.2+")
    (description
     "Python function signatures from PEP362 for Python 2.6, 2.7 and 3.2+")
    (license #f)))

(define-public python-apscheduler
  (package
    (name "python-apscheduler")
    (version "3.9.1")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "APScheduler" version))
        (sha256
          (base32 "1qzi1pr7q72vs49p7vr1mp350zaggs52lpq43lvqsjcmcd5mgrk5"))))
    (build-system python-build-system)
    (arguments
      `(#:tests? #f))
    (propagated-inputs
      (list python-funcsigs
            ; python-futures
            python-pytz
            python-setuptools
            python-six
            python-tzlocal))
    (native-inputs
      (list python-mock
            python-pytest
            python-pytest-asyncio
            python-pytest-cov
            python-pytest-tornado5
            python-setuptools-scm))
    (home-page "https://github.com/agronholm/apscheduler")
    (synopsis "In-process task scheduler with Cron-like capabilities")
    (description "In-process task scheduler with Cron-like capabilities")
    (license license:expat)))

(define-public python-telegram-bot
  (package
    (name "python-telegram-bot")
    (version "13.12")
    (source
      (origin
        (method url-fetch)
        (uri
          (pypi-uri "python-telegram-bot" version))
        (sha256
          (base32 "1rbdyr1f9mndlh83in47k8if65yp9n1dy4px2wipbf0qyjv5zxfs"))))
    (build-system python-build-system)
    (arguments
      `(#:tests? #f
        #:phases
        (modify-phases %standard-phases
          (delete 'sanity-check))))
    (native-inputs
      (list python-apscheduler))
    (propagated-inputs
      (list python-apscheduler
            python-cachetools
            python-certifi
            python-pytz
            python-tornado))
    (home-page "https://python-telegram-bot.org/")
    (synopsis "We have made you a wrapper you can't refuse")
    (description "We have made you a wrapper you can't refuse")
    (license #f)))

(define-public python-kaptan
  (package
    (name "python-kaptan")
    (version "0.5.12")
    (source (origin
              (method url-fetch)
              (uri (pypi-uri "kaptan" version))
              (sha256
               (base32
                "1lix7hafsqdpdmiyihykymb1x9bp2s02ik0smzjzq8hlfdb1zg8s"))))
    (build-system python-build-system)
    (arguments
      `(#:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'relax-versions
            (lambda _
              (substitute* "requirements/base.txt"
                (("PyYAML.*") "PyYAML\n"))
              (substitute* "requirements/test.txt"
                (("pytest.*") "pytest\n")))))))
    (native-inputs
      (list python-wheel
            python-pytest))
    (propagated-inputs
      (list python-pyyaml))
    (home-page "https://github.com/emre/kaptan")
    (synopsis "Configuration manager")
    (description "Configuration manager")
    (license license:bsd-3)))

(define-public python-libtmux-latest
  (package
    (name "python-libtmux")
    (version "0.14.2")
    (source (origin
              (method url-fetch)
              (uri (pypi-uri "libtmux" version))
              (sha256
               (base32
                "0j4a7xvzhqi1ybf5jgmvraw4c3axbkqndz6fm7560kww26539viq"))))
    (build-system python-build-system)
    (native-inputs
      (list python-pytest
            tmux))
    (home-page "http://github.com/tmux-python/libtmux/")
    (synopsis "Typed scripting library / ORM / API wrapper for tmux")
    (description "Typed scripting library / ORM / API wrapper for tmux")
    (license license:expat)))

(define-public python-tmuxp
  (package
    (name "python-tmuxp")
    (version "1.13.1")
    (source (origin
              (method url-fetch)
              (uri (pypi-uri "tmuxp" version))
              (sha256
               (base32
                "0l6bsjz5x0bcssrj1y0rf559d50xrw5zkdblghyzk509aags3sj1"))))
    (build-system python-build-system)
    (native-inputs
      (list python-pytest
            tmux))
    (propagated-inputs
      (list python-click
            python-colorama
            python-kaptan
            python-libtmux-latest))
    (home-page "http://github.com/tmux-python/tmuxp/")
    (synopsis "tmux session manager")
    (description "tmux session manager")
    (license license:expat)))

(define-public tmuxp python-tmuxp)

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