~ruther/guix-local

2d32d153a72f4ac46d603fa37be49beca12f808f — Ludovic Courtès 11 years ago 4fd540b
gnu: Use emacs-no-x when we just want to byte-compile code.

* gnu/packages/code.scm (cflow)[native-inputs]: Change EMACS to
  EMACS-NO-X.
* gnu/packages/databases.scm (recutils): Likewise.
* gnu/packages/emacs.scm (geiser, paredit, magit, emacs-w3m, emacs-wget,
  emms, bbdb): Likewise.
* gnu/packages/idutils.scm (idutils): Likewise.
* gnu/packages/mail.scm (mu): Likewise.
* gnu/packages/package-management.scm (guix-0.8.1): Likewise.
* gnu/packages/scheme.scm (bigloo): Likewise.
* gnu/packages/version-control.scm (vc-dwim): Likewise.
M gnu/packages/code.scm => gnu/packages/code.scm +1 -1
@@ 45,7 45,7 @@
    (build-system gnu-build-system)

    ;; Needed to have cflow-mode.el installed.
    (native-inputs `(("emacs" ,emacs)))
    (native-inputs `(("emacs" ,emacs-no-x)))

    (home-page "http://www.gnu.org/software/cflow/")
    (synopsis "Create a graph of control flow within a program")

M gnu/packages/databases.scm => gnu/packages/databases.scm +2 -2
@@ 1,5 1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2014 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014 David Thompson <davet@gnu.org>


@@ 192,7 192,7 @@ pictures, sounds, or video.")
    ;; torture/utils.
    (arguments '(#:parallel-tests? #f))

    (native-inputs `(("emacs" ,emacs)
    (native-inputs `(("emacs" ,emacs-no-x)
                     ("bc" ,bc)))

    ;; TODO: Add more optional inputs.

M gnu/packages/emacs.scm => gnu/packages/emacs.scm +7 -7
@@ 169,7 169,7 @@ editor (without an X toolkit)" )
                                           "geiser-autoloads.el")))
                 %standard-phases)))
    (inputs `(("guile" ,guile-2.0)
              ("emacs" ,emacs)))
              ("emacs" ,emacs-no-x)))
    (home-page "http://nongnu.org/geiser/")
    (synopsis "Collection of Emacs modes for Guile and Racket hacking")
    (description


@@ 200,7 200,7 @@ giving her access to live metadata.")
             (sha256
              (base32 "1np882jzvxckljx3cjz4absyzmc5hw65cs21sjmbic82163m9lf8"))))
    (build-system trivial-build-system)
    (inputs `(("emacs" ,emacs)))
    (inputs `(("emacs" ,emacs-no-x)))
    (arguments
     `(#:modules ((guix build utils)
                  (guix build emacs-utils))


@@ 247,7 247,7 @@ when typing parentheses directly or commenting out code line by line.")
              (base32 "1in48g5l5xdc9cf2apnpgx73mqlz2njrpi1w52dgql4qxv3kg6gr"))))
    (build-system gnu-build-system)
    (native-inputs `(("texinfo" ,texinfo)))
    (inputs `(("emacs" ,emacs)
    (inputs `(("emacs" ,emacs-no-x)
              ("git" ,git)
              ("git:gui" ,git "gui")))
    (arguments


@@ 310,7 310,7 @@ operations.")
    (native-inputs `(("autoconf" ,autoconf)))
    (inputs `(("w3m" ,w3m)
              ("imagemagick" ,imagemagick)
              ("emacs" ,emacs)))
              ("emacs" ,emacs-no-x)))
    (arguments
     '(#:modules ((guix build gnu-build-system)
                  (guix build utils)


@@ 378,7 378,7 @@ operations.")
              (base32 "10byvyv9dk0ib55gfqm7bcpxmx2qbih1jd03gmihrppr2mn52nff"))))
    (build-system gnu-build-system)
    (inputs `(("wget" ,wget)
              ("emacs" ,emacs)))
              ("emacs" ,emacs-no-x)))
    (arguments
     '(#:modules ((guix build gnu-build-system)
                  (guix build utils)


@@ 519,7 519,7 @@ operations.")
                       (chmod target #o555)))
                   %standard-phases)))
       #:tests? #f))
    (native-inputs `(("emacs" ,emacs)            ;for (guix build emacs-utils)
    (native-inputs `(("emacs" ,emacs-no-x)       ;for (guix build emacs-utils)
                     ("texinfo" ,texinfo)))
    (inputs `(("alsa-utils" ,alsa-utils)
              ("vorbis-tools" ,vorbis-tools)


@@ 569,7 569,7 @@ light user interface.")
                     (with-directory-excursion site
                       (symlink "bbdb-loaddefs.el" "bbdb-autoloads.el"))))
                 %standard-phases)))
    (native-inputs `(("emacs" ,emacs)))
    (native-inputs `(("emacs" ,emacs-no-x)))
    (home-page "http://savannah.nongnu.org/projects/bbdb/")
    (synopsis "Contact management utility for Emacs")
    (description

M gnu/packages/idutils.scm => gnu/packages/idutils.scm +2 -2
@@ 1,5 1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;


@@ 38,7 38,7 @@
             (patches (list
                       (search-patch "diffutils-gets-undeclared.patch")))))
    (build-system gnu-build-system)
    (native-inputs `(("emacs" ,emacs)))
    (native-inputs `(("emacs" ,emacs-no-x)))
    (home-page "http://www.gnu.org/software/idutils/")
    (synopsis "Identifier database utilities")
    (description

M gnu/packages/mail.scm => gnu/packages/mail.scm +1 -1
@@ 329,7 329,7 @@ repository and Maildir/IMAP as LOCAL repository.")
    ;; TODO: Add webkit and gtk to build the mug GUI.
    (inputs
     `(("xapian" ,xapian)
       ("emacs" ,emacs)
       ("emacs" ,emacs-no-x)
       ("guile" ,guile-2.0)
       ("glib" ,glib)
       ("gmime" ,gmime)

M gnu/packages/package-management.scm => gnu/packages/package-management.scm +1 -1
@@ 96,7 96,7 @@
                   #t)
                 %standard-phases)))
    (native-inputs `(("pkg-config" ,pkg-config)
                     ("emacs" ,emacs)))           ;for guix.el
                     ("emacs" ,emacs-no-x)))      ;for guix.el
    (inputs
     (let ((boot-guile (lambda (arch hash)
                         (origin

M gnu/packages/scheme.scm => gnu/packages/scheme.scm +1 -1
@@ 199,7 199,7 @@ features an integrated Emacs-like editor and a large runtime library.")
                                      (string-append "EMACSDIR=" dir)))))
                  %standard-phases))))
    (inputs
     `(("emacs" ,emacs)
     `(("emacs" ,emacs-no-x)

       ;; Optional APIs for which Bigloo has bindings.
       ("avahi" ,avahi)

M gnu/packages/version-control.scm => gnu/packages/version-control.scm +1 -1
@@ 619,7 619,7 @@ RCS, PRCS, and Aegis packages.")
    (build-system gnu-build-system)
    (inputs `(("perl" ,perl)
              ("inetutils" ,inetutils)     ; for `hostname', used in the tests
              ("emacs" ,emacs)))           ; for `ctags'
              ("emacs" ,emacs-no-x)))      ; for `ctags'
    (home-page "http://www.gnu.org/software/vc-dwim/")
    (synopsis "Version-control-agnostic ChangeLog diff and commit tool")
    (description