From c93418c0dc0e1d2e853dae722890699be8839c8f Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Sun, 16 Nov 2025 14:17:04 +0100
Subject: [PATCH] add tool bar icons next and prev. buffer

---
 icon/Fluent-dark/go-bottom-symbolic.svg       |  7 ++
 icon/Fluent-dark/go-down-symbolic.svg         |  6 ++
 icon/Fluent-dark/go-first-symbolic.svg        |  7 ++
 icon/Fluent-dark/go-last-symbolic.svg         |  9 +++
 icon/Fluent-dark/go-next-symbolic.svg         |  6 ++
 icon/Fluent-dark/go-previous-symbolic.svg     |  6 ++
 icon/Fluent-dark/go-top-symbolic.svg          |  7 ++
 icon/Fluent-dark/go-up-symbolic.svg           |  6 ++
 .../shuffler-swapwindows-symbolic.svg         |  6 ++
 .../xapp-go-history-next-symbolic.svg         |  3 +
 .../xapp-go-history-previous-symbolic.svg     |  3 +
 lisp/my/my-tool-bar.el                        | 81 ++++++++++++++++++-
 12 files changed, 145 insertions(+), 2 deletions(-)
 create mode 100644 icon/Fluent-dark/go-bottom-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-down-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-first-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-last-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-next-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-previous-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-top-symbolic.svg
 create mode 100644 icon/Fluent-dark/go-up-symbolic.svg
 create mode 100644 icon/Fluent-dark/shuffler-swapwindows-symbolic.svg
 create mode 100644 icon/Fluent-dark/xapp-go-history-next-symbolic.svg
 create mode 100644 icon/Fluent-dark/xapp-go-history-previous-symbolic.svg

