(define-module (org euandre packages)
  #:use-module ((im papo packages) #:prefix pkgs:)
  #:use-module ((guix licenses) #:prefix licenses:)
  #:use-module (gnu)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:export ())
(use-package-modules
  compiler-tools
  gcc
  video
  xml)
(use-service-modules)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Config ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define +working-dir+
  (dirname (dirname (dirname (current-source-directory)))))

(define +tld+
  (string-trim-right
   (pkgs:slurp
    (pkgs:str +working-dir+ "/tld.txt"))))




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;; Package definition functions ;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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 licenses:expat)
    (home-page "https://github.com/wooorm/dictionaries")))




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Inherited packages ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-public gm2
  (package
    (inherit gcc)
    (name "gm2")
    (arguments
      (substitute-keyword-arguments (package-arguments gcc)
        ((#:modules modules %default-gnu-modules)
         (append '((ice-9 regex))
                 modules))
        ((#:configure-flags flags)
         #~(append
            '("--enable-languages=m2")
            (filter (lambda (s)
                      (not (string-match "--enable-languages.*" s)))
                    #$flags)))))
    (native-inputs
      (modify-inputs (package-native-inputs gcc)
        (append flex)))))

(define-public ffmpegx
  (package
    (inherit ffmpeg)
    (name "ffmpegx")
    (arguments
      (substitute-keyword-arguments (package-arguments ffmpeg)
        ((#:configure-flags flags)
         #~(append
            #$flags
            '("--enable-libxml2")))))
    (inputs
      (modify-inputs (package-inputs ffmpeg)
        (append libxml2)))))

(define-public mpvx
  (package
    (inherit mpv)
    (name "mpvx")
    (propagated-inputs
      (modify-inputs (package-propagated-inputs mpv)
        (replace "ffmpeg" ffmpegx)))))




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Our packages ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#;
(define-public euandre.org
  (pkgs:mkwbpkg
   +tld+
   "euandre.org"
   (list pkgs:adocg pkgs:eslaides pkgs:eut pkgs:mktorrent pkgs:mkwb)
   '(ghostscript gnupg imagemagick lilypond moreutils ruby-asciidoctor
     tidy-html)
   "7c016c48b6356147c567a9222de45dd50dd8a405"
   "18fx5ww67hligr2mfgcvcmn4pdwjnr4qqgkbh306ia7rd2km8yyw"
   ""
   ""))

(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-dict-de-utf8
  (hunspell-dictionary-utf8 "de"))

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



(list
 gm2
 ffmpegx
 mpvx
 ; euandre.org
 hunspell-dict-en-utf8
 hunspell-dict-pt-utf8
 hunspell-dict-fr-utf8
 hunspell-dict-eo-utf8
 hunspell-dict-es-utf8
 hunspell-dict-de-utf8
 hunspell-dict-it-utf8)