Commit 095908ae authored by Juri Linkov's avatar Juri Linkov

Tab-line horizontal scrolling with UI buttons and commands (bug#37667)

* etc/images/tabs/left-arrow.xpm:
* etc/images/tabs/right-arrow.xpm: New images.

* lisp/tab-line.el (tab-line-left-map, tab-line-right-map): New keymaps.
(tab-line-left-button, tab-line-right-button): New variables.
(tab-line-tab-name-function): Turn defvar into defcustom.
(tab-line-tab-name-buffer): New function.
(tab-line-tab-name-truncated-buffer): Rename from tab-line-tab-name.
(tab-line-tabs-limit): Default to nil.
(tab-line-tabs): Behavior depends on tab-line-tabs-limit.
(tab-line-format): Use window-parameter tab-line-hscroll.
Add left/right buttons.
(tab-line-hscroll): New function.
(tab-line-hscroll-right, tab-line-hscroll-left): New commands
bound to mouse-wheel.  Rebind tab-switching commands to	mouse-wheel
with Ctrl-modifier.
parent f342f9cd
Pipeline #3775 passed with stage
in 54 minutes and 52 seconds
......@@ -2,7 +2,7 @@ This directory contains icons for the Tabs user interface.
COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES
Files: close.xpm new.xpm
Files: close.xpm new.xpm left-arrow.xpm right-arrow.xpm
Author: Juri Linkov <juri@linkov.net>
Copyright (C) 2019 Free Software Foundation, Inc.
License: GNU General Public License version 3 or later (see COPYING)
/* XPM */
static char * left_arrow_xpm[] = {
"9 9 4 1",
" c None",
". c #BFBFBF",
"+ c #000000",
"@ c #808080",
".........",
".....+@..",
"....+@...",
"...+@....",
"..+@.....",
"...+@....",
"....+@...",
".....+@..",
"........."};
/* XPM */
static char * right_arrow_xpm[] = {
"9 9 4 1",
" c None",
". c #BFBFBF",
"+ c #808080",
"@ c #000000",
".........",
"..+@.....",
"...+@....",
"....+@...",
".....+@..",
"....+@...",
"...+@....",
"..+@.....",
"........."};
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment