From bd6163d13f6445b9a1ec0f85e4a19b9f73ab74ea Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Thu, 6 Aug 2015 11:36:53 +0200 Subject: build: Produce 'guix-config' instead of using compile-time tricks. * emacs/guix-{init,profiles}.el.in: Rename to ... * emacs/guix-{init,profiles}.el: ... these. New files. Use 'guix-config'. * emacs/guix-config.el.in: New file. * emacs.am (nodist_lisp_DATA): Add it. Move them to ... (ELFILES): ... here. * .gitignore, configure.ac: Adjust accordingly. --- emacs/guix-config.el.in | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 emacs/guix-config.el.in (limited to 'emacs/guix-config.el.in') diff --git a/emacs/guix-config.el.in b/emacs/guix-config.el.in new file mode 100644 index 0000000000..8804f72357 --- /dev/null +++ b/emacs/guix-config.el.in @@ -0,0 +1,31 @@ +;;; guix-config.el --- Compile-time configuration of Guix. + +;; Copyright © 2015 Mathieu Lirzin + +;; This file is part of GNU Guix. + +;; GNU Guix is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Guix is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Code: + +(defconst guix-emacs-interface-directory + (replace-regexp-in-string "${prefix}" "@prefix@" "@emacsuidir@")) + +(defconst guix-state-directory + ;; This must match `NIX_STATE_DIR' as defined in `daemon.am'. + (or (getenv "NIX_STATE_DIR") "@guix_localstatedir@/guix")) + +(provide 'guix-config) + +;;; guix-config.el ends here -- cgit v1.2.3 From 7061938fdb7524555a8903af59992ae0645c0480 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Mon, 27 Jul 2015 22:55:28 +0200 Subject: emacs: Fix guix-guile-program default value. Fixes . * 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. --- emacs/guix-backend.el | 10 +--------- emacs/guix-config.el.in | 9 +++++++++ 2 files changed, 10 insertions(+), 9 deletions(-) (limited to 'emacs/guix-config.el.in') diff --git a/emacs/guix-backend.el b/emacs/guix-backend.el index 73a429b9ee..3fafae4c24 100644 --- a/emacs/guix-backend.el +++ b/emacs/guix-backend.el @@ -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 diff --git a/emacs/guix-config.el.in b/emacs/guix-config.el.in index 8804f72357..16434cecea 100644 --- a/emacs/guix-config.el.in +++ b/emacs/guix-config.el.in @@ -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 -- cgit v1.2.3