(global-set-key [f1] 'woman)
(global-set-key [f2] 'save-buffer)
; (global-set-key [f2] 'save-buffer)
(global-set-key [(control S)] 'save-buffer)
(global-set-key [f3] 'find-file)
(global-set-key [C-f3] 'dired)
(global-set-key [(shift f3)] 'find-file-at-point)
(global-set-key [C-f1] 'dired)
(global-set-key [C-f2] 'svn-status)
(global-set-key [C-f4] 'shell)
; (global-set-key [C-f5] 'gnus)
(global-set-key [f4] 'split-window-horizontally)
; (global-set-key [f5] 'delete-window)
(global-set-key [f6] 'split-window-vertically)
(global-set-key [C-f6] 'previous-multiframe-window)
(global-set-key [f7] 'query-replace)
(global-set-key [f8] 'next-error)
(global-set-key [f9] 'compile)
(global-set-key [f9] 'buffer-menu)
(global-set-key [f11] 'org-agenda)
; (global-set-key [f11] 'planner-goto-today)
(global-set-key [f12] 'toggle-truncate-lines)
(global-set-key [C-kp-insert] 'copy-region-as-kill)
(global-set-key [C-kp-0] 'copy-region-as-kill)
(global-set-key [C-f9] 'compile)
(windmove-default-keybindings 'meta)
(global-set-key [M-kp-left] 'windmove-left)
(global-set-key [M-kp-right] 'windmove-right)
(global-set-key [M-kp-up] 'windmove-up)
(global-set-key [M-kp-down] 'windmove-down)

(global-set-key [M-delete] 'geosoft-kill-buffer)
(global-set-key [C-f7] 'rgrep)
(global-set-key [C-f10] 'pop-to-mark-command)
(global-set-key [C-f11] 'push-mark-command)
; (global-set-key [M-return] 'rope-goto-definition)
(global-set-key [mouse-2] 'yank)
(global-unset-key [C-3])
(global-unset-key [(control \#)])
(global-set-key [(control \#)] 'comment-or-uncomment-region)
(global-set-key [(control shift z)] 'comment-or-uncomment-region)
(global-set-key [(control shift f7)] 'occur)

(global-set-key [(control tab)] 'ido-switch-buffer)
;(define-key global-map  "\S-c"         'kill-ring-save)
; (global-set-key [ESC-<deletechar>] 'geosoft-kill-buffer)
(global-set-key [C-f5] 'call-last-kbd-macro)

; (global-set-key [(cotrol-c) t] 'planner-create-task)
; (global-set-key [C-c #] 'comment-region)
;(global-set-key [Scroll_Lock] 'speedbar)
(global-set-key [Scroll_Lock] 'speedbar)
(global-set-key [XF86Documents] 'dabbrev-expand)

(add-hook 'python-mode-hook
               '(lambda ()
		  (local-set-key [XF86Documents] 'rope-code-assist)))


(define-key global-map  "\C-cp"         'python-mode)
(define-key global-map  "\C-ch"         'html-mode)
(define-key global-map  "\C-cc"         'conf-mode)
(define-key global-map  "\C-cc"         'conf-mode)
(define-key global-map  "\C-cs"         'speedbar)

(defun show-trailing-whitespace ()
  (interactive)
  (setq show-trailing-whitespace t)
)



(define-key global-map  "\C-cw"         'show-trailing-whitespace)
(define-key global-map  "\C-cd"         'delete-trailing-whitespace)
(define-key global-map  "\C-c\C-xf"         'flymake-mode)

(global-set-key [(control f4)] 'push-mark-command)
(global-set-key [f4] 'pop-to-mark-command)




;; Duplicate it
(defun duplicate()
 "Duplicate it."
 (interactive)
 (let (
       (beg (line-beginning-position))
       (end (line-end-position)))
   (copy-region-as-kill beg end)
   (beginning-of-line)
   (forward-line 1)
   (yank)
   (newline)
   (forward-line -1)))




;(global-set-key [(control f10 2)] 'font12)
;(global-set-key [(control kp-add)] 'bigger-font)
;(global-set-key [(control control +)] 'bigger-font)
;(global-set-key [(control kp-subtract)] 'normal-font)
;; (global-set-key [(meta _)] 'normal-font)
;; (global-set-key [(meta +)] 'bigger-font)

; russian on ctrl+\

(global-set-key [(control shift a)] 'mark-whole-buffer)

(global-set-key [(control <)] 'previous-buffer)
(global-set-key [(control >)] 'next-buffer)

; (global-set-key [C-f6] 'bookmark-set)
;(global-set-key [M-kp-insert] 'bookmark-set)

; (global-set-key [f6] 'bookmark-jump)
(global-set-key [C-f8] 'bookmark-jump)

;  AV: cua-paste-pop (or use "yank-pop") in reverse
(global-set-key [(M shift y)] '(lambda () (interactive) (cua-paste-pop -1)))

; 
(global-set-key (kbd "C-` a") 'ansi-term)
(global-set-key (kbd "C-` s") 'shell)
(global-set-key (kbd "C-` e") 'eshell)
(global-set-key (kbd "C-` qp") 'sql-postgres)
(global-set-key (kbd "C-` qm") 'sql-mysql)
(global-set-key (kbd "C-` 2") 'duplicate)


; http://stackoverflow.com/questions/892378/how-do-i-fix-the-cursor-to-the-middle-of-the-screen-in-emacs-so-that-the-page-mo
(global-set-key (kbd "<Scroll_Lock>") 'scroll-lock-mode)

(global-unset-key [(control z)])
(global-set-key (kbd "C-z a") 'align-regexp)

; hippie expand
(global-set-key "\M- " 'hippie-expand)