;;==============================================================================
;;; windows.el
;;
;;; Emacs Windows Settings
;;
;;; Author: Kyle W T Sherman
;;
;; Time-stamp: <2007-11-13 11:13:07 (kyle)>
;;==============================================================================

(message ";;; windows --> Start")

;;==============================================================================
;;; Windows Specific Settings
;;==============================================================================

(when w32-system

  ;; turn on the gnu server
  (require-if-available 'gnuserv)
  (when (load "gnuserv" t)
    (gnuserv-start))

  ;; turn on the menubar
  (menu-bar-mode t)

  ;; w32-feeling
  (require-if-available 'w32-feeling)
  (when (load "w32-feeling" t)
    (w32-feeling-maximize-frame))

  ;; set temp directories
  (setenv "TEMP" "c:/windows/temp")
  (setenv "TMP" "c:/windows/temp")

  ;; cua
  (require-if-available 'cua)
  (when (load "cua" t)
    (CUA-mode t)
    (CUA-keypad-mode 'prefix t)
    (setq CUA-mode-delete-to-register-0 nil)
    (setq CUA-mode-keep-region-after-copy nil)
    (setq CUA-mode-normal-cursor-color "black")
    (setq CUA-mode-overwrite-cursor-color "yellow")
    (setq CUA-mode-read-only-cursor-color "green")
    )

  ;; ;; clipboard
  ;; (setq x-select-enable-clipboard t)
  ;; (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
  ;; (require-if-available 'pc-select)
  ;; (when (load "pc-select" t)
  ;;   (pc-selection-mode))

  ;; set upercase region (C-c C-u)
  ;;(global-set-key "\C-c\C-u" 'upcase-region)

  ;; set lowercase region (C-c C-l)
  ;;(global-set-key "\C-c\C-l" 'downcase-region)

  ;; turn on timeclock display (since I'm at work if I'm using Windows)
  (timeclock-modeline-display)

  ;; set page-up and page-down keys (again)
  (global-set-key [(next)] 'scroll-up-plus)
  (global-set-key [(prior)] 'scroll-down-plus)
  )

(message ";;; windows --> End")

;;==============================================================================
;;; End of File
;;==============================================================================