Re: an xwidget-emacs rpm

[Ricardo Wurmus]

Andreas Röhler writes:

> being slightly bewildered by the rpm-format. As used to either doing 
> make or rmp...
> BTW is there a way to compile it from source?

Attached is a recipe for GNU Guix to compile Emacs from source.  (It
inherits from the Emacs package definition in Guix.)  You can just drop
this file somewhere (for example in ~/my-packages) and then run

  GUIX_PACKAGE_PATH=~/my-packages/ guix build emacs-xwidget

It will fetch commit 0cfb6600a837f67997aef027f0183aca9df05df9 from the
git repository on savannah, run autogen.sh and build Emacs with the
xwidget feature.

~~ Ricardo

(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")))))))))))