;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
;;;
;;; 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 kde)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system cmake)
  #:use-module (gnu packages avahi)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages docbook)
  #:use-module (gnu packages doxygen)
  #:use-module (gnu packages flex)
  #:use-module (gnu packages geeqie)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages image)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages openssl)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages python)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages rdf)
  #:use-module (gnu packages video)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xorg))

(define-public automoc4
  (package
    (name "automoc4")
    (version "0.9.88")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://download.kde.org/stable/" name
                                "/" version "/" name "-"
                                 version ".tar.bz2"))
             (sha256
              (base32
               "0jackvg0bdjg797qlbbyf9syylm0qjs55mllhn11vqjsq3s1ch93"))))
    (build-system cmake-build-system)
    (inputs
     `(("qt" ,qt-4)))
    (arguments
     `(#:tests? #f)) ; no check target
    (home-page "http://techbase.kde.org/Development/Tools/Automoc4")
    (synopsis "Build tool for KDE")
    (description "AutoMoc4 automatically generates moc-files for KDE.")
    (license license:bsd-2)))

(define-public phonon
  (package
    (name "phonon")
    (version "4.8.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://download.kde.org/stable/" name
                                "/" version "/"
                                name "-" version ".tar.xz"))
             (sha256
              (base32
               "0xnjz7bbw393q77n4s6y9frd7l2s90635w03w9a2jr85zr89fnfg"))))
    (build-system cmake-build-system)
    ;; FIXME: Add interpreter ruby once available.
    ;; Add optional input libqtzeitgeist.
    (inputs
     `(("automoc4" ,automoc4)
       ("glib" ,glib)
       ("libx11" ,libx11)
       ("pulseaudio" ,pulseaudio)
       ("qt" ,qt-4)))
    (native-inputs
     `(("pkg-config" ,pkg-config)))
    (arguments
     `(#:tests? #f)) ; no test target
    (home-page "http://phonon.kde.org/")
    (synopsis "Qt 4 multimedia API")
    (description "KDE desktop environment")
    (license license:lgpl2.1+)))

(define-public qjson
  (package
    (name "qjson")
    (version "0.8.1")
    (source (origin
             (method url-fetch)
             (uri (string-append "https://github.com/flavio/qjson/archive/"
                                 version ".tar.gz"))
             (sha256
              (base32
               "163fspi0xc705irv79qw861fmh68pjyla9vx3kqiq6xrdhb9834j"))))
    (build-system cmake-build-system)
    (inputs
     `(("qt" ,qt-4)))
    (arguments
     `(#:tests? #f)) ; no test target
    (home-page "http://qjson.sourceforge.net/")
    (synopsis "Qt-based library for handling JSON")
    (description "QJson is a Qt-based library that maps JSON data to QVariant
objects and vice versa.  JSON arrays are mapped to QVariantList instances,
while JSON objects are mapped to QVariantMap.")
    (license license:lgpl2.1+)))

(define-public libdbusmenu-qt
  (package
    (name "libdbusmenu-qt")
    (version "0.9.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "https://launchpad.net/" name "/trunk/"
                                 version "/+download/"
                                 name "-" version ".tar.bz2"))
             (sha256
              (base32
               "1v0ri5g9xw2z64ik0kx0ra01v8rpjn2kxprrxppkls1wvav1qv5f"))))
    (build-system cmake-build-system)
    (native-inputs
     `(("doxygen" ,doxygen) ; used for static documentation
       ("pkg-config" ,pkg-config)
       ("qjson", qjson))) ; used for the tests
    (inputs
     `(("qt" ,qt-4)))
    (arguments
     `(#:tests? #f)) ; no check target
    (home-page "https://launchpad.net/libdbusmenu-qt/")
    (synopsis "Qt implementation of the DBusMenu protocol")
    (description "The library provides a Qt implementation of the DBusMenu
protocol.  The DBusMenu protocol makes it possible for applications to export
and import their menus over DBus.")
    (license license:lgpl2.0+)))

(define-public attica
  (package
    (name "attica")
    (version "0.4.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://download.kde.org/stable/"
                                 name "/"
                                 name "-" version ".tar.bz2"))
             (sha256
              (base32
               "1y74gsyzi70dfr9d1f1b08k130rm3jaibsppg8dv5h3211vm771v"))))
    (build-system cmake-build-system)
    (inputs
     `(("qt" ,qt-4)))
    (home-page "https://projects.kde.org/projects/kdesupport/attica")
    (synopsis "Qt library for the Open Collaboration Services API")
    (description "Attica is a Qt library that implements the Open
Collaboration Services API version 1.6.  It grants easy access to the
services such as querying information about persons and contents.  The
library is used in KNewStuff3 as content provider.  In order to integrate
with KDE's Plasma Desktop, a platform plugin exists in kdebase.")
    (license license:lgpl2.1+)))

(define-public strigi
  (package
    (name "strigi")
    (version "0.7.8")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://www.vandenoever.info/software/"
                                 name "/"
                                 name "-" version ".tar.bz2"))
             (sha256
              (base32
               "12grxzqwnvbyqw7q1gnz42lypadxmq89vk2qpxczmpmc4nk63r23"))))
    (build-system cmake-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)))
    ;; FIXME: Add optional inputs XAttr, FAM, Log4cxx
    (inputs
     `(("clucene" ,clucene)
       ("dbus" ,dbus)
       ("exiv2" ,exiv2)
       ("ffmpeg" ,ffmpeg)
       ("libxml2" ,libxml2)
       ("perl" ,perl)
       ("python" ,python-wrapper)
       ("qt" ,qt-4)
       ("zlib" ,zlib)))
    (arguments
     `(#:tests? #f)) ; FIXME: Test 23/25 ProcessInputStreamTest fails.
    (home-page "http://www.vandenoever.info/software/strigi/")
    (synopsis "Desktop search daemon")
    (description "Strigi is a desktop search daemon with the following
main features:
very fast crawling;
very small memory footprint;
no hammering of the system;
pluggable backend, currently clucene and hyperestraier, sqlite3 and xapian
are in the works;
communication between daemon and search program over an abstract interface,
currently a simple socket;
simple interface for implementing plugins for extracting information;
calculation of sha1 for every file crawled
(allows fast finding of duplicates).")
    (license license:lgpl2.0+)))

(define-public oxygen-icons
  (package
    (name "oxygen-icons")
    (version "4.14.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://download.kde.org/stable/" version
                                "/src/" name "-"
                                 version ".tar.xz"))
             (sha256
              (base32
               "1mz73f54qh2vd8ibp60f6fjflrprz0lvqfkgh805l7wfhrv4ckbz"))))
    (build-system cmake-build-system)
    (arguments
     `(#:tests? #f)) ; no test target
    (home-page "http://www.kde.org/")
    (synopsis "oxygen icon theme for the KDE desktop")
    (description "KDE desktop environment")
    (license license:lgpl3+)))

