1 ;; 00-vars-sy.el --- Various variables -*- Emacs-Lisp -*-
3 ;; Copyright (C) 2007 - 2013 Steve Youngs
5 ;; Author: Steve Youngs <steve@sxemacs.org>
6 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
7 ;; Created: <2007-12-02>
8 ;; Time-stamp: <Sunday Aug 25, 2013 09:16:05 steve>
9 ;; Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
10 ;; HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/00-vars-sy.html>
11 ;; Git Repo: git clone http://git.sxemacs.org/syinit
12 ;; Keywords: init, compile
14 ;; This file is part of SYinit
16 ;; Redistribution and use in source and binary forms, with or without
17 ;; modification, are permitted provided that the following conditions
20 ;; 1. Redistributions of source code must retain the above copyright
21 ;; notice, this list of conditions and the following disclaimer.
23 ;; 2. Redistributions in binary form must reproduce the above copyright
24 ;; notice, this list of conditions and the following disclaimer in the
25 ;; documentation and/or other materials provided with the distribution.
27 ;; 3. Neither the name of the author nor the names of any contributors
28 ;; may be used to endorse or promote products derived from this
29 ;; software without specific prior written permission.
31 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
32 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
33 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
34 ;; DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
35 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
36 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
37 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
38 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
39 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
40 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
41 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
45 ;; This init file sets up a few miscelaneous variables and whatnot.
46 ;; If anything has to be loaded very early in the boot up I'll put
47 ;; it in here because this file is loaded first.
52 ;; The HTML version of this file was created with Hrvoje Niksic's
53 ;; htmlize.el which is part of the XEmacs "text-modes" package.
61 ;:*=======================
62 ;:* Set default font (I do this in vars-sy.el because it is called first)
64 '(default bold bold-italic italic)
65 "List symbols for default fonts.")
69 (remove-specifier (face-font font) 'global '(x default) nil))
73 (set-face-font 'default
75 "-xos4-terminus-medium-r-*-*-*-150-*-*-*-*-iso8859-*")
79 "-xos4-terminus-bold-r-*-*-*-150-*-*-*-*-iso8859-*")
81 (set-face-font 'bold-italic
83 "-*-times-bold-i-*-*-*-140-*-*-*-*-iso8859-*")
85 (set-face-font 'italic
87 "-*-times-medium-i-*-*-*-140-*-*-*-*-*-*")
88 'global '(x default)))
90 ;:*=======================
92 ;; A lot of the time I'm running some very unstable code. So I set
93 ;; this quite high so I can catch all the help-lossage messages.
94 (setq view-lossage-message-count 1000)
96 ;:*=======================
97 ;:* SXEmacs has a sane filename for custom-file
98 (unless (featurep 'sxemacs)
100 (expand-file-name "custom-steve.el" user-init-directory))
101 (load-file custom-file))
103 ;:*=======================
104 ;:* Set the default font
105 (set-face-property 'default 'face "-*-Terminus-medium-r-*-*-*-140-*-*-*-*-iso8859-*")
107 ;:*=======================
108 ;:* Stuff. Lots of stuff...
111 buffers-menu-grouping-function 'group-buffers-menu-by-mode-then-alphabetically
112 buffers-menu-sort-function 'sort-buffers-menu-by-mode-then-alphabetically
113 buffers-menu-submenus-for-groups-p t
116 get-frame-for-buffer-default-instance-limit nil
117 mouse-yank-at-point t
118 next-line-add-newlines nil
120 require-final-newline t
121 teach-extended-commands-p t
122 teach-extended-commands-timeout 5
123 temp-buffer-show-function 'show-temp-buffer-in-current-frame
126 (defvar gnus-directory (paths-construct-path
127 (list (user-home-directory) "Gnus"))
130 (defvar message-directory (paths-construct-path
131 (list (user-home-directory) "Gnus"))
134 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
135 (message "variables initialiased")