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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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 @@
+
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"