;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2019 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;;
;;; 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 anthy)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public anthy
  (package
    (name "anthy")
    (version "9100h")
    (source
     (origin
       (method url-fetch)
       ;; The URI does not appear to be easily guessable.  For
       ;; example, you cannot download version "9100g" simply
       ;; by replacing "9100h" in the URI.
       (uri (list (string-append "https://ftp.jaist.ac.jp/pub/Linux/Gentoo/"
                                 "distfiles/31/anthy-9100h.tar.gz")
                  "https://osdn.dl.osdn.net/anthy/37536/anthy-9100h.tar.gz"))
       (sha256
        (base32 "0ism4zibcsa5nl77wwi12vdsfjys3waxcphn1p5s7d0qy1sz0mnj"))))
    (build-system gnu-build-system)
    ;; Anthy also contains elisp modules for using anthy within Emacs.
    ;; However, these modules are incompatible with the latest version
    ;; of Emacs.  This is because they rely on the presence of
    ;; last-command-char, which was removed in Emacs 24.3.  So, we
    ;; don't try to install them here at this time.
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (replace 'check
           (lambda _
             (with-directory-excursion "test"
               (invoke "./anthy" "--all")))))))
    (home-page "https://anthy.osdn.jp/")
    (synopsis "Japanese input method")
    (description "Anthy is a Japanese input method for converting
hiragana text to mixed kana and kanji.  It is written in the C
programming language.  Anthy stores personal customizations (words it
has learned from the user's input, words the user has explicitly
added, etc.) in the @file{~/.anthy/} directory.  This package contains the
anthy C libraries, the cannadic and alt-cannadic kana dictionaries, as
well as command-line tools for using anthy and managing
dictionaries.")
    ;; Most of anthy is lgpl2.1+.  However, some files (e.g., from
    ;; alt-cannadic) use gpl2.  See the file "COPYING" in the anthy
    ;; source for details.
    (license (list lgpl2.1+ gpl2))))
'>* gnu/packages/animation.scm (pencil2d): New variable.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Pkill -9</td></tr>
<tr><td><span title='2018-06-27 12:46:39 +0200'>2018-06-27</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=6023fa366db309202181e696f6aeee1d64ec331f'>gnu: papagayo: Return #t from all phases.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/animation.scm (papagayo)[arguments]: Substitute INVOKE
for SYSTEM*.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-06-22 22:00:24 +0200'>2018-06-22</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=eeb8b0e631f6487a3bf138f23aa4792c4e3d3a2e'>gnu: Use more HTTPS.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/admin.scm (net-base, wakelan, pam-krb5)
[home-page]: Use HTTPS.
(dfc, libpcap, tcpdump, wpa-supplicant-minimal, libcap-ng, audit)
[source, home-page]: Likewise.
* gnu/packages/algebra.scm (eigen)[home-page]: Likewise.
(gp2c, pari-gp)[source, home-page]: Likewise.
* gnu/packages/animation.scm (etl, synfig, synfigstudio, papagayo)
[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (tadbit)[home-page]: Likewise.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-03-04 11:01:39 +0200'>2018-03-04</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=a18ee793d7ada1bb46ecc2de91d8177ea6e15531'>gnu: papagayo: Declare a source file-name.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/animation.scm (papagayo)[source]: Declare a source
file-name.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-10-24 07:54:43 +0200'>2017-10-24</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=2809a355b6473d947db24a0d80b4d2e8c454d9d7'>gnu: Add papagayo.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/animation.scm (papagayo): New variable.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-07-26 12:27:12 +0200'>2017-07-26</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=d39238cf3d71abaacb57317499692217bf24235c'>gnu: synfig: Fix boost build error.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/animation.scm (synfig)[arguments]: Add phase
"fix-boost-build-error".
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-05-31 08:27:45 +0200'>2017-05-31</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=ae44ebb90e2abf4867c6ae24556e3129a3069816'>gnu: synfigstudio: Fix crash on opening files.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/animation.scm (synfigstudio)[arguments]: Add "wrap-program"
phase.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-05-28 15:59:52 +0200'>2017-05-28</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=2ac2b17251be51778963e6ced0b83e461d175d01'>gnu: synfigstudio: Fix UI bug.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/patches/synfigstudio-fix-ui-with-gtk3.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add patch.
* gnu/packages/animation.scm (synfigstudio)[source]: Apply patch.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-05-27 22:37:48 +0200'>2017-05-27</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=21fea1d1a9316a0eaf7e8e600cc8e6554fc5fb9a'>gnu: synfigstudio: Update to 1.2.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/patches/synfig-build-fix.patch: Delete file.
* gnu/local.mk (dist_patch_DATA): Remove patch.
* gnu/packages/animation.scm (etl): Update to 0.04.22.
(synfig): Update to 1.2.0.
[source]: Remove patch.
[arguments]: Remove obsolete build phases.
[propagated-inputs]: Add fftw.
(synfigstudio): Update to 1.2.0.
[source]: Remove unnecessary snippet.
[arguments]: Remove.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2016-09-23 07:45:16 +0200'>2016-09-23</span></td><td><a href='/guix/commit/gnu/packages/animation.scm?id=5989d4eaac8b1b98805d1e85df16f89690dc5b4e'>gnu: synfig: Fix isnan error.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/animation.scm (synfig)[arguments]: Add build phase to
replace "::isnan" with "std::isnan".
</span></span></td><td>Ricardo Wurmus</td></tr>