;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 toys)
  #:use-module (gnu packages ncurses)
  #:use-module (guix build-system gnu)
  #:use-module (guix download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages))

(define-public sl
  (package
    (name "sl")
    (version "5.02")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://github.com/mtoyoda/" name
                           "/archive/" version ".tar.gz"))
       (file-name (string-append name "-" version ".tar.gz"))
       (sha256
        (base32 "0fjnnnxxq7zh9bm3yzbj84fgap0rhblxi2m10br83747gxsrcn8y"))))
    (build-system gnu-build-system)
    (inputs
     `(("ncurses" ,ncurses)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete 'configure)            ; no configure script
         (delete 'check)                ; no tests
         (replace 'install              ; no ‘make install’ target
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bin (string-append out "/bin"))
                    (man (string-append out "/share/man"))
                    (man1 (string-append man "/man1"))
                    (man1-ja (string-append man "/ja/man1")))
               (install-file "sl" bin)
               (install-file "sl.1" man1)
               (mkdir-p man1-ja)
               (copy-file "sl.1.ja" (string-append man1-ja "/sl.1"))
               #t))))))
    (home-page "http://www.tkl.iis.u-tokyo.ac.jp/~toyoda/index_e.html")
    (synopsis "Joke command to correct typing \"sl\" by mistake")
    (description
     "@dfn{SL} (for Steam Locomotive) displays one of several animated trains
on the text terminal.  It serves no useful purpose but to discourage mistakenly
typing @command{sl} instead of @command{ls}.")
    (license (license:non-copyleft "file://LICENSE"
                                   "See LICENSE in the distribution."))))
gnu/packages/geo.scm?id=a2a532742a5ae7f6d0a195c3ba41567479f1b9d9'>gnu: Add spatialite-gui.</a><span class='msg-avail'>...</span></td><td>Björn Höfling</td></tr>
<tr><td><span title='2018-02-22 14:35:50 +0100'>2018-02-22</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=22c7c77571bb8376c905bc1f4ac92126a6593afe'>gnu: Add libgaiagraphics.</a><span class='msg-avail'>...</span></td><td>Björn Höfling</td></tr>
<tr><td><span title='2018-02-22 14:35:50 +0100'>2018-02-22</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=f6c507e13c879289e1476433bf6ab0f3520679e8'>gnu: Add libspatialite.</a><span class='msg-avail'>...</span></td><td>Björn Höfling</td></tr>
<tr><td><span title='2018-02-18 17:30:20 +0530'>2018-02-18</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=f25e1e244802f5d3fb1814901378eae1700f748b'>gnu: Add python2-mapnik.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2018-02-18 17:30:12 +0530'>2018-02-18</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=f2b005f63081af55232c5bc25590651605562449'>gnu: Add mapnik.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2018-01-23 21:18:21 +0100'>2018-01-23</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=8d26f48e8ab3802d73e74b18c877c549c4248eed'>gnu: gnome-maps: Add missing inputs.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-01-15 07:28:53 +0100'>2018-01-15</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=af63f03f27c8c4619c4edb9d3edb53e315c51cb4'>gnu: geos: Update to 3.6.2.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-04 12:15:29 +0530'>2018-01-04</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=1a39141dcf883a9a90fd7c67f94cf5f93c53cad6'>gnu: Add libgeotiff.</a><span class='msg-avail'>...</span></td><td>Björn Höfling</td></tr>
<tr><td><span title='2017-11-02 14:42:58 -0400'>2017-11-02</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=67bd376b1a45249d0b1b1477e32638a984aebd70'>gnu: gnome-maps: Update to 3.26.2.</a><span class='msg-avail'>...</span></td><td>Kei Kebreau</td></tr>
<tr><td><span title='2017-05-25 00:53:45 +0200'>2017-05-25</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=539f52de6dbed067a4b2d26607727cf9fd13823a'>gnu: gnome-maps: Update to 3.24.3.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-01-21 14:00:51 +0100'>2017-01-21</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=a760757280de6c2a93bdee6cd367af88ad5ffe79'>gnu: Add geos.</a><span class='msg-avail'>...</span></td><td>Björn Höfling</td></tr>
<tr><td><span title='2017-01-17 14:41:08 +0100'>2017-01-17</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=065d0125115cc952fa463d0542929ecbb3fd90f0'>gnu: Add proj.4.</a><span class='msg-avail'>...</span></td><td>Björn Höfling</td></tr>
<tr><td><span title='2016-08-19 17:52:31 -0400'>2016-08-19</span></td><td><a href='/guix/commit/gnu/packages/geo.scm?id=ad1ff78d6361c73937ab4baaf7d88ec2400c52c0'>gnu: gnome-maps: Update to 3.18.3.</a><span class='msg-avail'>...</span></td><td>Alex Griffin</td></tr>