From 3133eb516c4c7686aec18ab7adb10321ba557e35 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Thu, 22 Feb 2018 04:10:21 +0300 Subject: Add scrollbar option. * terminal-here.el (terminal-here-scrollbar): New variable. (terminal-here-terminal-options): Add this. --- terminal-here.el | 14 ++++++++++---- 1 file 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'. -- cgit v1.2.3