From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Subject: [PATCH 2/2] gnu: Add d-feet. Date: Thu, 20 Aug 2015 16:41:44 +0800 Message-ID: <1440060104-29551-2-git-send-email-iyzsong@gmail.com> References: <1440060104-29551-1-git-send-email-iyzsong@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37262) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZSLPC-0004ED-3D for guix-devel@gnu.org; Thu, 20 Aug 2015 04:41:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZSLPA-0002th-8E for guix-devel@gnu.org; Thu, 20 Aug 2015 04:41:01 -0400 Received: from mail-pa0-x235.google.com ([2607:f8b0:400e:c03::235]:34065) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZSLPA-0002ta-1H for guix-devel@gnu.org; Thu, 20 Aug 2015 04:41:00 -0400 Received: by pacrn3 with SMTP id rn3so2602593pac.1 for ; Thu, 20 Aug 2015 01:40:59 -0700 (PDT) In-Reply-To: <1440060104-29551-1-git-send-email-iyzsong@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * gnu/packages/gnome.scm (d-feet): New variable. --- gnu/packages/gnome.scm | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 1c31be2..393e983 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -3302,3 +3302,58 @@ work and the interface is well tested.") "Epiphany is a GNOME web browser targeted at non-technical users. Its principles are simplicity and standards compliance.") (license license:gpl2+))) + +(define-public d-feet + (package + (name "d-feet") + (version "0.3.10") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "0nb31bvwnj7pcpm85g8bvgjc6s5kbqy8g4qp7pzqf8w6rdgxzw48")))) + (build-system glib-or-gtk-build-system) + (arguments + '(#:out-of-source? #f ; tests need to run in the source directory. + #:phases + (modify-phases %standard-phases + (add-before + 'check 'pre-check + (lambda* (#:key inputs #:allow-other-keys) + ;; The test suite requires a running X server. + (system (format #f "~a/bin/Xvfb :1 &" + (assco-ref inputs "xorg-server"))) + (setenv "DISPLAY" ":1") + ;; Don't fail on missing '/etc/machine-id'. + (setenv "DBUS_FATAL_WARNINGS" "0") + ;; tests.py and window.py don't meet E402: + ;; E402 module level import not at top of file + (substitute* "src/tests/Makefile" + (("--ignore=E123") "--ignore=E123,E402")))) + (add-after + 'install 'wrap-program + (lambda _ + (wrap-program (string-append %output "/bin/d-feet") + `("PYTHONPATH" = (,(getenv "PYTHONPATH"))) + `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))) + (native-inputs + `(("intltool" ,intltool) + ("itstool" ,itstool) + ("pkg-config" ,pkg-config) + ("python-pep8" ,python-pep8) + ("xmllint" ,libxml2) + ("xorg-server" ,xorg-server))) + (inputs + `(("gobject-introspection" ,gobject-introspection) + ("gtk+" ,gtk+) + ("python" ,python-wrapper) + ("python-pygobject" ,python-pygobject))) + (home-page "https://wiki.gnome.org/Apps/DFeet") + (synopsis "D-Bus debugger") + (description + "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces +of running programs and invoke methods on those interfaces.") + (license license:gpl2+))) -- 2.4.3