(define-public kdelibs
  (package
    (name "kdelibs")
    (version "4.14.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://download.kde.org/stable/" version
                                "/src/" name "-"
                                 version ".tar.xz"))
             (sha256
              (base32
               "0nw9zl54wdzw26l9l1a520ykjqgrzc1dx9aa6y015k0ry1vmlx1r"))))
    (build-system cmake-build-system)
    (native-inputs
     `(("automoc4" ,automoc4)
       ("bison" ,bison)
       ("docbook-xml" ,docbook-xml)
       ("docbook-xsl" ,docbook-xsl)
       ("flex" ,flex)
       ("pkg-config" ,pkg-config)))
    (inputs
     `(("attica" ,attica)
       ("avahi" ,avahi)
       ("giflib" ,giflib)
       ("libdbusmenu-qt" ,libdbusmenu-qt)
       ("libice" ,libice)
       ("libjpeg" ,libjpeg-8)
       ("libpng" ,libpng)
       ("libsm" ,libsm)
       ("libx11" ,libx11)
       ("libxau" ,libxau)
       ("libxcomposite" ,libxcomposite)
       ("libxcursor" ,libxcursor)
       ("libxdamage" ,libxdamage)
       ("libxdmcp" ,libxdmcp)
       ("libxext" ,libxext)
       ("libxfixes" ,libxfixes)
       ("libxft" ,libxft)
       ("libxi" ,libxi)
       ("libxinerama" ,libxinerama)
       ("libxkbfile" ,libxkbfile)
       ("libxml2" ,libxml2)
       ("libxpm" ,libxpm)
       ("libxrandr" ,libxrandr)
       ("libxrender" ,libxrender)
       ("libxscrnsaver" ,libxscrnsaver)
       ("libxslt" ,libxslt)
       ("libxt" ,libxt)
       ("libxtst" ,libxtst)
       ("libxv" ,libxv)
       ("libxxf86vm" ,libxxf86vm)
       ("openssl" ,openssl)
       ("pcre" ,pcre)
       ("perl" ,perl)
       ("phonon" ,phonon)
       ("python" ,python-wrapper)
       ("qt" ,qt-4)
       ("shared-mime-info" ,shared-mime-info)
       ("soprano" ,soprano)
       ("strigi" ,strigi)
       ("eudev" ,eudev)
       ("zlib" ,zlib)))
    (arguments
     `(#:tests? #f ; FIXME: some tests currently time out or fail
       #:configure-flags
        (let*
          ((docbook-xsl (assoc-ref %build-inputs "docbook-xsl"))
           (docbook-xsl-version ,(package-version docbook-xsl))
           (qt (assoc-ref %build-inputs "qt"))
           (qt-lib (string-append qt "/lib")))
          (list
            (string-append "-DCMAKE_SHARED_LINKER_FLAGS=-Wl,-rpath=" qt-lib)
            (string-append "-DCMAKE_EXE_LINKER_FLAGS=-Wl,-rpath=" qt-lib)
            (string-append "-DDOCBOOKXML_CURRENTDTD_DIR="
                           (assoc-ref %build-inputs "docbook-xml")
                           "/xml/dtd/docbook/")
            (string-append "-DDOCBOOKXSL_DIR=" docbook-xsl
                           "/xml/xsl/docbook-xsl-" docbook-xsl-version
                           "/")))
       #:phases
        (alist-cons-before
         'configure 'patch-bin-sh
         (lambda _
           (substitute* "cmake/modules/kde4_exec_via_sh.cmake"
                        (("/bin/sh") (which "sh"))))
         %standard-phases)))
    (home-page "http://www.kde.org/")
    (synopsis "KDE libraries")
    (description "This package includes libraries that are central to the
development and execution of a KDE program, as well as internationalization
files for these libraries, HTML documentation, theme modules, and
regression tests.")
    ;; The different files are under various licenses; libraries under
    ;; lgpl2.0 or lgpl2.0+, other programs under gpl.
    ;; For details, see the file README in the source.
    (license license:lgpl2.0)))