diff --git a/icon/Fluent-dark/go-bottom-symbolic.svg b/icon/Fluent-dark/go-bottom-symbolic.svg
new file mode 100644
index 00000000..f7400553
--- /dev/null
+++ b/icon/Fluent-dark/go-bottom-symbolic.svg
@@ -0,0 +1,7 @@
+<svg version="1.1" viewBox="0 0 16 16">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path class="ColorScheme-Text" d="M 14.3633,3.6367 8,10 1.6367,3.6367 2.34373,2.92967 l 5.6562,5.6562 5.6562,-5.6562 0.70703,0.70703 z" fill="currentColor"/>
+ <circle class="ColorScheme-Text" transform="scale(1,-1)" cx="8" cy="-12" r="1" fill="currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/go-down-symbolic.svg b/icon/Fluent-dark/go-down-symbolic.svg
new file mode 100644
index 00000000..df10a6a7
--- /dev/null
+++ b/icon/Fluent-dark/go-down-symbolic.svg
@@ -0,0 +1,6 @@
+<svg width="16" height="16" version="1.1">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path class="ColorScheme-Text" d="M 1.6367,4.6367 8,11 14.3633,4.6367 13.65627,3.92967 8.00007,9.58587 2.34387,3.92967 1.63684,4.6367 Z" fill="currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/go-first-symbolic.svg b/icon/Fluent-dark/go-first-symbolic.svg
new file mode 100644
index 00000000..1171097e
--- /dev/null
+++ b/icon/Fluent-dark/go-first-symbolic.svg
@@ -0,0 +1,7 @@
+<svg width="16" height="16" version="1.1">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path class="ColorScheme-Text" d="m12.363 1.6367-6.3633 6.3633 6.3633 6.3633 0.70703-0.70703-5.6562-5.6562 5.6562-5.6562-0.70703-0.70703z" fill="currentColor"/>
+ <circle class="ColorScheme-Text" transform="rotate(-90)" cx="-8" cy="4" r="1" fill="currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/go-last-symbolic.svg b/icon/Fluent-dark/go-last-symbolic.svg
new file mode 100644
index 00000000..cce9020b
--- /dev/null
+++ b/icon/Fluent-dark/go-last-symbolic.svg
@@ -0,0 +1,9 @@
+<svg width="16" height="16">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <g transform="rotate(90,8,8)" class="ColorScheme-Text" fill="currentColor">
+  <path class="ColorScheme-Text" d="M 14.3633,12.3633 8,6 l -6.3633,6.3633 0.70703,0.70703 5.6562,-5.6562 5.6562,5.6562 0.70703,-0.70703 z"/>
+  <circle class="ColorScheme-Text" cx="8" cy="4" r="1"/>
+ </g>
+</svg>
diff --git a/icon/Fluent-dark/go-next-symbolic.svg b/icon/Fluent-dark/go-next-symbolic.svg
new file mode 100644
index 00000000..9eaa6709
--- /dev/null
+++ b/icon/Fluent-dark/go-next-symbolic.svg
@@ -0,0 +1,6 @@
+<svg width="16" height="16" version="1.1">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path class="ColorScheme-Text" d="M 4.6367,1.6367 11,8 4.6367,14.3633 3.92967,13.65627 9.58587,8.00007 3.92967,2.34387 4.6367,1.63684 Z" fill="currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/go-previous-symbolic.svg b/icon/Fluent-dark/go-previous-symbolic.svg
new file mode 100644
index 00000000..ecf82efc
--- /dev/null
+++ b/icon/Fluent-dark/go-previous-symbolic.svg
@@ -0,0 +1,6 @@
+<svg width="16" height="16" version="1.1">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path d="m10.363 1.6367-6.3633 6.3633 6.3633 6.3633 0.70703-0.70703-5.6562-5.6562 5.6562-5.6562-0.70703-0.70703z" class="ColorScheme-Text" style="fill:currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/go-top-symbolic.svg b/icon/Fluent-dark/go-top-symbolic.svg
new file mode 100644
index 00000000..66e81bf1
--- /dev/null
+++ b/icon/Fluent-dark/go-top-symbolic.svg
@@ -0,0 +1,7 @@
+<svg width="16" height="16" version="1.1">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path class="ColorScheme-Text" d="M 14.3633,12.3633 8,6 l -6.3633,6.3633 0.70703,0.70703 5.6562,-5.6562 5.6562,5.6562 0.70703,-0.70703 z" fill="currentColor"/>
+ <circle class="ColorScheme-Text" cx="8" cy="4" r="1" fill="currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/go-up-symbolic.svg b/icon/Fluent-dark/go-up-symbolic.svg
new file mode 100644
index 00000000..72f27604
--- /dev/null
+++ b/icon/Fluent-dark/go-up-symbolic.svg
@@ -0,0 +1,6 @@
+<svg width="16" height="16" version="1.1">
+ <defs>
+  <style id="current-color-scheme" type="text/css">.ColorScheme-Text { color:#dedede; }</style>
+ </defs>
+ <path class="ColorScheme-Text" d="M 14.3633,10.3633 8,4 l -6.3633,6.3633 0.70703,0.70703 5.6562,-5.6562 5.6562,5.6562 0.70703,-0.70703 z" fill="currentColor"/>
+</svg>
diff --git a/icon/Fluent-dark/shuffler-swapwindows-symbolic.svg b/icon/Fluent-dark/shuffler-swapwindows-symbolic.svg
new file mode 100644
index 00000000..5c52d733
--- /dev/null
+++ b/icon/Fluent-dark/shuffler-swapwindows-symbolic.svg
@@ -0,0 +1,6 @@
+<svg width="16" height="16" version="1.1" viewBox="0 0 16 16" xmlns="http://www.w3.org/2000/svg">
+ <path d="m7.8789 3.3789-0.70703 0.70703 0.91406 0.91406h-5.0859v1h5.0859l-0.91406 0.91406 0.70703 0.70703 2.1211-2.1211-0.70703-0.70703z" fill="#dedede" stop-color="#000000" stroke-linecap="round" stroke-linejoin="round" stroke-width="2"/>
+ <path d="m8.1211 8.3789 0.70703 0.70703-0.91406 0.91406h5.0859v1h-5.0859l0.91406 0.91406-0.70703 0.70703-2.1211-2.1211 0.70703-0.70703z" fill="#dedede" stop-color="#000000" stroke-linecap="round" stroke-linejoin="round" stroke-width="2"/>
+ <path d="m11 3v5h5v-5h-5zm1 1h3v3h-3v-3z" fill="#dedede" stop-color="#000000" stroke-linecap="round" stroke-linejoin="round" stroke-width="2"/>
+ <path d="m0 8v5h5v-5zm1 1h3v3h-3z" fill="#dedede" stop-color="#000000" stroke-linecap="round" stroke-linejoin="round" stroke-width="2"/>
+</svg>
diff --git a/icon/Fluent-dark/xapp-go-history-next-symbolic.svg b/icon/Fluent-dark/xapp-go-history-next-symbolic.svg
new file mode 100644
index 00000000..af77c1ef
--- /dev/null
+++ b/icon/Fluent-dark/xapp-go-history-next-symbolic.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" version="1.1" xmlns="http://www.w3.org/2000/svg">
+ <path d="m14.584 5.5a44.122 44.122 0 0 1-2.26 1.334c-0.788 0.43-1.562 0.818-2.322 1.166v-2h-8.002v-1h8v-2a43.07 43.07 0 0 1 2.324 1.18 50.17 50.17 0 0 1 2.26 1.32zm-1.584 8.5h-3v-3h3zm-1-1v-1h-1v1zm-3 1h-3v-3h3zm-1-1v-1h-1v1zm-3 1h-3v-3h3zm-1-1v-1h-1v1z" color="#000000" fill="#dedede" font-family="sans-serif" font-weight="400" overflow="visible" style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:none;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;shape-padding:0;text-decoration-color:#000000;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-transform:none" white-space="normal"/>
+</svg>
diff --git a/icon/Fluent-dark/xapp-go-history-previous-symbolic.svg b/icon/Fluent-dark/xapp-go-history-previous-symbolic.svg
new file mode 100644
index 00000000..a66f993c
--- /dev/null
+++ b/icon/Fluent-dark/xapp-go-history-previous-symbolic.svg
@@ -0,0 +1,3 @@
+<svg width="16" height="16" version="1.1" xmlns="http://www.w3.org/2000/svg">
+ <path d="m1.416 5.5a44.122 44.122 0 0 0 2.26 1.334c0.788 0.43 1.562 0.818 2.322 1.166v-2h8.002v-1h-8v-2a43.07 43.07 0 0 0-2.324 1.18 50.17 50.17 0 0 0-2.26 1.32zm1.584 8.5h3v-3h-3zm1-1v-1h1v1zm3 1h3v-3h-3zm1-1v-1h1v1zm3 1h3v-3h-3zm1-1v-1h1v1z" color="#000000" fill="#dedede" font-family="sans-serif" font-weight="400" overflow="visible" style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:none;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;shape-padding:0;text-decoration-color:#000000;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-transform:none" white-space="normal"/>
+</svg>
diff --git a/lisp/my/my-tool-bar.el b/lisp/my/my-tool-bar.el
index a6bc5910..fb05c09a 100644
--- a/lisp/my/my-tool-bar.el
+++ b/lisp/my/my-tool-bar.el
@@ -50,6 +50,22 @@
   "Button to run `keyboard-escape-quit'.")
 ;; "Button to run `keyboard-quit'."
 
