diff options
author | Alex Kost <alezost@gmail.com> | 2015-10-16 20:48:24 +0300 |
---|---|---|
committer | Alex Kost <alezost@gmail.com> | 2015-10-20 16:47:05 +0300 |
commit | 380566157de6b0f3ec952c768fac5baafac602f0 (patch) | |
tree | 6f58255d9d381006b3941aac3b25b8a925fae019 /emacs | |
parent | 51805219a53311fc56e291b5762860062ef28446 (diff) | |
download | gnu-guix-380566157de6b0f3ec952c768fac5baafac602f0.tar gnu-guix-380566157de6b0f3ec952c768fac5baafac602f0.tar.gz |
emacs: config: Use "emacs-config-" prefix for constants.
* emacs/guix-config.el.in (guix-emacs-interface-directory,
guix-state-directory): Rename to ...
(guix-config-emacs-interface-directory, guix-config-state-directory):
...this.
(guix-config-guile-program): New constant.
(guix-guile-program): Move to ...
* emacs/guix-external.el (guix-guile-program): ...here. Make it a
'defcustom'.
* emacs/guix-profiles.el (guix-default-profile): Use
'guix-config-state-directory'.
* emacs/guix-backend.el (guix-load-path): Use
'guix-config-emacs-interface-directory'.
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/guix-backend.el | 3 | ||||
-rw-r--r-- | emacs/guix-config.el.in | 14 | ||||
-rw-r--r-- | emacs/guix-external.el | 11 | ||||
-rw-r--r-- | emacs/guix-profiles.el | 2 |
4 files changed, 18 insertions, 12 deletions
diff --git a/emacs/guix-backend.el b/emacs/guix-backend.el index 412d648b9d..e7c158bef4 100644 --- a/emacs/guix-backend.el +++ b/emacs/guix-backend.el @@ -56,9 +56,10 @@ (require 'geiser-guile) (require 'guix-geiser) (require 'guix-config) +(require 'guix-external) (require 'guix-emacs) -(defvar guix-load-path guix-emacs-interface-directory +(defvar guix-load-path guix-config-emacs-interface-directory "Directory with scheme files for \"guix.el\" package.") (defvar guix-helper-file diff --git a/emacs/guix-config.el.in b/emacs/guix-config.el.in index c7affb8c6d..bd821596c4 100644 --- a/emacs/guix-config.el.in +++ b/emacs/guix-config.el.in @@ -20,21 +20,15 @@ ;;; Code: -(defconst guix-emacs-interface-directory +(defconst guix-config-emacs-interface-directory (replace-regexp-in-string "${prefix}" "@prefix@" "@emacsuidir@")) -(defconst guix-state-directory +(defconst guix-config-state-directory ;; 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.") +(defconst guix-config-guile-program "@GUILE@" + "Name of the 'guile' executable defined at configure time.") (defconst guix-config-dot-program "@DOT_USER_PROGRAM@" "Name of the 'dot' executable defined at configure time.") diff --git a/emacs/guix-external.el b/emacs/guix-external.el index cf4bd26ac7..c80b36343d 100644 --- a/emacs/guix-external.el +++ b/emacs/guix-external.el @@ -29,6 +29,17 @@ "Settings for external programs." :group 'guix) +(defcustom guix-guile-program guix-config-guile-program + "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." + :type 'string + :group 'guix-external) + (defcustom guix-dot-program (if (file-name-absolute-p guix-config-dot-program) guix-config-dot-program diff --git a/emacs/guix-profiles.el b/emacs/guix-profiles.el index 1a41745512..2c1936864f 100644 --- a/emacs/guix-profiles.el +++ b/emacs/guix-profiles.el @@ -26,7 +26,7 @@ "User profile.") (defvar guix-default-profile - (concat guix-state-directory + (concat guix-config-state-directory "/profiles/per-user/" (getenv "USER") "/guix-profile") |