;; Emacs 22 setup for Mac

(setq inhibit-startup-message t)

;; Delete key deletes selection
(delete-selection-mode t)

;; Show line-number in the mode line
(line-number-mode 1)

;; Show column-number in the mode line
(column-number-mode 1)

;; Include function list for source code
(add-hook 'c-mode-hook '(lambda () (imenu-add-to-menubar "func-list")))
(add-hook 'c++-mode-hook '(lambda () (imenu-add-to-menubar "func-list")))

;; Use cperl-mode instead of the default perl-mode
(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))

;; Assign the Mac Alt/Option key and Apple/Command key
(setq mac-command-modifier 'alt)
(setq mac-option-modifier 'meta)

;; Define command key combinations
(global-set-key [?\A-x] 'kill-region) ; traditional "cut" 
(global-set-key [?\A-v] 'yank) ; traditional "paste" 
(global-set-key [?\A-c] 'kill-ring-save) ; traditional "copy" 

(global-set-key [?\A-a] 'mark-whole-buffer)
(global-set-key [?\A-s] 'save-buffer)
(global-set-key [?\A-S] 'write-file)
(global-set-key [?\A-p] 'ps-print-buffer)
(global-set-key [?\A-o] 'find-file)
(global-set-key [?\A-q] 'save-buffers-kill-emacs)
(global-set-key [?\A-w] 'kill-buffer-and-window)
(global-set-key [?\A-z] 'undo)
(global-set-key [?\A-f] 'isearch-forward)
(global-set-key [?\A-g] 'query-replace)
(global-set-key [?\A-l] 'goto-line)
(global-set-key [?\A-m] 'iconify-frame)
(global-set-key [?\A-n] 'new-frame)

;; Set default font
(modify-frame-parameters
 (selected-frame)
 '((font . "-*-monaco-*-*-*-*-12-*-*-*-*-*-*")))

(add-hook 'after-make-frame-functions 
          (lambda (frame)
            (modify-frame-parameters 
             frame
             '((font . "-*-monaco-*-*-*-*-12-*-*-*-*-*-*")))))