Loads and loads and loads of updates.

[syinit] / 09-toolbar-sy.el

diff --git a/09-toolbar-sy.el b/09-toolbar-sy.el
index 1281070..159b871 100644 (file)
--- a/09-toolbar-sy.el
+++ b/09-toolbar-sy.el
@@ -1,13 +1,13 @@
-;; 10-toolbar-sy.el --- Toolbar set up   -*- Emacs-Lisp -*-
+;; 09-toolbar-sy.el --- Toolbar set up   -*- Emacs-Lisp -*-
 
-;; Copyright (C) 2007 - 2013 Steve Youngs
+;; Copyright (C) 2007 - 2020 Steve Youngs
 
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 13:08:36 steve>
+;; Time-stamp: <Wednesday Feb 12, 2020 13:37:36 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
-;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/10-toolbar-sy.html>
+;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/09-toolbar-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
 ;;   Keywords: init, compile
 
@@ -76,10 +76,7 @@
 
 (defvar toolbar-redo-icon
   (toolbar-make-button-list
-   (expand-file-name "redo.xpm"
-                    (file-name-as-directory
-                     (expand-file-name "etc/SXEmacs"
-                                       (getenv "HOME"))))))
+   (locate-data-file "redo.xpm")))
 
 (defun toolbar-irc ()
   (interactive)
@@ -98,24 +95,25 @@
    (locate-data-file "emoney.png")))
 
 (and (device-on-window-system-p)
-     (set-specifier default-toolbar 
-                   '([toolbar-file-icon toolbar-open t "Open a file"] 
-                     [toolbar-folder-icon toolbar-dired t "Edit a directory"] 
-                     [toolbar-disk-icon toolbar-save t "Save buffer"] 
-                     [toolbar-printer-icon toolbar-print t "Print buffer"] 
-                     [toolbar-cut-icon toolbar-cut t "Kill region"] 
-                     [toolbar-copy-icon toolbar-copy t "Copy region"] 
-                     [toolbar-paste-icon toolbar-paste t "Paste from clipboard"] 
-                     [toolbar-undo-icon toolbar-undo t "Undo"]
-                     [toolbar-redo-icon toolbar-redo t "Redo"]
-                     [toolbar-spell-icon toolbar-ispell t "Check spelling"] 
-                     [toolbar-replace-icon toolbar-replace t "Search & Replace"] 
-                     [toolbar-compile-icon toolbar-compile t "Start a compilation"] 
-                     [toolbar-debug-icon toolbar-debug t "Start a debugger"]
-                     [toolbar-emoney-icon toolbar-emoney t "Manage your millions with eMoney"]
-                     [toolbar-irc-icon toolbar-irc t "Be productive with Riece"]
-                     [toolbar-news-icon gnus-other-frame t "Gnus"]
-                     nil 
-                     [toolbar-info-icon toolbar-info t "Don't Panic!!"])))
+     (set-specifier
+      default-toolbar 
+      '([toolbar-file-icon toolbar-open t "Open a file"] 
+       [toolbar-folder-icon toolbar-dired t "Edit a directory"] 
+       [toolbar-disk-icon toolbar-save t "Save buffer"] 
+       [toolbar-printer-icon toolbar-print t "Print buffer"] 
+       [toolbar-cut-icon toolbar-cut t "Kill region"] 
+       [toolbar-copy-icon toolbar-copy t "Copy region"] 
+       [toolbar-paste-icon toolbar-paste t "Paste from clipboard"] 
+       [toolbar-undo-icon toolbar-undo t "Undo"]
+       [toolbar-redo-icon toolbar-redo t "Redo"]
+       [toolbar-spell-icon toolbar-ispell t "Check spelling"] 
+       [toolbar-replace-icon toolbar-replace t "Search & Replace"] 
+       [toolbar-compile-icon toolbar-compile t "Start a compilation"] 
+       [toolbar-debug-icon toolbar-debug t "Start a debugger"]
+       [toolbar-emoney-icon toolbar-emoney t "Manage your millions with eMoney"]
+       [toolbar-irc-icon toolbar-irc t "Be productive with Riece"]
+       [toolbar-news-icon gnus-other-frame t "Gnus"]
+       nil 
+       [toolbar-info-icon toolbar-info t "Don't Panic!!"])))
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 (message "Toolbar set successfully")