view .elisp/settings/50.preferences.el @ 221:6aad20d9fcb0

emacs gui: move gui initialization code to a function Given the weirdness observed in gui init with daemon mode, this should make life with daemon mode easier.
author Augie Fackler <durin42@gmail.com>
date Tue, 07 Sep 2010 19:33:23 -0500
parents e4842709368a
children e742cf5a748c
line wrap: on
line source

;; All lines should end in a newline
(setq require-final-newline t)

;; disable tabs
(setq tab-width 4)
(setq-default indent-tabs-mode nil)

;; Cleanup whitespace before saves.
(add-hook 'before-save-hook '(lambda ()
                               (if af-cleanup-whitespace (whitespace-cleanup))))

;; Disable that startup screen
(setq inhibit-startup-message t)

;; Basically everything I do is in version control, stop saving backup files
(setq make-backup-files nil)

; always highlight matching paren
(show-paren-mode 1)

;; Automatically revert unedited files that change on the underlying
;; system.
(global-auto-revert-mode)

;; I like dots in my nose output
(setq nose-use-verbose nil)

;; no toolbar
(setq tool-bar-mode nil)
(tool-bar-mode 0)

; cause imenu to always rescan the buffer (for textmate-goto-symbol)
(setq imenu-auto-rescan t)
;; better uniquify from http://metapundit.net/sections/blog/emacs_and_django
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t)
(setq uniquify-ignore-buffers-re "^\\*")
(setq hg-outgoing-repository "")
(setq hg-incoming-repository "")

;; Make this a function in case we have to re-run it. I've had weirdness
;; ensue with daemon mode not always initializing everything the way I want
;; in new frames.
(defun af-gui-init ()
  (interactive)
  ;; so that Cmd+H won't activate Hide Current
  ;; App and Cmd+Shift+q won't logout user.
  (setq mac-pass-command-to-system nil)

  ;; scrollbars, but on the right, not the left
  (if (window-system) (set-scroll-bar-mode 'right))

  ;; Command is meta in OS X.
  (setq ns-command-modifier (quote meta))

  ;; Don't popup new frames for opened files
  (setq ns-pop-up-frames nil)

  (cond
   ((eq window-system 'ns) ;; OS X
    (set-face-attribute 'default nil :height 120))
   (t ;; everywhere else
    (set-face-attribute 'default nil :height 100)))
)
(af-gui-init)
;; use y or n instead of yes or no
(fset 'yes-or-no-p 'y-or-n-p)

;; whitespace detection
(setq whitespace-style '(trailing tabs lines-tail indentation trailing empty))
(global-whitespace-mode 1)