diff options
| author | Juri Linkov | 2019-10-23 00:17:27 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-10-23 00:17:27 +0300 |
| commit | 095908aec4a6a414c13385c429e559a73d787ae0 (patch) | |
| tree | 17a647338ae239d643d288b483dabe56809957f2 /etc | |
| parent | f342f9cd267d39b3ef7d0c2a58718f4ac62f5abd (diff) | |
| download | emacs-095908aec4a6a414c13385c429e559a73d787ae0.tar.gz emacs-095908aec4a6a414c13385c429e559a73d787ae0.zip | |
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.
Diffstat (limited to 'etc')
| -rw-r--r-- | etc/images/tabs/README | 2 | ||||
| -rw-r--r-- | etc/images/tabs/left-arrow.xpm | 16 | ||||
| -rw-r--r-- | etc/images/tabs/right-arrow.xpm | 16 |
3 files changed, 33 insertions, 1 deletions
diff --git a/etc/images/tabs/README b/etc/images/tabs/README index 1e9f4e5b595..ac549cf4bdf 100644 --- a/etc/images/tabs/README +++ b/etc/images/tabs/README | |||
| @@ -2,7 +2,7 @@ This directory contains icons for the Tabs user interface. | |||
| 2 | 2 | ||
| 3 | COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES | 3 | COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES |
| 4 | 4 | ||
| 5 | Files: close.xpm new.xpm | 5 | Files: close.xpm new.xpm left-arrow.xpm right-arrow.xpm |
| 6 | Author: Juri Linkov <juri@linkov.net> | 6 | Author: Juri Linkov <juri@linkov.net> |
| 7 | Copyright (C) 2019 Free Software Foundation, Inc. | 7 | Copyright (C) 2019 Free Software Foundation, Inc. |
| 8 | License: GNU General Public License version 3 or later (see COPYING) | 8 | License: GNU General Public License version 3 or later (see COPYING) |
diff --git a/etc/images/tabs/left-arrow.xpm b/etc/images/tabs/left-arrow.xpm new file mode 100644 index 00000000000..f133cd62173 --- /dev/null +++ b/etc/images/tabs/left-arrow.xpm | |||
| @@ -0,0 +1,16 @@ | |||
| 1 | /* XPM */ | ||
| 2 | static char * left_arrow_xpm[] = { | ||
| 3 | "9 9 4 1", | ||
| 4 | " c None", | ||
| 5 | ". c #BFBFBF", | ||
| 6 | "+ c #000000", | ||
| 7 | "@ c #808080", | ||
| 8 | ".........", | ||
| 9 | ".....+@..", | ||
| 10 | "....+@...", | ||
| 11 | "...+@....", | ||
| 12 | "..+@.....", | ||
| 13 | "...+@....", | ||
| 14 | "....+@...", | ||
| 15 | ".....+@..", | ||
| 16 | "........."}; | ||
diff --git a/etc/images/tabs/right-arrow.xpm b/etc/images/tabs/right-arrow.xpm new file mode 100644 index 00000000000..ab1f1a099f1 --- /dev/null +++ b/etc/images/tabs/right-arrow.xpm | |||
| @@ -0,0 +1,16 @@ | |||
| 1 | /* XPM */ | ||
| 2 | static char * right_arrow_xpm[] = { | ||
| 3 | "9 9 4 1", | ||
| 4 | " c None", | ||
| 5 | ". c #BFBFBF", | ||
| 6 | "+ c #808080", | ||
| 7 | "@ c #000000", | ||
| 8 | ".........", | ||
| 9 | "..+@.....", | ||
| 10 | "...+@....", | ||
| 11 | "....+@...", | ||
| 12 | ".....+@..", | ||
| 13 | "....+@...", | ||
| 14 | "...+@....", | ||
| 15 | "..+@.....", | ||
| 16 | "........."}; | ||