;; Emacs initialization file by Chris Spear
;;
;; On Unix, store as ~/.emacs
;; On Windows, store as C:/_emacs

;; Verilog / Vera mode code
(defun prepend-path ( my-path )
  (setq load-path (cons (expand-file-name my-path) load-path)))
(defun append-path ( my-path )
(setq load-path (append load-path (list (expand-file-name my-path)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Remove this section for Windows
;; Start Emacs Server for programs which kick-off an editor
;; This works in conjunction with:
;;       setenv EDITOR emacsclient
(server-start)
;; Look first in the directory ~/elisp for elisp files
(prepend-path "~/elisp")
;; End Windows remove section
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Load verilog mode only when needed
(autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
;; Any files that end in .v should be in verilog mode
(setq auto-mode-alist (cons  '("\\.v\\'" . verilog-mode) auto-mode-alist))
;; Any files in verilog mode should have their keywords colorized
(add-hook 'verilog-mode-hook '(lambda () (font-lock-mode 1)))

(autoload 'vera-mode "vera-mode" "Vera Mode" t)
(setq auto-mode-alist (append (list ;; (cons "\\.v$" 'vera-mode)
                                    (cons "\\.vr$" 'vera-mode)
                                    (cons "\\.vrh$" 'vera-mode)
                                    (cons "\\.vri$" 'vera-mode)
                                    (cons "\\.vpp$" 'vera-mode))
                              auto-mode-alist))
(add-hook 'vera-mode-hook 'turn-on-font-lock)

;; Add color to C
(add-hook 'c-mode-hook 'turn-on-font-lock)

;; Turn in line number display
(setq line-number-mode t)

;;; Turn on autofill mode automatically in text mode
(setq text-mode-hook
   '(lambda ()   
      (setq fill-column 70)
      (auto-fill-mode 1)))

;; Use tabs for indentation, not spaces
(setq-default indent-tabs-mode t)

;;----------------------------------------------------------
(global-set-key [f1] 'goto-line)
(global-set-key [f2] 'undo)
(global-set-key [f3] 'query-replace)
(global-set-key [S-f3] 'query-replace-regexp)
(global-set-key [f4] 'ps-print-buffer)
(global-set-key [S-f4] 'ps-print-region)

(global-set-key [f5] 'call-last-kbd-macro)
(global-set-key [f6] 'start-kbd-macro)
(global-set-key [f7] 'end-kbd-macro)
(global-set-key [f8] 'shell)
(global-set-key [S-f8] 'shell-command)

(global-set-key [f9] 'flush-lines)
(global-set-key [f10] 'keep-lines)
(global-set-key [f11] 'grep)
(global-set-key [S-f11] 'occur)
(global-set-key [f12] 'compile)

(global-set-key "\M-&" 'replace-string)
(global-set-key "\M-*" 'query-replace-regexp)
;;(global-set-key "\M-^" 'replace-regexp)
(global-set-key "\M-z" 'zap-to-char)
(global-set-key "\C-x\C-m" 'shell)
(global-set-key "\C-xn" 'next-error)
(global-set-key "\C-xg" 'goto-line)
(global-set-key "\C-xl" 'what-line)
(global-set-key "\C-z" 'scroll-up-1)
(global-set-key "\ez" 'scroll-down-1)

(custom-set-faces)