branch: externals/dtache
commit 125f100b20c7f357eec78d9bec609c9bfe45a5cf
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Regroup variable section
---
dtache.el | 28 ++++++++++++++++------------
1 file changed, 16 insertions(+), 12 deletions(-)
diff --git a/dtache.el b/dtache.el
index 5612fb5101..2dc2a34c5d 100644
--- a/dtache.el
+++ b/dtache.el
@@ -53,6 +53,8 @@
;;;; Variables
+;;;;; Customizable
+
(defvar dtache-session-directory nil
"The directory to store `dtache' sessions.")
(defvar dtache-db-directory user-emacs-directory
@@ -79,18 +81,6 @@
"A property list defining how often to run a timer.")
(defvar dtache-shell-command-action '(:attach dtache-shell-command-attach
:view dtache-view-dwim)
"Actions for a session created with `dtache-shell-command'.")
-
-(defvar dtache-enabled nil)
-(defvar dtache-session-mode nil
- "Mode of operation for session.
-Valid values are: create, new and attach")
-(defvar dtache-session-origin nil
- "Variable to specify the origin of the session.")
-(defvar dtache-session-action nil
- "A property list of actions for a session.")
-(defvar dtache-shell-command-history nil
- "History of commands run with `dtache-shell-command'.")
-
(defvar dtache-annotation-format
`((:width 3 :function dtache--active-str :face dtache-active-face)
(:width 3 :function dtache--status-str :face dtache-failure-face)
@@ -116,6 +106,19 @@ Valid values are: create, new and attach")
(define-key map "=" #'dtache-diff-session)
map))
+;;;;; Internal
+
+(defvar dtache-enabled nil)
+(defvar dtache-session-mode nil
+ "Mode of operation for session.
+Valid values are: create, new and attach")
+(defvar dtache-session-origin nil
+ "Variable to specify the origin of the session.")
+(defvar dtache-session-action nil
+ "A property list of actions for a session.")
+(defvar dtache-shell-command-history nil
+ "History of commands run with `dtache-shell-command'.")
+
;;;;; Faces
(defgroup dtache-faces nil
@@ -172,6 +175,7 @@ Valid values are: create, new and attach")
(make-variable-buffer-local 'dtache--buffer-session)
(defvar dtache--session-candidates nil
"An alist of session candidates.")
+
(defconst dtache--dtach-eof-message "\\[EOF - dtach terminating\\]"
"Message printed when `dtach' terminates.")
(defconst dtache--dtach-detached-message "\\[detached\\]\^M"
