(define-module (emacs-xwidget)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages autotools)
  #:use-module (guix utils)
  #:use-module (srfi srfi-1))

(define-public emacs-xwidget
  (let ((commit "0cfb6600a837f67997aef027f0183aca9df05df9"))
    (package (inherit emacs)
      (name "emacs-xwidget")
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "http://git.savannah.gnu.org/r/emacs.git")
                      (commit commit)))
                (sha256
                 (base32
                  "1b6gacwg16836g3hy5mqlpg1fxx8idvss0xhlwvskj6rf0lxyqji"))
                (file-name (string-append name "-checkout-" commit))
                (patches (list (search-patch "emacs-exec-path.patch")))))
      (synopsis "The extensible, customizable, self-documenting text
editor (with xwidget support)" )
      (native-inputs
       `(("autoconf" ,autoconf)
         ("automake" ,automake)
         ,@(package-native-inputs emacs)))
      (arguments
       (substitute-keyword-arguments (package-arguments emacs)
         ((#:configure-flags flags)
          `(append '("--with-xwidgets"
                     "--with-x-toolkit=gtk3")
                   ,flags))
         ((#:phases phases)
          `(modify-phases ,phases
             (add-before
              'configure 'autogen
              (lambda _ (zero? (system* "bash" "autogen.sh")))))))))))