[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dtache 7f63c79a06 07/19: Update dtache-command-format
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dtache 7f63c79a06 07/19: Update dtache-command-format |
Date: |
Wed, 18 May 2022 12:57:36 -0400 (EDT) |
branch: externals/dtache
commit 7f63c79a069ac09ca1819c0a30d324ef417b0a51
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Update dtache-command-format
---
dtache.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/dtache.el b/dtache.el
index dbb1a2991d..a41558a6c3 100644
--- a/dtache.el
+++ b/dtache.el
@@ -111,7 +111,7 @@
:group 'dtache)
(defcustom dtache-command-format
- '(:width 50 :padding 4 :function dtache--command-str)
+ '(:width 90 :padding 4 :function dtache-command-str)
"The format for displaying the command."
:type 'integer
:group 'dtache)
@@ -893,6 +893,13 @@ Optionally CONCAT the command return command into a
string."
(cand (completing-read "Select session: " collection nil t)))
(dtache--decode-session cand)))
+(defun dtache-command-str (session max-length)
+ "Return SESSION's command as a string restrict it to MAX-LENGTH."
+ (let ((command (dtache--session-command session)))
+ (if (<= (length command) max-length)
+ command
+ (concat (substring (dtache--session-command session) 0 (- max-length 3))
"..."))))
+
;;;; Support functions
;;;;; Session
@@ -1279,13 +1286,6 @@ If event is cased by an update to the `dtache' database,
re-initialize
;;;;; UI
-(defun dtache--command-str (session max-length)
- "Return SESSION's command as a string restrict it to MAX-LENGTH."
- (let ((command (dtache--session-command session)))
- (if (<= (length command) max-length)
- command
- (concat (substring (dtache--session-command session) 0 (- max-length 3))
"..."))))
-
(defun dtache--metadata-str (session)
"Return SESSION's metadata as a string."
(string-join
- [elpa] externals/dtache 4e7387bbe0 04/19: Add dtache-vterm-mode, (continued)
- [elpa] externals/dtache 4e7387bbe0 04/19: Add dtache-vterm-mode, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 34f5111023 11/19: Rename dtache-setup, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 6c51554e69 01/19: Improve package configuration, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 5a5b3f5db3 02/19: Fix names, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 24ceed0282 12/19: Improve dtache-init, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 34f39efa36 14/19: Add string when attaching, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 6fa1fafb96 15/19: Add integration with embark, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 8d2ea557c0 16/19: Conditionally enable log mode when diffing, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 65fd89d6d7 17/19: Disable show output on attach by default, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache e864ccd547 18/19: Improve attaching to a detached compilation, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 7f63c79a06 07/19: Update dtache-command-format,
ELPA Syncer <=
- [elpa] externals/dtache b45d3a6a74 05/19: Add vterm to dtache-init, ELPA Syncer, 2022/05/18
- [elpa] externals/dtache 02651e47d3 19/19: Update CHANGELOG, ELPA Syncer, 2022/05/18