diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2018-02-22 04:10:21 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2018-02-28 04:28:55 +0300 |
| commit | 3133eb516c4c7686aec18ab7adb10321ba557e35 (patch) | |
| tree | 64118b778ee9632d1247d22e070b5054e483f073 | |
| parent | Add color options. (diff) | |
| download | emacs-terminal-here-3133eb516c4c7686aec18ab7adb10321ba557e35.tar.gz | |
Add scrollbar option.
* terminal-here.el (terminal-here-scrollbar): New variable.
(terminal-here-terminal-options): Add this.
| -rw-r--r-- | terminal-here.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/terminal-here.el b/terminal-here.el index 4aa9c86..53d8355 100644 --- a/terminal-here.el +++ b/terminal-here.el @@ -91,6 +91,11 @@ Typically this is -e, gnome-terminal uses -x." :group 'terminal-here :type 'symbol) +(defcustom terminal-here-scrollbar t + "If nil disable scroll for a terminal." + :group 'terminal-here + :type 'boolean) + (defcustom terminal-here-multiplexers '("screen" "tmux") "List of terminal emulators." @@ -126,10 +131,11 @@ If f attach to a `screen' session inside multiplexer." (defun terminal-here-terminal-options () "Return options for a terminal." (cond ((string-equal (car terminal-here-terminal-emulators) "xterm") - (cond ((eq terminal-here-color 'light) - '("-bg" "white" "-fg" "black")) - ((eq terminal-here-color 'dark) - '("-bg" "black" "-fg" "white")))))) + `(,@(cond ((eq terminal-here-color 'light) + '("-bg" "white" "-fg" "black")) + ((eq terminal-here-color 'dark) + '("-bg" "black" "-fg" "white"))) + ,(if terminal-here-scrollbar "-sb" "+sb"))))) (defun terminal-here-multiplexer-session (dir) "If new is t create a new multiplexer session called `dir'. |