summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOleg Pykhalov <go.wigust@gmail.com>2018-03-27 17:56:02 +0300
committerOleg Pykhalov <go.wigust@gmail.com>2018-03-27 17:56:02 +0300
commit918b3894baaa475e30d86b389ddca73a5ea58638 (patch)
treed7b1957f20d0014e4355db4ac624254c2a27b5fc
parentAdd guix.scm. (diff)
downloademacs-terminal-here-918b3894baaa475e30d86b389ddca73a5ea58638.tar.gz
terminal-here-terminal-window-name: Add directory.
* terminal-here.el (terminal-here-terminal-window-name): Add directory.
-rw-r--r--terminal-here.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/terminal-here.el b/terminal-here.el
index 53d8355..b713b26 100644
--- a/terminal-here.el
+++ b/terminal-here.el
@@ -151,7 +151,9 @@ If new is f attach to a multiplexer session called `dir'."
"Return a window name. "
(let ((command (first command)))
(cond ((string-equal command "xterm")
- (list "-title" command)))))
+ (list "-title" (mapconcat 'identity
+ (list command dir)
+ " "))))))
(defun terminal-here-multiplexer-command (dir)
"Return a multiplexer command."