;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2017 Eric Bavier <bavier@member.fsf.org>
;;;
;;; 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.2.2")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "http://calcurse.org/files/calcurse-"
                          version ".tar.gz"))
      (sha256
       (base32
        "0il0y06akdqgy0f9p40m4x6arn66nh7sr1w1i41bszycs7div266"))))
    (build-system gnu-build-system)
    (inputs `(("ncurses" ,ncurses)
              ("tzdata" ,tzdata)))
    (arguments
     ;; The ical tests all want to create a ".calcurse" directory, and may
     ;; fail with "cannot create directory '.calcurse': File exists" if run
     ;; concurently.
     '(#:parallel-tests? #f
       #:phases (modify-phases %standard-phases
                  (add-before 'check 'check-setup
                    (lambda* (#:key inputs #:allow-other-keys)
                      (setenv "TZDIR"   ;for test/ical-007.sh
                              (string-append (assoc-ref inputs "tzdata")
                                             "/share/zoneinfo")))))))
    (home-page "http://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)))
4beefb4d14ca1f8f9d8739a582c9430893&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-04-05 15:39:35 +0200'>2019-04-05</span></td><td><a href='/guix/commit/gnu/services/dbus.scm?id=aa071ca049c4324c790b3364e6c4c8e886d26a9e'>services: dbus: 'wrapped-dbus-service' accepts a list of variables.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dbus.scm (wrapped-dbus-service): Replace 'variable' and
'value' by 'variables', and adjust code accordingly.
* gnu/services/desktop.scm (upower-dbus-service):
(geoclue-dbus-service, elogind-dbus-service): Adjust accordingly.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-04-05 15:39:35 +0200'>2019-04-05</span></td><td><a href='/guix/commit/gnu/services/dbus.scm?id=b68f65007f50175a68cd174ad7c1036cf622556d'>services: dbus: Add 'wrapped-dbus-service'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/desktop.scm (wrapped-dbus-service): Move to...
* gnu/services/dbus.scm (wrapped-dbus-service): ... here.  New
procedure.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-08 23:21:59 +0100'>2019-03-08</span></td><td><a href='/guix/commit/gnu/services/dbus.scm?id=d429878daf3e3eb21660ed80934b1d4b0603f6e1'>activation: Shared system home directories are now 555 and root-owned.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/34788&gt;.
Reported by Jack Hill &lt;jackhill@jackhill.us&gt;.

Regression introduced by the combination of
8bb76f3d44c1f5ffec8011819494db306a51d801 and
0ae735bcc8ff7fdc89d67b492bdee9091ee19e86: /var/empty would be 700 and
owned by one of the system accounts (thus inaccessible to others), and
/var/run/dbus would be 700 as well, thereby preventing D-Bus clients
from connecting to the daemon.

* gnu/build/activation.scm (duplicates): New procedure.
(activate-users+groups)[system-accounts]: New variable.
Use it.  Make shared system account home directories #o555 and
root-owned.
* gnu/services/dbus.scm (dbus-activation): Make /var/run/dbus #o755.
* gnu/tests/base.scm (run-basic-test): Test the ownership and
permissions of /var/empty.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-05-20 21:42:33 +0300'>2018-05-20</span></td><td><a href='/guix/commit/gnu/services/dbus.scm?id=6a2b906565b677d62210d69d418ce150c202931b'>services: dbus: Search more directories for '.service' files.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dbus.scm (system-service-directory): Remove one level of
directories when searching for '.service' files.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-07-11 00:48:51 +0200'>2017-07-11</span></td><td><a href='/guix/commit/gnu/services/dbus.scm?id=3e8d037b168f101aa4691f0f963e6084e0f37df7'>services: dbus, polkit: Add default value.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dbus.scm (dbus-root-service-type)[default-value]: New
field.
(polkit-service-type)[default-value]: New field.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-11-24 21:43:47 +0100'>2016-11-24</span></td><td><a href='/guix/commit/gnu/services/dbus.scm?id=2e328698248b4b5d7ed07af89796acd9bfadbaff'>services: Move polkit to (gnu services dbus).</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/desktop.scm (&lt;polkit-configuration&gt;, %polkit-accounts)
(%polkit-pam-services, polkit-directory, polkit-etc-files)
(polkit-setuid-programs, polkit-service-type, polkit-service): Move
to...
* gnu/services/dbus.scm: ... here.
</span></span></td><td>Ludovic Courtès</td></tr>