;;; 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 (list ncurses))
    (native-inputs (list 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)))
ce-type.</a><span class='msg-avail'>...</span></td><td>( via Guix-patches via</td></tr>
<tr><td><span title='2022-10-04 17:04:45 +0400'>2022-10-04</span></td><td><a href='/guix/commit/gnu/home?id=7030f592c643360105514f9f1f923b0b6342d5e3'>home: Add home-batsignal-service-type.</a><span class='msg-avail'>...</span></td><td>( via Guix-patches via</td></tr>
<tr><td><span title='2022-09-14 18:25:11 +0300'>2022-09-14</span></td><td><a href='/guix/commit/gnu/home?id=6cdde65bb53b439f25f007df238f549ba2debc72'>home: shepherd: Add daemonize? option to configuration.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-09-12 08:43:08 +0300'>2022-09-12</span></td><td><a href='/guix/commit/gnu/home?id=70d58d1556fb1d16d674cf697bba1c5ce9c1767c'>home: shepherd: Add shepherd/init.scm to XDG_CONFIG_HOME.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-25 00:10:32 -0400'>2022-08-25</span></td><td><a href='/guix/commit/gnu/home?id=ee08277a70d29b6d707524a4e17620f50b87adf4'>services: Use the new maybe/unset API.</a><span class='msg-avail'>...</span></td><td>Attila Lendvai</td></tr>
<tr><td><span title='2022-08-19 18:55:40 +0300'>2022-08-19</span></td><td><a href='/guix/commit/gnu/home?id=ffc391500ac7eae1ef100d8d36f6c01f4f606170'>home: Use absolute path for home in activation script.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-10 09:10:45 -0400'>2022-08-10</span></td><td><a href='/guix/commit/gnu/home?id=d9a0ccf13f461335bd23abebeec7af981cae7be8'>home: ssh: Fix invalid value error for address-family.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-08-05 15:28:03 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/home?id=3b1510b8b9033068e4f6fa842c674824fdadc7a8'>home: Use warning instead of display.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-05 15:28:02 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/home?id=b57c656f72cee42ebbd78fe2267689aecfbd970e'>home: xdg: Skip mkdir XDG_RUNTIME_DIR in activation script.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-05 15:28:02 +0200'>2022-08-05</span></td><td><a href='/guix/commit/gnu/home?id=a80edc0d82c104d22607da5c44225d9105c3e1cf'>home: xdg: Use a single @ instead of @@.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-08-02 16:53:29 +0800'>2022-08-02</span></td><td><a href='/guix/commit/gnu/home?id=9355d463290bcc29b0885e18c9b19258934ea0a2'>home: Add explicit dependency on env to activation script.</a><span class='msg-avail'>...</span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=af4c103595a725194318f40fc5aba110772ff417'>home: services: environment-variables: Double-quote values.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=8af749224fd69daee5b67295186c77becb1a4479'>home: services: shells: Double-quote environment variable values.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=9e4cbb307665f061d6e8bc75660ae9421886f6b2'>home: services: shell: Do not use "setup" as a verb.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-14 01:05:34 +0200'>2022-07-14</span></td><td><a href='/guix/commit/gnu/home?id=7a6302acb015c5df3aa5007792887149978355db'>home: services: Fix typo.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-07-12 01:17:46 +0200'>2022-07-12</span></td><td><a href='/guix/commit/gnu/home?id=8d922504b22b81f99bf2dcbb9f15498ad513040a'>gnu: home: Add Guix channels service.</a><span class='msg-avail'>...</span></td><td>Reily Siegel</td></tr>