Re: [AUCTeX] How to customize the AucTex toolbar?

[Tassilo Horn]

Hi again,

I've missed adding it to the LaTeX toolbar.  Here's a new, complete
patch:

--8<---------------cut here---------------start------------->8---
Index: tex-bar.el
===================================================================
RCS file: /sources/auctex/auctex/tex-bar.el,v
retrieving revision 1.23
retrieving revision 1.26
diff -u -r1.23 -r1.26
--- tex-bar.el  2 Aug 2008 20:19:39 -0000       1.23
+++ tex-bar.el  20 Dec 2012 08:51:42 -0000      1.26
@@ -84,7 +84,7 @@
 
 (defcustom TeX-bar-TeX-buttons
   '(new-file open-file dired kill-buffer save-buffer cut copy paste undo
-            [separator nil] tex next-error view bibtex)
+            [separator nil] tex next-error view bibtex spell)
   "List of buttons available in `tex-mode'.
 It should be a list in the same format of the BUTTONS parameter
 in function `toolbarx-install-toolbar', often a symbol that
@@ -114,7 +114,8 @@
                    (const view)
                    (const file)
                    (const bibtex)
-                   (const clean))
+                   (const clean)
+                   (const spell))
                    ;; (const latex-symbols-experimental)
               (repeat (choice (symbol :tag "Label")
                               (vector :args ((symbol :tag "Label in Emacs ")
@@ -196,7 +197,11 @@
     (clean  :image "delete"
            :command (TeX-command "Clean" 'TeX-master-file -1)
            :help (lambda (&rest ignored)
-                   (TeX-bar-help-from-command-list "Clean"))))
+                   (TeX-bar-help-from-command-list "Clean")))
+    (spell  :image "spell"
+           :command (TeX-command "Spell" 'TeX-master-file -1)
+           :help (lambda (&rest ignored)
+                   (TeX-bar-help-from-command-list "Spell"))))
   ;; latex-symbols-experimental?
   "Alist for button definitions in TeX bar.
 Value should le a list where each element is of format (KEY .
@@ -226,7 +231,7 @@
 
 (defcustom TeX-bar-LaTeX-buttons
   '(new-file open-file dired kill-buffer save-buffer cut copy paste undo
-             [separator nil] latex next-error view bibtex)
+             [separator nil] latex next-error view bibtex spell)
   "List of buttons available in `latex-mode'.
 It should be a list in the same format of the BUTTONS parameter
 in function `toolbarx-install-toolbar', often a symbol that
@@ -257,6 +262,7 @@
                    (const file)
                    (const bibtex)
                    (const clean)
+                   (const spell)
                    (const latex-symbols-experimental))
               (repeat (choice (symbol :tag "Label")
                               (vector :args ((symbol :tag "Label in Emacs ")
@@ -339,6 +345,10 @@
            :command (TeX-command "Clean" 'TeX-master-file -1)
            :help (lambda (&rest ignored)
                    (TeX-bar-help-from-command-list "Clean")))
+    (spell  :image "spell"
+           :command (TeX-command "Spell" 'TeX-master-file -1)
+           :help (lambda (&rest ignored)
+                   (TeX-bar-help-from-command-list "Spell")))
     (latex-symbols-experimental . (:alias :eval-group
                                          LaTeX-symbols-toolbar-switch-contents
                                          LaTeX-symbols-toolbar-contents)))
--8<---------------cut here---------------end--------------->8---

I also added a spell.xpm image to auctex/images that I simply copied
from emacs/etc/images.  When you apply the patch, you have to do the
same.

Bye,
Tassilo