.emacs-fun

;; Emacs server 
(server-start)
(add-hook 'server-switch-hook
	  (lambda nil
	    (let ((server-buf (current-buffer)))
	      (bury-buffer)
	      (switch-to-buffer-other-frame server-buf))))
(add-hook 'server-done-hook 'delete-frame)
(add-hook 'server-done-hook (lambda nil (kill-buffer nil)))


;; '~' backups go all in one place
(setq backup-directory-alist '(("." . "~/.backups-emacs")))

;; this teaches emacs to understand color codes from ls --color, e.g.
(add-hook 'comint-mode-hook 'ansi-color-for-comint-mode-on)


;; Something like this can help you customize the default frame size...
(setq default-frame-alist '((width . 120) (height . 44)))

;; Then I tend to organize like:
(add-to-list 'load-path "~/.emacs.d")
(require 'sf-email)
(require 'sf-bbdb)
(require 'sf-tramp)
;; ... 

;; Aquamacs specific settings
(if (equal system-type 'darwin)
    (progn
      (setq one-buffer-one-frame nil)
      (osx-key-mode 0)
      (cua-mode 0)
      (setq mac-command-modifier 'meta)
      (setq x-select-enable-clipboard t)
      (set-variable 'default-buffer-file-coding-system 'mac-roman-unix)
      (set-default-coding-systems 'mac-roman-unix)
      (set-selection-coding-system 'mac-roman)
      (set-keyboard-coding-system 'mac-roman)
      (prefer-coding-system 'mac-roman-unix)
      (setq-default cursor-type t)
      (setq browse-url-browser-function
            '(("." . browse-url-default-macosx-browser)))))