;;; 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)))
<td><a href='/guix/commit/gnu/services/dns.scm?id=1fa038324db0c7f848b5640f81465366c2a587ba'>services: knot: Add 'configuration' action.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dns.scm (knot-shepherd-service): Add 'actions' field.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-13 17:11:08 +0400'>2023-03-13</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=d4b2f5eace67b172abd103441fdb7ec2443fb209'>services: dns: Fix cpe-id default value.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/service/dns.scm: (&lt;dnsmasq-configuration&gt;)[cpe-id]: Change cpe-id
default value to #f instead of #t.
</span></span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2023-03-13 17:06:19 +0400'>2023-03-13</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=d1edb26388ca4dab4b435a686cd059d97c113c3e'>services: dns: Extend dnsmasq-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/service/dns.scm: (&lt;dnsmasq-configuration&gt;)[servers-file]: Add.
(&lt;dnsmasq-configuration&gt;)[tftp-secure?]: Fix typo in parameter name.
* doc/guix.texi: Document (&lt;dnsmasq-configuration&gt;)[servers-file].

Signed-off-by: Andrew Tropin &lt;andrew@trop.in&gt;
</span></span></td><td>Sergey Trofimov</td></tr>
<tr><td><span title='2023-03-06 16:10:27 +0800'>2023-03-06</span></td><td><a href='/guix/commit/gnu/services/dns.scm?id=882112b581b2e6e7796f34ab0e3eb5cef18c8f18'>services: knot: Default zone-file-refresh to 12h.</a><span class='msg-avail'>...<span class='msg-tooltip'>The Knot DNS service in Guix uses two days, or 48 hours, for the SOA
refresh interval but that is outside the range of RFC 1912, which is
entitled "Common DNS Operational and Configuration Errors." [1]

Section 2.2 of RFC 1912 recommends a maximum of 12 hours for the SOA
refresh rate: "You can keep it short (20 mins to 2 hours) if you
aren't worried about a small increase in bandwidth used, or longer
(2-12 hours) if your Internet connection is slow or is started on
demand."

This commit sets the default refresh interval at the nearest value
recommended by the standard, which is 12 hours.

Due to the widespread adoption of NOTIFY messages between primary and
secondary DNS servers, the SOA refresh interval has arguably lost some
importance, but the Guix default should still be in line with the
standards.

Values outside the recommended range can provoke warning messages from
services commonly used to find bugs in DNS configurations, such as the
MX Toolbox Super Tool. [2]

[1] https://datatracker.ietf.org/doc/rfc1912/
[2] https://mxtoolbox.com/SuperTool.aspx

* gnu/services/dns.scm (&lt;zone-file&gt;)[refresh]: Default to (* 12 3600).

Signed-off-by: 宋文武 &lt;iyzsong@member.fsf.org&gt;
</span></span></td><td>Felix Lechner</td></tr>