~ruther/guix-local

7061938fdb7524555a8903af59992ae0645c0480 — Mathieu Lirzin 10 years ago bd6163d
emacs: Fix guix-guile-program default value.

Fixes <http://bugs.gnu.org/21127>.

* emacs/guix-backend.el: Use guix-config.
  (guix-guile-program): Move to ...
* emacs/guix-config.el.in (guix-guile-program): ... here.  Use Guile
  program file name from compile-time instead of depending on PATH.
2 files changed, 10 insertions(+), 9 deletions(-)

M emacs/guix-backend.el
M emacs/guix-config.el.in
M emacs/guix-backend.el => emacs/guix-backend.el +1 -9
@@ 52,6 52,7 @@
;;; Code:

(require 'geiser-mode)
(require 'guix-config)
(require 'guix-emacs)

(defvar guix-load-path


@@ 63,15 64,6 @@
  (expand-file-name "guix-helper.scm" guix-load-path)
  "Auxiliary scheme file for loading.")

(defvar guix-guile-program (or geiser-guile-binary "guile")
  "Name of the guile executable used for Guix REPL.
May be either a string (the name of the executable) or a list of
strings of the form:

  (NAME . ARGS)

Where ARGS is a list of arguments to the guile program.")


;;; REPL


M emacs/guix-config.el.in => emacs/guix-config.el.in +9 -0
@@ 26,6 26,15 @@
  ;; This must match `NIX_STATE_DIR' as defined in `daemon.am'.
  (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix"))

(defvar guix-guile-program "@GUILE@"
  "Name of the guile executable used for Guix REPL.
May be either a string (the name of the executable) or a list of
strings of the form:

  (NAME . ARGS)

Where ARGS is a list of arguments to the guile program.")

(provide 'guix-config)

;;; guix-config.el ends here