+(defun my-tool-bar-function-previous-buffer (event)
+  "Run `previous-buffer'."
+  (interactive "e")
+  (let ()
+    (previous-buffer)))
+(defvar my-tool-bar-button-previous-buffer "Previous buffer "
+  "Button to run `previous-buffer'.")
+
+(defun my-tool-bar-function-next-buffer (event)
+  "Run `next-buffer'."
+  (interactive "e")
+  (let ()
+    (next-buffer)))
+(defvar my-tool-bar-button-next-buffer "Next buffer "
+  "Button to run `next-buffer'.")
+
 (defun my-tool-bar-function-revert (event)
   "Run `revert-buffer'."
   (interactive "e")
@@ -116,6 +132,14 @@
 (defvar my-tool-bar-button-fill "Comment "
   "Button to run `comment-or-uncomment-region'.")
 
+(defun my-tool-bar-function-hide (event)
+  "Run `my-org-hide'."
+  (interactive "e")
+  (let ()
+    (my-org-hide) ))
+(defvar my-tool-bar-button-fill "(Un)hide "
+  "Button to run `my-org-hide'.")
+
 (defun my-tool-bar-function-spell (event)
   "Run `flyspell-mode' and `flyspell-buffer'."
   (interactive "e")
@@ -171,19 +195,30 @@ You can hide these buttons by customizing `tab-bar-format' and removing
        :help (concat "Save as "
                      (propertize "`my-org-export'"
                                  'face 'font-lock-constant-face)))
