;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Tomáš Čech <sleep_walker@suse.cz>
;;; Copyright © 2019 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;;
;;; 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 task-management)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages lua)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages wxwidgets)
  #:use-module (gnu packages xorg)
  #:use-module (guix download)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system python))

(define-public taskwarrior
  (package
    (name "taskwarrior")
    (version "2.5.1")
    (source
     (origin
       (method url-fetch)
       (uri (string-append
             "http://taskwarrior.org/download/task-" version ".tar.gz"))
       (sha256 (base32
                "059a9yc58wcicc6xxsjh1ph7k2yrag0spsahp1wqmsq6h7jwwyyq"))))
    (build-system cmake-build-system)
    (inputs
     `(("gnutls" ,gnutls)
       ("lua" ,lua)
       ("util-linux" ,util-linux)))
    (arguments
     `(#:tests? #f ; No tests implemented.
       #:phases
       (modify-phases %standard-phases
         (add-before
          'patch-source-shebangs 'remove-broken-symlinks
          (lambda _
            ;; These files are broken symlinks - delete them.
            (delete-file "src/cal")
            (delete-file "src/calendar")
            (delete-file "src/tw"))))))
     (home-page "http://taskwarrior.org")
    (synopsis "Command line task manager")
    (description
     "Taskwarrior is a command-line task manager following the Getting Things
Done time management method.  It supports network synchronization, filtering
and querying data, exposing task data in multiple formats to other tools.")
    (license license:expat)))

(define-public taskcoach
  (package
    (name "taskcoach")
    (version "1.4.4")
    (source
     (origin
       (method url-fetch)
       (uri (string-append
             "mirror://sourceforge/taskcoach/taskcoach/Release-" version  "/TaskCoach-" version ".tar.gz"))
       (sha256 (base32
                "1jb5n4xmb7qdhcgg3lfin293jcks1g8qvqkjfrfifpmfmpmjqv50"))))
    (build-system python-build-system)
    (inputs
     `(("python2-wxpython" ,python2-wxpython)
       ("python2-twisted" ,python2-twisted)
       ))
    (propagated-inputs
     `(
       ("libxscrnsaver" ,libxscrnsaver)
       ))

    (arguments
     `(#:tests? #f ; TODO: Needs X11. Maybe simulate one? Cmp. OpenCV.
       #:python ,python-2))
    ;;  `(#:tests? #f ; No tests implemented.
       ;; #:phases
       ;; (modify-phases %standard-phases
       ;;   (add-before
       ;;    'patch-source-shebangs 'remove-broken-symlinks
       ;;    (lambda _
       ;;      ;; These files are broken symlinks - delete them.
       ;;      (delete-file "src/cal")
       ;;      (delete-file "src/calendar")
       ;;      (delete-file "src/tw"))))))
     (home-page "https://www.taskcoach.org")
    (synopsis "TODO")
    (description
     "TODO")
    ;; thirdparty:
    ;; aui: wxPython license.
    ;; chardet: LGPL 2.1+

    ;; EXPAT:
    ;; guid.py
    ;; deltaTime.py
    ;; https://github.com/pyparsing/pyparsing/blob/master/examples/deltaTime.py
    ;; This is part of pyparsing and thus under EXPAT license.

    ;; snarl.py: This is the same file modulo whitespace and header changes that was
    ;; published under version 0.2a und GPLv2 here:
    ;; https://github.com/abl/python-snarl/commit/4e6a26edfc477f5a56493a3a91d7cc3547e28945

    ;; _weakrefset.py: Part of Python, license:psfl.

    ;; dateutil: PSFL

    ;; desktop: LGPG 3+

    ;; gntp: This is GNTP v0.8, see
    ;; https://github.com/kfdm/gntp/tree/a4c1c69cabaa0faa1f650eab193c9872516eb192/gntp
    ;; and is thus under EXPAT license.

    ;; keyring: EXPAT | PSFL
    ;; See https://github.com/philipn/python-keyring-lib

    ;; lockfile: MIT
    ;; https://github.com/smontanaro/pylockfile/blob/426db4cc4389539797f2b5f26883a55534ce6648/LICENSE

    ;; ntlm: LGPLv3+
    ;; http://sourceforge.net/projects/ntlmaps/

    ;; pubsub: BSD-2-clause:
    ;; http://pypubsub.sourceforge.net/about.html#license

    ;; squaremap: EXPAT
    ;; https://bazaar.launchpad.net/~mcfletch/squaremap/trunk/view/head:/license.txt

    ;; timeline
    ;; according to this stackoverflow answer, this is written by Frank Nissink for TaskCoach:
    ;; https://stackoverflow.com/questions/715950/a-wxpython-timeline-widget/819462#819462
    ;; thus, it is GPL3+

    ;; wxScheduler:
    ;; https://github.com/expobrain/wxscheduler/tree/1.3.0
    ;; wxLicense

    ;; xdg
    ;; LGPL v2
    ;; https://github.com/takluyver/pyxdg/blob/master/COPYING
    (license license:gpl3+)))