(define-module (elenq documentation)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix build-system copy)
  #:use-module (guix gexp)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module (gnu packages haskell-xyz))

(define-public pandoc-templates
  (let ((revision "1")
        (commit "39ad0e6cf9ed895b88041f8babe59506178a6fcb"))
    (package
      (name "pandoc-templates")
      (version (git-version "0.0.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                       (url "git://git.elenq.tech/pandoc-templates")
                       (commit commit)))
                (sha256
                  (base32 "1z2p1dxlgivdgw79f74n2ax84xr8g0q62fsxpwag4dfdmik7131b"))))
      (build-system copy-build-system)
      (arguments (list #:install-plan ''(("pandoc" "/share/pandoc"))))
      (native-search-paths
        (list (search-path-specification
                (variable "XDG_DATA_DIRS") ;; Not supported by pandoc _yet_
                (files '("share")))))
      (home-page "http://git.elenq.tech/pandoc-templates")
      (synopsis "Pandoc templates for ElenQ Technology")
      (description "A set of well configured Pandoc templates for ElenQ
Technology's documents.")
      (license license:asl2.0))))


(define-public elenqdoc
  (let ((revision "1")
        (commit "1cb21742a69f681e6452a7ddd0adc9543aefd72a"))
    (package
      (name "elenqdoc")
      (version "1.0.0")
      (source (origin
                (method git-fetch)
                (uri (git-reference
                       (url "git://git.elenq.tech/elenqdoc")
                       (commit commit)))
                (sha256
                  (base32 "0fdxskf3h14vdr9w5pi18svrz40p9qkbwcn4c4rp1b1azpbfsa6s"))))
      (build-system copy-build-system)
      (inputs (list pandoc-templates))
      (propagated-inputs (list pandoc))
      (arguments
        (list
          #:install-plan ''(("elenqdoc" "/bin/elenqdoc"))
          #:phases
          #~(modify-phases %standard-phases
              (add-after 'install 'wrap
                (lambda _
                  (wrap-program (string-append #$output "/bin/elenqdoc")
                    `("ELENQDOC_DATADIR" =
                      (,(string-append #$pandoc-templates "/share/pandoc/")))))))))
      (home-page "http://git.elenq.tech/")
      (synopsis "Simplified pandoc wrapper for ElenQ documents")
      (description "Provides `elenqdoc` command.")
      (license license:asl2.0))))