+      (prev
+       menu-item ,my-tool-bar-button-previous-buffer my-tool-bar-function-previous-buffer
+       :help (concat "Previous buffer "
+                     (propertize "`previous-buffer'"
+                                 'face 'font-lock-constant-face)))
+      (next
+       menu-item ,my-tool-bar-button-buffer-next my-tool-bar-function-buffer-next
+       :help (concat "Next buffer "
+                     (propertize "`next-buffer'"
+                                 'face 'font-lock-constant-face)))
       (cancle
        menu-item ,my-tool-bar-button-cancle my-tool-bar-function-cancle
        :help (concat "Cancle "
                      (propertize "`keyboard-escape-quit'"
                                  'face 'font-lock-constant-face)))
 
-      (sep-1 menu-item ,(tab-bar-separator) ignore)
-
       (revert
        menu-item ,my-tool-bar-button-revert my-tool-bar-function-revert
        :help (concat "Re-read current buffer from its file "
                      (propertize "`revert-buffer'"
                                  'face 'font-lock-constant-face)))
+
+      (sep-1 menu-item ,(tab-bar-separator) ignore)
+
       (undo
        menu-item ,my-tool-bar-button-undo my-tool-bar-function-undo
        :help (concat "Undo "
@@ -219,6 +254,11 @@ You can hide these buttons by customizing `tab-bar-format' and removing
        :help (concat "Comment text in region "
                      (propertize "`comment-or-uncomment-region'"
                                  'face 'font-lock-constant-face)))
+      (comment
+       menu-item ,my-tool-bar-button-hide my-tool-bar-function-hide
+       :help (concat "(Un)hide elements "
+                     (propertize "`my-org-hide'"
+                                 'face 'font-lock-constant-face)))
 
       (sep-2 menu-item ,(tab-bar-separator) ignore)
       ;; (sep-2 menu-item ,my-tool-bar-separator ignore
@@ -324,6 +364,32 @@ See `icon-preference' for the order of type preference."
       :version "29.1"))
   (setq my-tool-bar-button-cancle (icon-string 'my-tool-bar-icon-cancle))
 
+  (unless (iconp 'my-tool-bar-icon-previous-buffer)
+    (define-icon my-tool-bar-icon-previous-buffer nil
+      `((image "Fluent-dark/go-previous-symbolic.svg"
+               :height (1.5 . em)
+               :margin ,tab-bar-button-margin
+               :ascent center)
+        (symbol "♺ ")  ; ⮔ ♺
+        (text "Prev-buffer "
+              ))
+      "Icon for previous buffer."
+      :version "29.1"))
+  (setq my-tool-bar-button-previous-buffer (icon-string 'my-tool-bar-icon-previous-buffer))
+
+  (unless (iconp 'my-tool-bar-icon-next-buffer)
+    (define-icon my-tool-bar-icon-next-buffer nil
+      `((image "Fluent-dark/go-next-symbolic.svg"
+               :height (1.5 . em)
+               :margin ,tab-bar-button-margin
+               :ascent center)
+        (symbol "♺ ")  ; ⮔ ♺
+        (text "Next-buffer "
+              ))
+      "Icon for next buffer."
+      :version "29.1"))
+  (setq my-tool-bar-button-next-buffer (icon-string 'my-tool-bar-icon-next-buffer))
+
   (unless (iconp 'my-tool-bar-icon-revert)
     (define-icon my-tool-bar-icon-revert nil
       `((image ;; "refresh.xpm"
@@ -449,6 +515,17 @@ See `icon-preference' for the order of type preference."
       :version "29.1"))
   (setq my-tool-bar-button-comment (icon-string 'my-tool-bar-icon-comment))
 
+  (unless (iconp 'my-tool-bar-icon-hide)
+    (define-icon my-tool-bar-icon-hide nil
+      `((image "Fluent-dark/display-no-filter-symbolic.svg"
+               :height (1.5 . em)
+               :margin ,tab-bar-button-margin
+               :ascent center)
+        (text "(Un)hide " ))
+      "Icon for (un)hide elements."
+      :version "29.1"))
+  (setq my-tool-bar-button-hide (icon-string 'my-tool-bar-icon-hide))
+
   (unless (iconp 'my-tool-bar-icon-spell)
     (define-icon my-tool-bar-icon-spell nil
       `((image ;; "spell.xpm"