;;; 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)))
22-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=8d7cb7f2a4d0b7ce49764e4ba24026762d640da7'>machine/digital-ocean: Pull operating system definition out of string.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (guix-infect): Define the operating system
declaration as an s-expression and paste it into the generated Bash script to
simplify editing.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=ebb88e2bed889b67ea83893c907ab29e3bc81e8b'>machine/digital-ocean: Set load path to Guile 3.0 directories.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (guix-infect, add-static-networking): Set
GUILE_LOAD_PATH and GUILE_LOAD_COMPILED_PATH to directories for Guile 3.0
instead of 2.2.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=e8dcd008a0be8bd967efabab6960d19e5424d93e'>machine/digital-ocean: Use static-networking-service-type.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (ip+netmask-&gt;cidr): New procedure.
(guix-infect, add-static-networking): Use static-networking-service-type
instead of the deprecated static-networking-service.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-09 13:45:24 +0100'>2022-11-09</span></td><td><a href='/guix/commit/gnu/machine?id=c8e41af7be47fdd3ae16765d5cf892582f5a407a'>machine/digital-ocean: Use nightly Guix.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (guix-infect): Fetch latest Guix build from
ci.guix.gnu.org.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-10-17 07:29:09 +0200'>2022-10-17</span></td><td><a href='/guix/commit/gnu/machine?id=82b0f3755d12e04578a54ee53b3a8051958e8143'>guix: Fix typos.</a><span class='msg-avail'>...<span class='msg-tooltip'>These typos were found and reported through weblate.

* gnu/packages/audio.scm (wildmidi)[description]: Fix typo.
* gnu/packages/games.scm (cgoban)[description]: Fix typo.
* gnu/services/version-control.scm (gitolite-service-type)[description]:
  Fix typo.
* gnu/installer/newt/substitutes.scm (run-substitutes-page): Remove full
  stop at end of title.
* gnu/machine/ssh.scm (machine-ssh-configuration-system): Move
  punctuation outside of quotes.
* guix/scripts/home.scm (process-action): Remove trailing space before
  newline.
* guix/scripts/system.scm (show-help): Fix typo.
* guix/scripts/environment.scm (with-store/maybe): Fix typo.
</span></span></td><td>Julien Lepiller</td></tr>
<tr><td><span title='2022-09-26 23:29:35 +0200'>2022-09-26</span></td><td><a href='/guix/commit/gnu/machine?id=1033645e9d3899edd6b052b19e24c0a718b95e88'>machine: ssh: Parameterize '%current-system' early on.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/58084&gt;.
Reported by Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;.

Previously, "sanity checks" and other operations would happen in a
context where '%current-system' has its default value.  Thus, running
'guix deploy' on x86_64-linux machine for an aarch64-linux one would
lead things like '%base-initrd-modules' to see "x86_64-linux" as the
'%current-system' value, in turn making the wrong choices.

* gnu/machine/ssh.scm (check-deployment-sanity)[assertions]: Wrap in
'parameterize'.
(deploy-managed-host): Likewise for the 'mlet' body.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-04 17:57:02 +0200'>2022-09-04</span></td><td><a href='/guix/commit/gnu/machine?id=a451a809d5537035cc8888cfde5349842a68e934'>Fix misspelling of GUIX_DIGITAL_OCEAN_TOKEN.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/machine/digital-ocean.scm (maybe-raise-missing-api-key-error): Fix
  misspelling of GUIX_DIGITAL_OCEAN_TOKEN.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Matthew James Kraai</td></tr>