(define-module (data-gitea-markdown-package)
  #:use-module (guix)
  #:use-module (guix build-system haskell)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (gnu packages golang-xyz)
  #:use-module (gnu packages haskell-web)
  #:use-module (gnu packages haskell-xyz))

(define vcs-file?
  (or (git-predicate (string-append (current-source-directory) "/../.."))
      (const #t)))

(define-public data-gitea-markdown
  (package
    (name "data-gitea-markdown")
    (version "0.0.1")
    (source (local-file "../../gitea-markdown" "data-gitea-markdown"
                        #:recursive? #t
                        #:select? vcs-file?))
    (build-system haskell-build-system)
    (arguments
      (list
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'install 'wrap-binaries
             (lambda _
               (wrap-program
                 (string-append #$output "/bin/gitea-markdown")
                 `("PATH" = (,(string-append #$(this-package-input "go-chroma") "/bin")))))))))
    (inputs
      (list ghc-pandoc
            ghc-pandoc-types
            ghc-tagsoup
            go-chroma))
    (home-page "")
    (synopsis "")
    (description "")
    (license license:agpl3+)))