branch: externals/dtache
commit 0c8241a33d1a5bfb87ac9e1e0aaa859b722b5338
Author: Niklas Eklund <niklas.ekl...@zenseact.com>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Update actions from defvar to defcustom
---
dtache-compile.el | 12 +++++++++---
dtache-eshell.el | 8 +++++++-
dtache-shell.el | 16 ++++++++++++----
3 files changed, 28 insertions(+), 8 deletions(-)
diff --git a/dtache-compile.el b/dtache-compile.el
index 67a4fd4bc2..77fa927d41 100644
--- a/dtache-compile.el
+++ b/dtache-compile.el
@@ -29,7 +29,13 @@
;;;; Variables
-(defvar dtache-post-compile-session-action '(:attach dtache-compile-attach
:view dtache-post-compile-session :run dtache-compile))
+(defcustom dtache-compile-session-action
+ '(:attach dtache-compile-attach
+ :view dtache-post-compile-session
+ :run dtache-compile)
+ "Actions for a session created with `dtache-compile'."
+ :group 'dtache
+ :type 'plist)
;;;; Commands
@@ -45,7 +51,7 @@ Optionally enable COMINT if prefix-argument is provided."
command))
(consp current-prefix-arg)))
(let* ((dtache-enabled t)
- (dtache-session-action dtache-post-compile-session-action)
+ (dtache-session-action dtache-compile-session-action)
(dtache-session-origin 'compile)
(dtache-session-mode 'create))
(compile command comint)))
@@ -56,7 +62,7 @@ Optionally enable COMINT if prefix-argument is provided."
Optionally EDIT-COMMAND."
(interactive "P")
(let* ((dtache-enabled t)
- (dtache-session-action dtache-post-compile-session-action)
+ (dtache-session-action dtache-compile-session-action)
(dtache-session-origin 'compile)
(dtache-session-mode 'create))
(recompile edit-command)))
diff --git a/dtache-eshell.el b/dtache-eshell.el
index 20d7c7294e..86ecca7bc1 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -32,7 +32,13 @@
;;;; Variables
-(defvar dtache-eshell-session-action '(:attach dtache-shell-command-attach
:view dtache-view-dwim :run dtache-shell-command))
+(defcustom dtache-eshell-session-action
+ '(:attach dtache-shell-command-attach
+ :view dtache-view-dwim
+ :run dtache-shell-command)
+ "Actions for a session created with `dtache-eshell'."
+ :group 'dtache
+ :type 'plist)
;;;; Functions
diff --git a/dtache-shell.el b/dtache-shell.el
index e8278602ad..a353a72b41 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -29,10 +29,18 @@
;;;; Variables
-(defvar dtache-shell-history-file nil
- "File to store history.")
-(defvar dtache-shell-session-action '(:attach dtache-shell-command-attach
:view dtache-view-dwim :run dtache-shell-command)
- "Actions for a session created with `dtache-shell'.")
+(defcustom dtache-shell-session-action
+ '(:attach dtache-shell-command-attach
+ :view dtache-view-dwim
+ :run dtache-shell-command)
+ "Actions for a session created with `dtache-shell'."
+ :group 'dtache
+ :type 'plist)
+
+(defcustom dtache-shell-history-file nil
+ "File to store history."
+ :type 'string
+ :group 'dtache)
;;;; Functions
