;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018, 2019 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 calcurse)
  #:use-module (guix packages)
  #:use-module (guix licenses)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages ncurses))

(define-public calcurse
  (package
    (name "calcurse")
    (version "4.5.1")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://calcurse.org/files/calcurse-"
                           version ".tar.gz"))
       (sha256
        (base32 "0cgkd285x5pk62lmdx9fjxl46c5lj8wj2cqbxq7d99yb4il5fdjk"))))
    (build-system gnu-build-system)
    (inputs `(("ncurses" ,ncurses)))
    (native-inputs `(("tzdata" ,tzdata-for-tests)))
    (arguments
     ;; The ical tests all want to create a ".calcurse" directory, and may
     ;; fail with "cannot create directory '.calcurse': File exists" if run
     ;; concurently.
     `(#:configure-flags
       (list (string-append "--docdir=" (assoc-ref %outputs "out")
                            "/share/doc/" ,name "-" ,version))
       #:parallel-tests? #f
       ;; Since this tzdata is only used for tests and not referenced by the
       ;; built package, used the "fixed" obsolete version of tzdata and ensure
       ;; it does not sneak in to the closure.
       #:disallowed-references (,tzdata-for-tests)
       #:phases (modify-phases %standard-phases
                  (add-after 'unpack 'respect-docdir
                    ;; doc/Makefile disregards ./configure's --docdir option.
                    (lambda _
                      (substitute* "doc/Makefile.in"
                        (("(docdir =) .*" _ match)
                         (format #f "~a @docdir@\n" match)))
                      #t))
                  (add-before 'check 'check-setup
                    (lambda* (#:key inputs #:allow-other-keys)
                      (setenv "TZDIR"   ; for test/ical-007.sh
                              (search-input-directory inputs
                                                      "share/zoneinfo")))))))
    (home-page "https://www.calcurse.org")
    (synopsis "Text-based calendar and scheduling")
    (description
     "Calcurse is a text-based calendar and scheduling application.  It helps
keep track of events, appointments and everyday tasks.  A configurable
notification system reminds user of upcoming deadlines, and the curses based
interface can be customized to suit user needs.  All of the commands are
documented within an online help system.")
    (license bsd-2)))
ve now unnecessary uses of (guix grafts).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-13 17:28:46 +0200'>2022-10-13</span></td><td><a href='/guix/commit/gnu/ci.scm?id=7c2b09f924788a9ed1b149830a4de4e2920d4618'>ci: Honor the system passed to image-&gt;job.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-10-11 16:05:31 +0200'>2022-10-11</span></td><td><a href='/guix/commit/gnu/ci.scm?id=22b9734b67b8f5946e09ed28843a9af26f345945'>Revert "guix system: Remove unused 'read-operating-system' procedure."</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-24 14:49:09 +0200'>2022-09-24</span></td><td><a href='/guix/commit/gnu/ci.scm?id=ebe9d660a55629f2506db124b0e016885fc61e5c'>gnu: Add compression module.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-08-17 11:29:38 +0200'>2022-08-17</span></td><td><a href='/guix/commit/gnu/ci.scm?id=5bbb9af5d99314a79d7f6535d9a3176c2c10e60b'>ci: Fix the images specification.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-08-09 15:16:06 +0200'>2022-08-09</span></td><td><a href='/guix/commit/gnu/ci.scm?id=5bce4c82422de6beb3ce6120ba1592be898c2b72'>build-system: Add 'channel-build-system'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-05 15:28:05 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/ci.scm?id=d11a432adffe9308eafec6b77cddd3145029109e'>guix system: Remove unused 'read-operating-system' procedure.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-05-25 09:27:25 +0200'>2022-05-25</span></td><td><a href='/guix/commit/gnu/ci.scm?id=dab819d5c4c55609efae098c8e3c2f2757c34e5b'>Move (gnu platform) and (gnu platforms ...) to guix/.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-05-22 15:15:33 +0200'>2022-05-22</span></td><td><a href='/guix/commit/gnu/ci.scm?id=dd970122ddf3679482f658f73dd68307496c6215'>ci: Do not rely on hardcoded cross-targets lists.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-01-01 15:23:24 +0100'>2022-01-01</span></td><td><a href='/guix/commit/gnu/ci.scm?id=6756c64a8f1a22f74ea3bcb8bfb00f229ad6f6c5'>ci: Add extra jobs for tunable packages.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-12-10 21:49:25 +0100'>2021-12-10</span></td><td><a href='/guix/commit/gnu/ci.scm?id=32750e8c3ed38df4cafb39cffa878c6851abc899'>Merge remote-tracking branch 'signed/master' into core-updates</a></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-12-06 10:56:01 +0100'>2021-12-06</span></td><td><a href='/guix/commit/gnu/ci.scm?id=93e9f0bc7fc97db7b9e31477858ef7cb2ce01c90'>ci: Cross-build the 'guix' package.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-10-12 17:46:23 +0000'>2021-10-12</span></td><td><a href='/guix/commit/gnu/ci.scm?id=a1eca979fb8da842e73c42f4f53be29b169810f2'>Merge remote-tracking branch 'origin/master' into core-updates-frozen.</a></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-10-04 16:36:59 +0200'>2021-10-04</span></td><td><a href='/guix/commit/gnu/ci.scm?id=688a4db071736a772e6b5515d7c03fe501c3c15a'>ci: Allow manifests to contain any lowerable object.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-09-27 17:55:53 +0200'>2021-09-27</span></td><td><a href='/guix/commit/gnu/ci.scm?id=7c5f01d55634254bea8bad4c9dcc31496efd4fce'>ci: Adjust 'channel-build-system' to monadic style.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>