136 lines
4.6 KiB
EmacsLisp
136 lines
4.6 KiB
EmacsLisp
;;; starter-kit-misc.el --- Saner defaults and goodies: miscellany
|
|
;;
|
|
;; Copyright (c) 2008-2010 Phil Hagelberg and contributors
|
|
;;
|
|
;; Author: Phil Hagelberg <technomancy@gmail.com>
|
|
;; URL: http://www.emacswiki.org/cgi-bin/wiki/StarterKit
|
|
;; Version: 2.0.2
|
|
;; Keywords: convenience
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
;;; Commentary:
|
|
|
|
;; "Emacs outshines all other editing software in approximately the
|
|
;; same way that the noonday sun does the stars. It is not just bigger
|
|
;; and brighter; it simply makes everything else vanish."
|
|
;; -Neal Stephenson, "In the Beginning was the Command Line"
|
|
|
|
;; This file contains setqs and things that aren't bindings or defuns.
|
|
|
|
;;; License:
|
|
|
|
;; This program is free software; you can redistribute it and/or
|
|
;; modify it under the terms of the GNU General Public License
|
|
;; as published by the Free Software Foundation; either version 3
|
|
;; of the License, or (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
;; Boston, MA 02110-1301, USA.
|
|
|
|
;;; Code:
|
|
|
|
(when window-system
|
|
(setq frame-title-format '(buffer-file-name "%f" ("%b")))
|
|
(tooltip-mode -1)
|
|
(mouse-wheel-mode t)
|
|
(blink-cursor-mode -1))
|
|
|
|
;; can't do it at launch or emacsclient won't always honor it
|
|
(add-hook 'before-make-frame-hook 'esk-turn-off-tool-bar)
|
|
|
|
(setq visible-bell t
|
|
inhibit-startup-message t
|
|
color-theme-is-global t
|
|
sentence-end-double-space nil
|
|
shift-select-mode nil
|
|
mouse-yank-at-point t
|
|
uniquify-buffer-name-style 'forward
|
|
whitespace-style '(face trailing lines-tail tabs)
|
|
whitespace-line-column 80
|
|
ediff-window-setup-function 'ediff-setup-windows-plain
|
|
oddmuse-directory "~/.emacs.d/oddmuse"
|
|
save-place-file "~/.emacs.d/places"
|
|
backup-directory-alist `(("." . ,(expand-file-name "~/.emacs.d/backups")))
|
|
diff-switches "-u")
|
|
|
|
(add-to-list 'safe-local-variable-values '(lexical-binding . t))
|
|
(add-to-list 'safe-local-variable-values '(whitespace-line-column . 80))
|
|
|
|
;; Set this to whatever browser you use
|
|
;; (setq browse-url-browser-function 'browse-url-firefox)
|
|
;; (setq browse-url-browser-function 'browse-default-macosx-browser)
|
|
;; (setq browse-url-browser-function 'browse-default-windows-browser)
|
|
;; (setq browse-url-browser-function 'browse-default-kde)
|
|
;; (setq browse-url-browser-function 'browse-default-epiphany)
|
|
;; (setq browse-url-browser-function 'browse-default-w3m)
|
|
;; (setq browse-url-browser-function 'browse-url-generic
|
|
;; browse-url-generic-program "~/src/conkeror/conkeror")
|
|
|
|
;; Highlight matching parentheses when the point is on them.
|
|
(show-paren-mode 1)
|
|
|
|
;; ido-mode is like magic pixie dust!
|
|
(ido-mode t)
|
|
(ido-ubiquitous t)
|
|
(setq ido-enable-prefix nil
|
|
ido-enable-flex-matching t
|
|
ido-auto-merge-work-directories-length nil
|
|
ido-create-new-buffer 'always
|
|
ido-use-filename-at-point 'guess
|
|
ido-use-virtual-buffers t
|
|
ido-handle-duplicate-virtual-buffers 2
|
|
ido-max-prospects 10)
|
|
|
|
(set-default 'indent-tabs-mode nil)
|
|
(set-default 'indicate-empty-lines t)
|
|
(set-default 'imenu-auto-rescan t)
|
|
|
|
(add-hook 'text-mode-hook 'turn-on-auto-fill)
|
|
(add-hook 'text-mode-hook 'turn-on-flyspell)
|
|
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
(defalias 'auto-tail-revert-mode 'tail-mode)
|
|
|
|
(random t) ;; Seed the random-number generator
|
|
|
|
;; Hippie expand: at times perhaps too hip
|
|
(dolist (f '(try-expand-line try-expand-list try-complete-file-name-partially))
|
|
(delete f hippie-expand-try-functions-list))
|
|
|
|
;; Add this back in at the end of the list.
|
|
(add-to-list 'hippie-expand-try-functions-list 'try-complete-file-name-partially t)
|
|
|
|
(eval-after-load 'grep
|
|
'(when (boundp 'grep-find-ignored-files)
|
|
(add-to-list 'grep-find-ignored-files "*.class")))
|
|
|
|
;; Cosmetics
|
|
|
|
(eval-after-load 'diff-mode
|
|
'(progn
|
|
(set-face-foreground 'diff-added "green4")
|
|
(set-face-foreground 'diff-removed "red3")))
|
|
|
|
(eval-after-load 'magit
|
|
'(progn
|
|
(set-face-foreground 'magit-diff-add "green4")
|
|
(set-face-foreground 'magit-diff-del "red3")))
|
|
|
|
;; Get around the emacswiki spam protection
|
|
(eval-after-load 'oddmuse
|
|
(add-hook 'oddmuse-mode-hook
|
|
(lambda ()
|
|
(unless (string-match "question" oddmuse-post)
|
|
(setq oddmuse-post (concat "uihnscuskc=1;" oddmuse-post))))))
|
|
|
|
(provide 'starter-kit-misc)
|
|
;;; starter-kit-misc.el ends here
|