Re: an xwidget-emacs rpm

[joakim]

Ricardo Wurmus <address@hidden> writes:

> 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.

This seems very cool!

I'm not familiar at all with Guix though.
Seems like a good opportunity to learn it!

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

-- 
Joakim Verona