(define-module (leo packages prosody)
  #:use-module (leo packages luaexpat)
  #:use-module (leo packages luafilesystem)
  #:use-module (leo packages luasec)
  #:use-module (leo packages luasocket)
  #:use-module (gnu packages libidn)
  #:use-module (gnu packages lua)
  #:use-module (gnu packages tls)
  #:use-module (guix build-system gnu)
  #:use-module (guix download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  )

(define-public prosody
  (package
    (name "prosody")
    (version "0.9.8")
    (source (origin
             (method url-fetch)
             (uri (string-append
                  "https://prosody.im/downloads/source/prosody-" version
                  ".tar.gz"))
             (sha256
              (base32 "0wbq4ps69l09fjb5dfjzab6i30hzpi4bvyj5kc44gf70arf42w4l"))))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f ; I don't know how to run the test suite
       #:phases
       (modify-phases %standard-phases
         (replace 'configure
		  (lambda* (#:key build inputs outputs #:allow-other-keys)
		    (let ((out (assoc-ref outputs "out"))
;			  (lua (assoc-ref inputs "lua"))
;			  (libidn (assoc-ref inputs "libidn"))
;			  (openssl (assoc-ref inputs "openssl"))
                          )
                      (setenv "CONFIG_SHELL" (which "bash"))    
		      (zero? (system* "./configure"
				     (string-append "--prefix=" out)
				     (string-append "--no-example-certs")
				     )))))))) 
    ;; TODO: Figure out what is a native-input and what is an input.
    ;; https://prosody.im/doc/installing_from_source
    ;; https://prosody.im/doc/depends
    (inputs
      `(
        ("luaexpat" ,luaexpat)
        ("lua" ,lua-5.1)
        ("libidn" ,libidn)
        ("luafilesystem" ,luafilesystem)
        ("luasocket" ,luasocket)
        ("luasec" ,luasec)
        ("openssl" ,openssl)))
    (synopsis "Hello, GNU world: An example GNU package")
    (description "Guess what GNU Hello prints!")
    (home-page "http://www.gnu.org/software/hello/")
    (license (list license:gpl3+ 
              license:x11  
              license:lgpl2.1+ 
              license:openssl))))