Add HTML versions of my init files
[website] / SYinits / 09-toolbar.html
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">
5   <head>
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">
11     <!--
12       body {
13         color: #ffffff;
14         background-color: #000000;
15       }
16       .comment {
17         /* font-lock-comment-face */
18         color: #87ceeb;
19       }
20       .doc-string {
21         /* font-lock-doc-string-face */
22         color: #32cd32;
23       }
24       .function-name {
25         /* font-lock-function-name-face */
26         color: #ffff00;
27         font-weight: bold;
28       }
29       .keyword {
30         /* font-lock-keyword-face */
31         color: #fa8072;
32       }
33       .reference {
34         /* font-lock-reference-face */
35         color: #40e0d0;
36       }
37       .string {
38         /* font-lock-string-face */
39         color: #00cd00;
40       }
41       .variable-name {
42         /* font-lock-variable-name-face */
43         color: #ffdab9;
44       }
45
46       a {
47         color: #FF0000;
48         background-color: inherit;
49         font: inherit;
50         font-weight: bold;
51         text-decoration: underline;
52       }
53       a:hover {
54         color: #FFFFFF;
55         background-color: #FD00FD;
56         text-decoration: underline;
57       }
58       .img a:hover {
59         background-color: #000000;
60         text-decoration: none;
61       }
62     -->
63     </style>
64   </head>
65   <body>
66     <pre>
67 <span class="comment">;; 09-toolbar.el --- Toolbar set up
68 </span>
69 <span class="comment">;; Copyright (C) 2007 - 2020 Steve Youngs
70 </span>
71 <span class="comment">;;     Author: Steve Youngs &lt;<a href="mailto:steve&#64;sxemacs.org">steve&#64;sxemacs.org</a>&gt;
72 ;; Maintainer: Steve Youngs &lt;<a href="mailto:steve&#64;sxemacs.org">steve&#64;sxemacs.org</a>&gt;
73 ;;    Created: &lt;2007-12-02&gt;
74 ;; Time-stamp: &lt;Thursday Apr  9, 2020 07:43:09 steve&gt;
75 ;;   Download: &lt;<a href="https://downloads.sxemacs.org/SYinits">https://downloads.sxemacs.org/SYinits</a>&gt;
76 ;;   HTMLised: &lt;<a href="https://www.sxemacs.org/SYinits/09-toolbar.html">https://www.sxemacs.org/SYinits/09-toolbar.html</a>&gt;
77 ;;   Git Repo: git clone https://git.sxemacs.org/syinit
78 ;;   Keywords: init, compile
79 </span>
80 <span class="comment">;; This file is part of SYinit
81 </span>
82 <span class="comment">;; Redistribution and use in source and binary forms, with or without
83 ;; modification, are permitted provided that the following conditions
84 ;; are met:
85 ;;
86 ;; 1. Redistributions of source code must retain the above copyright
87 ;;    notice, this list of conditions and the following disclaimer.
88 ;;
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.
92 ;;
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.
96 ;;
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.
108 </span>
109 <span class="comment">;;; Commentary:
110 ;;
111 ;;   Sets up the toolbar the way I like it.
112 </span>
113 <span class="comment">;;; Credits:
114 ;;
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.
117 ;;
118 </span>
119 <span class="comment">;;; Todo:
120 ;;
121 ;;     
122 </span>
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>)
126   (setq
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))
131
132 (setq edit-toolbar-added-buttons-alist 'nil)
133
134 (mapcar
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)
138
139 (<span class="keyword">defun</span> <span class="function-name">toolbar-redo</span> ()
140   (interactive)
141   (call-interactively #'redo))
142
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>")))
146
147 (<span class="keyword">defun</span> <span class="function-name">toolbar-irc</span> ()
148   (interactive)
149   (call-interactively #'sy-riece))
150
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>")))
154
155 (<span class="keyword">defun</span> <span class="function-name">toolbar-emoney</span> ()
156   (interactive)
157   (call-interactively #'emoney))
158
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>")))
162
163 (and (device-on-window-system-p)
164      (set-specifier
165       default-toolbar 
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 &amp; 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>"]
182         nil 
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>")
186 </pre>
187   <!--  SXEmacs Logo -->
188     <div class="img">
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" />
194       </a>
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!" />
202       </a>
203     </div>
204 <!--  End Valid XHTML 1.0 -->
205
206     <h6>Copyright &#169; 2020 Steve Youngs<br />
207      Verbatim copying and distribution is permitted in any medium,
208     providing this notice is preserved.<br />
209 <!-- hhmts start -->
210 Last modified: Wed Apr 15 18:13:40 AEST 2020
211 <!-- hhmts end -->
212    </h6>
213
214 </body>
215 </html>