1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
2 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
3 <!-- Created by htmlize-1.34 in css mode. -->
4 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6 <title>09-toolbar.el</title>
7 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
8 <meta name="author" content="Steve Youngs" />
9 <meta name="owner" content="steve@sxemacs.org" />
10 <style type="text/css">
14 background-color: #000000;
17 /* font-lock-comment-face */
21 /* font-lock-doc-string-face */
25 /* font-lock-function-name-face */
30 /* font-lock-keyword-face */
34 /* font-lock-reference-face */
38 /* font-lock-string-face */
42 /* font-lock-variable-name-face */
48 background-color: inherit;
51 text-decoration: underline;
55 background-color: #FD00FD;
56 text-decoration: underline;
59 background-color: #000000;
60 text-decoration: none;
67 <span class="comment">;; 09-toolbar.el --- Toolbar set up
69 <span class="comment">;; Copyright (C) 2007 - 2020 Steve Youngs
71 <span class="comment">;; Author: Steve Youngs <<a href="mailto:steve@sxemacs.org">steve@sxemacs.org</a>>
72 ;; Maintainer: Steve Youngs <<a href="mailto:steve@sxemacs.org">steve@sxemacs.org</a>>
73 ;; Created: <2007-12-02>
74 ;; Time-stamp: <Thursday Apr 9, 2020 07:43:09 steve>
75 ;; Download: <<a href="https://downloads.sxemacs.org/SYinits">https://downloads.sxemacs.org/SYinits</a>>
76 ;; HTMLised: <<a href="https://www.sxemacs.org/SYinits/09-toolbar.html">https://www.sxemacs.org/SYinits/09-toolbar.html</a>>
77 ;; Git Repo: git clone https://git.sxemacs.org/syinit
78 ;; Keywords: init, compile
80 <span class="comment">;; This file is part of SYinit
82 <span class="comment">;; Redistribution and use in source and binary forms, with or without
83 ;; modification, are permitted provided that the following conditions
86 ;; 1. Redistributions of source code must retain the above copyright
87 ;; notice, this list of conditions and the following disclaimer.
89 ;; 2. Redistributions in binary form must reproduce the above copyright
90 ;; notice, this list of conditions and the following disclaimer in the
91 ;; documentation and/or other materials provided with the distribution.
93 ;; 3. Neither the name of the author nor the names of any contributors
94 ;; may be used to endorse or promote products derived from this
95 ;; software without specific prior written permission.
97 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
98 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
99 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
100 ;; DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
101 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
102 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
103 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
104 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
105 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
106 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
107 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
109 <span class="comment">;;; Commentary:
111 ;; Sets up the toolbar the way I like it.
113 <span class="comment">;;; Credits:
115 ;; The HTML version of this file was created with Hrvoje Niksic's
116 ;; htmlize.el which is part of the XEmacs "text-modes" package.
119 <span class="comment">;;; Todo:
123 <span class="comment">;;; Code:
124 ;; Re-organise the default toolbar.
125 </span>(<span class="keyword">when</span> (<span class="keyword">featurep</span> '<span class="reference">toolbar</span>)
127 toolbar-info-use-separate-frame t
128 toolbar-mail-reader 'gnus
129 toolbar-news-use-separate-frame t)
130 (customize-set-variable 'toolbar-captioned-p nil))
132 (setq edit-toolbar-added-buttons-alist 'nil)
135 (<span class="keyword">lambda</span> (cons)
136 (setf (symbol-value (car cons)) (toolbar-make-button-list (cdr cons))))
137 edit-toolbar-added-buttons-alist)
139 (<span class="keyword">defun</span> <span class="function-name">toolbar-redo</span> ()
141 (call-interactively #'redo))
143 (<span class="keyword">defvar</span> <span class="variable-name">toolbar-redo-icon</span>
144 (toolbar-make-button-list
145 (locate-data-file "<span class="string">redo.png</span>")))
147 (<span class="keyword">defun</span> <span class="function-name">toolbar-irc</span> ()
149 (call-interactively #'sy-riece))
151 (<span class="keyword">defvar</span> <span class="variable-name">toolbar-irc-icon</span>
152 (toolbar-make-button-list
153 (locate-data-file "<span class="string">irc@32x32.png</span>")))
155 (<span class="keyword">defun</span> <span class="function-name">toolbar-emoney</span> ()
157 (call-interactively #'emoney))
159 (<span class="keyword">defvar</span> <span class="variable-name">toolbar-emoney-icon</span>
160 (toolbar-make-button-list
161 (locate-data-file "<span class="string">emoney.png</span>")))
163 (and (device-on-window-system-p)
166 '([toolbar-file-icon toolbar-open t "<span class="string">Open a file</span>"]
167 [toolbar-folder-icon toolbar-dired t "<span class="string">Edit a directory</span>"]
168 [toolbar-disk-icon toolbar-save t "<span class="string">Save buffer</span>"]
169 [toolbar-printer-icon toolbar-print t "<span class="string">Print buffer</span>"]
170 [toolbar-cut-icon toolbar-cut t "<span class="string">Kill region</span>"]
171 [toolbar-copy-icon toolbar-copy t "<span class="string">Copy region</span>"]
172 [toolbar-paste-icon toolbar-paste t "<span class="string">Paste from clipboard</span>"]
173 [toolbar-undo-icon toolbar-undo t "<span class="string">Undo</span>"]
174 [toolbar-redo-icon toolbar-redo t "<span class="string">Redo</span>"]
175 [toolbar-spell-icon toolbar-ispell t "<span class="string">Check spelling</span>"]
176 [toolbar-replace-icon toolbar-replace t "<span class="string">Search & Replace</span>"]
177 [toolbar-compile-icon toolbar-compile t "<span class="string">Start a compilation</span>"]
178 [toolbar-debug-icon toolbar-debug t "<span class="string">Start a debugger</span>"]
179 [toolbar-emoney-icon toolbar-emoney t "<span class="string">Manage your millions with eMoney</span>"]
180 [toolbar-irc-icon toolbar-irc t "<span class="string">Be productive with Riece</span>"]
181 [toolbar-news-icon gnus-other-frame t "<span class="string">Gnus</span>"]
183 [toolbar-info-icon toolbar-info t "<span class="string">Don't Panic!!</span>"])))
184 <span class="comment">;</span><span class="comment"><span class="reference">:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::</span></span><span class="comment">
185 </span>(message "<span class="doc-string">Toolbar set successfully</span>")
187 <!-- SXEmacs Logo -->
189 <a href="https://www.sxemacs.org/" target="_parent">
190 <img style="padding:0px 5px 0px 0px;border:0;width:88px;height:31px"
191 src="/Images/cbsx.png"
192 title="This page was created entirely in SXEmacs"
193 alt="Created with SXEmacs" />
195 <!-- End SXEmacs Logo -->
196 <!-- Valid XHTML 1.0 -->
197 <a href="http://validator.w3.org/check?uri=https%3a%2f%2fwww.sxemacs.org%2fSYinits%2f09-toolbar.html" target="_blank">
198 <img style="padding:0px 5px 0px 10px;border:0;width:88px;height:31px"
199 src="/Images/valid-xhtml10.png"
200 title="Valid XHTML 1.0 Transitional!"
201 alt="Valid XHTML 1.0 Transitional!" />
204 <!-- End Valid XHTML 1.0 -->
206 <h6>Copyright © 2020 Steve Youngs<br />
207 Verbatim copying and distribution is permitted in any medium,
208 providing this notice is preserved.<br />
210 Last modified: Wed Apr 15 18:13:40 AEST 2020