(require 'color-theme)
(require 'completion)
(require 'tramp)
(setq tramp-default-method "scp")
;(color-theme-gnome2)
(setq allow-remote-paths nil)
(setq initial-frame-plist '(top 0 left 0 width 132 height 50))
(setq inhibit-startup-message t)
(custom-set-variables
 '(cperl-continued-statement-offset 4)
 '(cperl-extra-newline-before-brace nil)
 '(cperl-brace-offset 0)
 '(paren-mode (quote paren) nil (paren))
 '(cperl-label-offset -4)
 '(column-number-mode t)
 '(cperl-indent-level 4)
 '(cperl-continued-brace-offset 0)
 '(line-number-mode t)
 '(cperl-pod-head-face (quote Info-title-1-face))
 '(cperl-merge-trailing-else t)
 '(font-lock-mode t nil (font-lock)))

(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))
(setq cperl-hairy t)
(setq cperl-auto-newline t)

; thanks to mugwump

(add-to-list 'auto-mode-alist '("\\.html" . sgml-mode))
(add-to-list 'auto-mode-alist '("\\.adp" . sgml-mode))
(add-to-list 'auto-mode-alist '("\\.xml" . sgml-mode))
(add-to-list 'auto-mode-alist '("\\.xsl" . sgml-mode))
(add-to-list 'auto-mode-alist '("\\.rdl" . sgml-mode))
(add-to-list 'auto-mode-alist '("\\.js" . java-mode))
(add-to-list 'auto-mode-alist '("\\.tt" . tt-mode))
(add-to-list 'auto-mode-alist '("\\.tt2" . tt-mode))
(add-to-list 'auto-mode-alist '("\\.pod" . cperl-mode))

      (setq sgml-markup-faces '((start-tag . font-lock-function-name-face)
				(end-tag . font-lock-function-name-face)
                (comment . font-lock-comment-face)
                (pi . font-lock-warning-face)
                (sgml . font-lock-keyword-face)
                (doctype . font-lock-constant-face)
                (entity . font-lock-type-face)
                (shortref . font-lock-function-name-face)))
      (setq sgml-set-face t)
      (setq-default sgml-indent-data t)

;(color-theme-vim-colors)

(set-face-background 'default "black")
(set-face-foreground 'default "white")
(set-face-font 'default "-misc-fixed-bold-*-*-*-18-*-*-*-*-*-iso8859-1")
;(set-face-font 'cperl-array-face "-misc-fixed-bold-*-*-*-18-*-*-*-*-*-iso8859-1")
;(set-face-font 'cperl-hash-face "-misc-fixed-bold-*-*-*-18-*-*-*-*-*-iso8859-1")

(set-face-foreground 'font-lock-builtin-face	      "Blue")
(set-face-foreground 'font-lock-comment-face	      "#00CC00")
(set-face-foreground 'font-lock-constant-face	      "Red")
(set-face-foreground 'font-lock-doc-string-face     "White")
(set-face-foreground 'font-lock-function-name-face  "Cyan2")
(set-face-foreground 'font-lock-keyword-face	    "Yellow3")
(set-face-foreground 'font-lock-preprocessor-face   "Red")
(set-face-foreground 'font-lock-reference-face	    "Red")
(set-face-foreground 'font-lock-string-face         "Cyan2")
(set-face-foreground 'font-lock-type-face           "White")
(set-face-foreground 'font-lock-variable-name-face  "NavajoWhite1")
(set-face-foreground 'font-lock-warning-face        "Red")

(set-face-foreground 'isearch        "Black")
(set-face-background 'isearch        "Yellow")
(set-face-foreground 'isearch-secondary        "Black")
(set-face-background 'isearch-secondary        "Green")
(set-face-background 'zmacs-region        "DarkBlue")

;(set-face-foreground 'cperl-array-face "NavajoWhite1")
;(set-face-foreground 'cperl-nonoverridable-face "Yellow")
;(set-face-foreground 'cperl-hash-face "NavajoWhite1")

(custom-set-faces ; only one 'custom-set-faces' entry must exist in custom.el
 '(cperl-array-face ((t (:foreground "NavajoWhite1"))))
 '(cperl-hash-face ((t (:foreground "NavajoWhite1"))))
 '(cperl-nonoverridable-face ((t (:foreground "Yellow"))))
)