emacs-snapshot and emacs-xwidget example

[Feng Shu]

I have hacked emacs-snapshot and emacs-xwidget package define.
for very very slooooooooowly newwork speed, I can't build them as official guix
package.  people interesting them can copy and *edit*....

#+BEGIN_SRC lisp
(define-public emacs-snapshot
  (package (inherit emacs)
           (name "emacs-snapshot")
           (version "20150522.9e41e0b")
           (source (origin
                    (method git-fetch)
                    (uri (git-reference
                          (url "/home/feng/project/emacs")
                          (commit "9e41e0bc6a6fdb7a01841db62d8de42d67be534a")))
                    (sha256
                     (base32
                      "1p50nrmwnx1d6an7daz8fxkj6ylxml7g23b996ba837nlfz3l8ay"))))
           (native-inputs
            `(("autoconf" ,autoconf)
              ("automake" ,automake)
              ,@(package-native-inputs emacs)))
           (arguments
            (substitute-keyword-arguments
             `(;; Build fails if we allow parallel build.
               #:parallel-build? #f
                                 ;; Tests aren't passing for now.
                                 #:tests? #f
                                 ,@(package-arguments emacs))
             ((#:phases phases)
              `(modify-phases ,phases
                              (add-after 'unpack 'autogen
                                         (lambda _
                                           (zero? (system* "sh" 
"autogen.sh"))))))))))

(define-public webkitgtk3.0
  ;; Latest release of the stable 2.4 series.
  (package (inherit webkitgtk)
    (name "webkitgtk3.0")
    (version "2.4.8")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://www.webkitgtk.org/releases/";
                                  "webkitgtk" "-" version ".tar.xz"))
              (sha256
               (base32
                "08xxqsxpa63nzgbsz63vrdxdxgpysyiy7jdcjb57k1hprdcibwb8"))
              (patches (list (search-patch 
"webkitgtk-2.4.8-gmutexlocker.patch")))))
    (build-system gnu-build-system)
    (arguments
     '(#:tests? #f ; no tests
       #:phases (modify-phases %standard-phases
                  (add-after
                   'unpack 'set-gcc
                   (lambda _ (setenv "CC" "gcc") #t)))
       #:configure-flags '("--enable-webkit2=no"
                           "--with-gtk=3.0")))
    (inputs
     `(("flex" ,flex)
       ("which" ,which)
       ,@(package-inputs webkitgtk)))))

(define-public emacs-xwidget
  (package (inherit emacs-snapshot)
           (name "emacs-xwidget")
           (version "20150522.e6f6513")
           (source (origin
                    (method git-fetch)
                    (uri (git-reference
                          (url "/home/feng/project/emacs")
                          (commit "e6f6513fc9a1beae5a48de93fb23372eada7dd85")))
                    (sha256
                     (base32
                      "0ayzvw4ixvys79b8x4xlazp72f5x2wj4zdqfazb8klkn5mv7cqlj"))))
           (inputs
            `(("libXcomposite" ,libxcomposite)
              ("libsoup" ,libsoup)
              ("webkitgtk3.0" ,webkitgtk3.0)
              ,@(package-inputs emacs-snapshot)))
           (arguments
            (append '(#:configure-flags
                      (let ((webkitgit-dir (assoc-ref %build-inputs 
"webkitgtk3.0"))
                            (libsoup-dir (assoc-ref %build-inputs "libsoup")))
                        (list "--with-xwidgets"
                              "--with-x-toolkit=gtk3"
                              (string-append "CPPFLAGS="
                                             "-I" webkitgit-dir 
"/include/webkitgtk-3.0 "
                                             "-I" libsoup-dir  
"/include/libsoup-2.4 ")
                              (string-append "LDFLAGS="
                                             "-L" webkitgit-dir "/lib 
-lwebkitgtk-3.0 "
                                             "-L" libsoup-dir  "/lib -lsoup-2.4 
"
                                             "-Wl,-rpath=" webkitgit-dir "/lib "
                                             "-Wl,-rpath=" libsoup-dir  "/lib ")
                              (string-append "LIBS="
                                             "-L" webkitgit-dir "/lib 
-lwebkitgtk-3.0 "
                                             "-L" libsoup-dir  "/lib -lsoup-2.4 
"))))
                    (package-arguments emacs-snapshot)))))

#+END_SRC


--