emacs ini on windows

;;=Variables=
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
)
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
)
;;Debug
(setq debug-on-error t)

;Default colours are too light (to see colour names do M-x
;list-colors-display
;and to see faces do M-x list-faces-display):
(set-face-foreground 'minibuffer-prompt "#118C4E")
(set-face-foreground 'link "#8993b3")
(set-face-foreground 'font-lock-comment-face "#d47d7d")

;;Theme
(load-theme 'deeper-blue)


;To disable Fill mode
;(setq text-mode-hook (quote (turn-on-flyspell text-mode-hook-identify)))
;(auto-fill-mode -1)
;Why this?
(setq revert-without-query (quote (".")))

;;Window
(setq default-frame-alist '((top . 3) (left . 250) (width . 190) (height . 60) (menu-bar-lines . 1)))
(tool-bar-mode 0)
(setq speedbar-frame-parameters (quote ((minibuffer) (width . 27) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (left-fringe . 0))))

;;Saves
(setq backup-directory-alist `(("." . "~/.saves")))
(setq backup-by-copying t)
(setq delete-old-versions t
  kept-new-versions 6
  kept-old-versions 2
  version-control t)

;;Tabs
(setq tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60)))
(setq-default tab-width 4)
(setq c-basic-offset 4)
(setq indent-tabs-mode nil)

;;Cygwin find
(setq find-program "/cygdrive/d/inst/system/cygwin64/bin/find.exe")

;;Misc
(put 'upcase-region 'disabled nil)
(global-set-key (kbd "<f5>") 'revert-buffer)
(global-set-key (kbd "\C-x \C-o") 'other-frame)

;;EasyPG
(require 'epa-file)
(epa-file-enable)

;;Scrolling
;; scroll one line at a time (less "jumpy" than defaults)
(setq mouse-wheel-scroll-amount '(3 ((shift) . 5))) ;; one line at a time
(setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
(setq mouse-wheel-follow-mouse 't) ;; scroll window under cursor
(setq scroll-step 8) ;; keyboard scroll one line at a time

;;Dired
;(load "dired-x")
;(setq dired-omit-files t)

;;=Aliases=
(defalias 'qrr 'query-replace-regexp)

;;=Load path=
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/palette"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/icicles"))
;(add-to-list 'load-path (expand-file-name "~/work/emacs/twittering-mode"))
(eval-after-load "ring" '(progn (require 'ring+))) ;Used by icicles

;;Python
;(load "my_python")

;;CEDET
;(load "my_cedet_synchro")
(load "my_cedet") ;custom cpp

;;GNUS
(load "my_gnus")

;;Marmalade
(require 'package)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(package-initialize)
(set-variable 'package-enable-at-startup nil)

;;Twitter
;(load "my_twitter")

;;=Misc=
;(require 'icicles)
(load "my_xml")
;(load "my_clojure")

;;Lua mode
;(autoload 'lua-mode "lua-mode" "Lua editing mode." t)
;(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
;(add-to-list 'interpreter-mode-alist '("lua" . lua-mode))

(load "my_org_mode")

;;Tracking of recent files
(require 'recentf)
(recentf-mode 1)
(global-set-key (kbd "<f2>") 'recentf-open-files)

;;Use palette to show colors
;(require 'rgbcodepicker)

;;=Hooks=
;;Ring a bell unless
(defun my-bell-function ()
  (unless (memq this-command
        '(isearch-abort abort-recursive-edit exit-minibuffer
              keyboard-quit mwheel-scroll down up next-line previous-line
              backward-char forward-char))
    (ding)))
(setq ring-bell-function 'my-bell-function)