; init.el - xemacs/emacs initialization

; global variable settings

(setq column-number-mode t
      line-number-mode t
      require-final-newline t
      next-line-add-newlines nil
      dired-listing-switches "-al"
      display-time-day-and-date t
      display-time-24hr-format t)

(setq-default fill-column 76)

;; Force emacs to output spaces instead of tabs (auto "untabify")

(custom-set-variables '(indent-tabs-mode nil))

; defined $HOME

(defvar HOME (concat (getenv "HOME") "/"))
(setq load-path (cons (concat HOME "share/emacs/site-lisp") 
		      load-path))

; display the time

(display-time)

; xemacs specific stuff

;; (if (string-match "XEmacs" emacs-version)
;;     (progn

;;       ; load tramp

;;       (setq tramp-syntax 'url
;; 	    tramp-default-method "ssh")
;;       (require 'tramp)

;;       (custom-set-variables
;;        '(cperl-indent-level 4)
;;        '(cperl-tab-always-intent t))))

; key mappings

;; (global-set-key "\C-xa" 'beginning-of-buffer)
;; (global-set-key "\C-xe" 'end-of-buffer)
;; (global-set-key "\C-xp" 'clipboard-kill-ring-save)
(global-set-key "\C-xg" 'goto-line)
(global-set-key "\C-xr" 'revert-buffer)

(keyboard-translate ?\C-h ?\C-?)

; vi style paren matching using %

(defun match-paren (arg)
  "Go to the matching paren if on a paren; otherwise insert %."
  (interactive "p")
  (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
        ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
        (t (self-insert-command (or arg 1)))))

(global-set-key "%" 'match-paren)

; load .emacs_local 

(if (file-exists-p (concat HOME ".emacs_local"))
	(load-file (concat HOME ".emacs_local")))

; confirm exit

(defun confirm-exit-emacs ()
 "ask for confirmation before exiting emacs"
 (interactive)
 (if (yes-or-no-p "Are you sure you want to exit? ")
     (save-buffers-kill-emacs)))

(global-unset-key "\C-x\C-c")
(global-set-key "\C-x\C-c" 'confirm-exit-emacs)

(message "Finished loading .emacs")