view .elisp/settings/50.preferences.el @ 325:64e73453e43f

xmonad: Pull apart custom layout into something readable This change doesn't affect any behavior, but it does document the custom layout by naming function parameters. Hopefully, this will make things easier to fix the next time the XMonad developers break us.
author Lucas Bergman <lucas@bergmans.us>
date Tue, 11 Mar 2014 12:49:05 -0500
parents 231aef6069cc
children b9fd69a36e0c
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)

; 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)
;; Enable narrow-to-region, which is disabled by default
(put 'narrow-to-region 'disabled nil)

;; whitespace detection
(setq
 whitespace-line-column 78
 whitespace-style '(face
                    trailing
                    space-after-tab
                    space-before-tab
                    lines-tail
                    indentation
                    empty
                    tabs)
 )
(global-whitespace-mode 1)

;; Disable VC plumbing since I don't really use it that much anyway
(setq vc-handled-backends nil)

;; use aspell
(setq-default ispell-program-name "aspell")