;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Robin Templeton <robin@igalia.com>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages phabricator)
  #:use-module (gnu packages php)
  #:use-module (gnu packages version-control)
  #:use-module (guix build-system gnu)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages))

(define-public arcanist
  (let ((commit "ceb082ef6b2919d76a90d4a53ca84f5b1e0c2c06")
        (revision "2"))
    (package
      (name "arcanist")
      (version (git-version "0.0.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/phacility/arcanist")
                      (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "16590nywh3cpm2yq4igw3nfa8g84kwza215mrnqr2k6b2cqzjak3"))))
      (build-system gnu-build-system)
      ;; TODO: Unbundle jsonlint
      (arguments
       '(#:tests? #f
         #:phases
         (modify-phases %standard-phases
           (delete 'configure)
           (delete 'build)
           (replace 'install
             (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (bin (string-append out "/bin"))
                      (lib (string-append out "/lib/arcanist")))
                 (mkdir-p lib)
                 (copy-recursively "." lib)
                 (mkdir-p bin)
                 (symlink (string-append lib "/bin/arc")
                          (string-append bin "/arc"))
                 (wrap-program (string-append bin "/arc")
                   `("PATH" ":" prefix
                     (,@(map (lambda (i)
                               (string-append (assoc-ref %build-inputs i) "/bin"))
                             '("php" "git" "mercurial" "subversion"))))))
               #t))
           (add-before 'reset-gzip-timestamps 'make-compressed-files-writable
             (lambda _
               (for-each make-file-writable
                         (find-files %output ".*\\.t?gz$"))
               #t)))))
      (inputs
       `(("php" ,php)
         ("git" ,git)
         ("mercurial" ,mercurial)
         ("subversion" ,subversion)))
      (home-page "https://github.com/phacility/arcanist")
      (synopsis "Command-line interface for Phabricator")
      (description
       "Arcanist is the command-line tool for the Phabricator software
development service.  It allows you to interact with Phabricator installs to
send code for review, download patches, transfer files, view status, make API
calls, and various other things.")
      ;; Bundled libraries are expat-licensed.
      (license (list license:asl2.0 license:expat)))))

(define-public libphutil
  (deprecated-package "libphutil" arcanist))
ackages/speech.scm?id=a870b80046d532329762095683d8f9c33538eaf1'>gnu: festival: Fix scripts.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/speech.scm (festival)[arguments]: Fix broken shebangs in
scripts.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-09-18 10:19:16 +0200'>2019-09-18</span></td><td><a href='/guix/commit/gnu/packages/speech.scm?id=dfcf79ac5943c68dc8013aa333add3f881e894aa'>gnu: festival: Include default voice.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/speech.scm (festival)[arguments]: Install default voice.
[native-inputs]: Add default voice.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-09-17 19:04:05 +0200'>2019-09-17</span></td><td><a href='/guix/commit/gnu/packages/speech.scm?id=17bbd30d877cb361e6236ccb0e6b3166452f9214'>gnu: festival: Install missing info files.</a><span class='msg-avail'>...<span class='msg-tooltip'>Reported by reepca on the #guix IRC channel.

This is a follow-up to commit 34583ec6e3995f5dd1ebf549265f0d64bbf23ab7.

* gnu/packages/speech.scm (festival)[arguments]: Install missing info files.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-09-17 17:16:43 +0200'>2019-09-17</span></td><td><a href='/guix/commit/gnu/packages/speech.scm?id=34583ec6e3995f5dd1ebf549265f0d64bbf23ab7'>gnu: Add festival.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/speech.scm (festival): New variable.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-05-13 00:17:37 +0200'>2019-05-13</span></td><td><a href='/guix/commit/gnu/packages/speech.scm?id=6ced4433c776ccba8aec8073371aa085720a8a02'>gnu: speech-dispatcher: Update to 0.9.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/speech.scm (speech-dispatcher): Update to 0.9.1.
[arguments]: Add "--with-ibmtts=no" to #:configure-flags.
[license]: Remove GPL2.
</span></span>