[PATCH] gnu: Add WebKitGTK+.

[宋文武]

* gnu/packages/gnome.scm (webkitgtk): New variable.
---
 gnu/packages/gnome.scm | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index f9824b8..f4df1fa 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -27,22 +27,27 @@
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix utils)
+  #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (gnu packages)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages curl)
   #:use-module (gnu packages databases)
+  #:use-module (gnu packages enchant)
   #:use-module (gnu packages flex)
   #:use-module (gnu packages docbook)
+  #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages gperf)
   #:use-module (gnu packages gstreamer)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages popt)
   #:use-module (gnu packages ghostscript)
   #:use-module (gnu packages gnutls)
+  #:use-module (gnu packages icu4c)
   #:use-module (gnu packages iso-codes)
   #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages linux)
@@ -50,6 +55,7 @@
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages ruby)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages compression)
@@ -1782,6 +1788,66 @@ and the GLib main loop, to integrate well with GNOME 
applications.")
 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
     (license license:lgpl2.1+)))
 
+(define-public webkitgtk
+  (package
+    (name "webkitgtk")
+    (version "2.8.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://www.webkitgtk.org/releases/";
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "05b8mkr1mv1w5vi5vyczzirgf5nr6qavrdwbcaiv0dghylwx5yh5"))))
+    (build-system cmake-build-system)
+    (arguments
+     '(#:configure-flags '("-DPORT=GTK")))
+    (native-inputs
+     `(("bison" ,bison)
+       ("gettext" ,gnu-gettext)
+       ("gobject-introspection" ,gobject-introspection)
+       ("gperf" ,gperf)
+       ("perl" ,perl)
+       ("pkg-config" ,pkg-config)
+       ("python" ,python-2) ; incompatible with Python 3 (print syntax)
+       ("ruby" ,ruby)))
+    (propagated-inputs
+     `(("gtk+" ,gtk+)
+       ("libsoup" ,libsoup)))
+    (inputs
+     ;; TODO: Add geoclue.
+     `(("at-spi2-core" ,at-spi2-core)
+       ("dbus" ,dbus) ; XXX: required by atspi-2.pc
+       ("enchant" ,enchant)
+       ("gnutls" ,gnutls)
+       ("gst-plugins-base" ,gst-plugins-base)
+       ("gtk+-2" ,gtk+-2)
+       ("harfbuzz" ,harfbuzz)
+       ("icu4c" ,icu4c)
+       ("libjpeg" ,libjpeg)
+       ("libnotify" ,libnotify)
+       ("libpng" ,libpng)
+       ("libsecret" ,libsecret)
+       ("libwebp" ,libwebp)
+       ("libxcomposite" ,libxcomposite)
+       ("libxml2" ,libxml2)
+       ("libxslt" ,libxslt)
+       ("libxt" ,libxt)
+       ("mesa" ,mesa)
+       ("sqlite" ,sqlite)))
+    (home-page "http://www.webkitgtk.org/";)
+    (synopsis "Web content engine for GTK+")
+    (description
+     "WebKitGTK+ is a full-featured port of the WebKit rendering engine,
+suitable for projects requiring any kind of web integration, from hybrid
+HTML/CSS applications to full-fledged web browsers.")
+    ;; WebKit's JavaScriptCore and WebCore components are available under
+    ;; the GNU LGPL, while the rest is available under a BSD-style license.
+    (license (list license:lgpl2.0
+                   license:lgpl2.1+
+                   license:bsd-2
+                   license:bsd-3))))
+
 (define-public gnome-mines
   (package
     (name "gnome-mines")
-- 
2.2.1