;(require 'psvn)

;***********************************************
;* Misc Settings
;***********************************************
(tool-bar-mode)
(menu-bar-mode nil)
(menu-bar-enable-clipboard)

;***********************************************
;* Redefine keys
;***********************************************
(global-set-key [end] 'end-of-line)
(global-set-key [home] 'beginning-of-line)
(global-set-key [C-end] 'end-of-buffer)
(global-set-key [C-home] 'beginning-of-buffer)
(define-key function-key-map [delete] "\C-d")

(setq x-select-enable-clipboard t)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)


;***********************************************
;* Mouse wheel support
;***********************************************
(cond (window-system
       (defun up-slightly () (interactive) (scroll-up 5))
       (defun down-slightly () (interactive) (scroll-down 5))
       (global-set-key [mouse-4] 'down-slightly)
       (global-set-key [mouse-5] 'up-slightly)
       
       (defun up-one () (interactive) (scroll-up 1))
       (defun down-one () (interactive) (scroll-down 1))
       (global-set-key [S-mouse-4] 'down-one)
       (global-set-key [S-mouse-5] 'up-one)
       
       (defun up-a-lot () (interactive) (scroll-up))
       (defun down-a-lot () (interactive) (scroll-down))
       (global-set-key [C-mouse-4] 'down-a-lot)
       (global-set-key [C-mouse-5] 'up-a-lot)
       ))




;***********************************************
;* Set Colors
;***********************************************
(cond (window-system
       (set-background-color "#101020")
       (set-foreground-color "#F5DEB3")
       (set-face-foreground 'modeline "#000000") 
       (set-face-background 'modeline "#A2A2A2") 
       (set-border-color "#FF0000") 
       (set-cursor-color "#A020F0") 
       ))


;***********************************************
;* Change Hilite colors
;***********************************************
(global-font-lock-mode 1)
(setq font-lock-maximum-decoration t)
(custom-set-faces
   '(font-lock-preprocessor-face  ((t :foreground "PaleGreen")))
   '(font-lock-comment-face       ((t :bold t :foreground "#FF4500")))
   '(font-lock-reference-face     ((t :foreground "#98FB98")))
   '(font-lock-string-face        ((t :bold t :foreground "#6495ED")))
   '(font-lock-keyword-face       ((t :foreground "#FF8C00")))
   '(font-lock-type-face          ((t :italic t :foreground "#DDA0DD")))
   '(font-lock-function-name-face ((t :foreground "#40E0D0")))
   '(font-lock-builtin-face       ((t :italic t :foreground "#FF8C00")))
)