;;; Development Shortcuts
;; GDB shortcuts
(defun gdb-shortcuts ()
  "Define GDB Shortcuts"
  (interactive)
  (local-set-key [f7] 'gud-step)
  (local-set-key [f8] 'gud-next)
  (local-set-key [C-f8] 'gud-break)
  (gud-call "break main")
  )
(add-hook 'gud-mode-hook 'gdb-shortcuts)

(global-set-key [f5] 'compile)
(global-set-key [f6] 'gdb)
(global-set-key [f7] 'svn-status)
(global-set-key [S-f7] 'svn-status-show-svn-diff-for-marked-files)

;; Meta-g is now goto-line
(global-set-key "\M-g" 'goto-line)

;; Shift+F3 search for manual page
(global-set-key [S-f3] 'man)


;; Default mode is latex, not tex:
(setq tex-default-mode 'latex-mode)

;; Abbreviations file
(quietly-read-abbrev-file "~/.abbrev_defs")



;; Browser
(if (eq window-system 'x)
    ;;; Browser for X mode:
    ;; Netscape
    ;(setq browse-url-browser-function 'browse-url-netscape
    ;browse-url-new-window-p t)

    ;; KDE
    (setq browse-url-browser-function 'browse-url-kde)
  (setq browse-url-browser-function 'w3m-browse-url)
  )

;; New XML
(add-to-list 'auto-mode-alist
	     (cons (concat "\\." (regexp-opt '("xml" "xsd" "sch" "rng"
					       "xslt" "svg" "rss") t)
			   "\\'")
		   'nxml-mode))
;;(add-hook 'hack-local-variables-hook
;; 	  (lambda ()
;; 	    (save-excursion
;; 	      (when (search-forward-regexp "^<\\?xml" 6 0)
;; 		(nxml-mode)
;; 		))))



(add-to-list 'auto-mode-alist
	     (cons
	      (concat "\\."
		      (regexp-opt
		       '("xml"
			 "xsd"
			 "sch"
			 "rng"
			 "xslt"
			 "svg"
			 "rss"
			 "xhtml"
			 "html") t)
		      "\\'")
	      'nxml-mode))

(add-hook 'hack-local-variables-hook
	  (lambda ()
	    (save-excursion
	      (when (search-forward-regexp "^<\\?xml" 6 0)
		(nxml-mode)
		))))



;; KDVI
(add-to-list 'load-path (expand-file-name "~/.emacs.d/scripts"))
(require 'kdvi-search)
(add-hook 'LaTeX-mode-hook (lambda () (local-set-key "\C-x\C-j" 'kdvi-jump-to-line)))
(add-hook 'tex-mode-hook (lambda () (local-set-key "\C-x\C-j" 'kdvi-jump-to-line)))



(put 'upcase-region 'disabled nil)

;; Custom Variables
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(add-log-current-defun-function nil)
 '(add-log-mailing-address "barbieri@gmail.com" t)
 '(auto-compression-mode t nil (jka-compr))
 '(browse-url-generic-program "w3m")
 '(calculator-remove-zeros (quote leave-decimal))
 '(case-fold-search t)
 '(column-number-mode t)
 '(ecb-layout-window-sizes (quote (("left8" (0.2753623188405797 . 0.16666666666666666) (0.2753623188405797 . 0.16666666666666666) (0.2753623188405797 . 0.5) (0.2753623188405797 . 0.14814814814814814)))))
 '(ecb-options-version "2.21")
 '(ecb-source-path (quote ("/home/gustavo/Development/svn/pytvgrab" "/home/gustavo/Development/cvs/freevo" "/home/gustavo/Development/cvs/kde" "/home/gustavo/Development/cvs/libvisual" "/home/gustavo/Development/cvs/libvisual-plugins" "/home/gustavo")))
 '(ecb-tag-display-function (quote ((default . ecb-format-tag-uml-prototype))))
 '(global-font-lock-mode t nil (font-lock))
 '(ispell-dictionary-alist (quote ((nil "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("american" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("brasileiro" "[A-ZÁÉÍÓÚÀÈÌÒÙÃÕÇÜÂÊÔa-záéíóúàèìòùãõçüâêô]" "[^A-ZÁÉÍÓÚÀÈÌÒÙÃÕÇÜÂÊÔa-záéíóúàèìòùãõçüâêô]" "[']" nil ("-d" "pt_BR") nil iso-8859-1) ("british" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "british") nil iso-8859-1) ("castellano" "[A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[^A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[-]" nil ("-B" "-d" "castellano") "~tex" iso-8859-1) ("castellano8" "[A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[^A-ZÁÉÍÑÓÚÜa-záéíñóúü]" "[-]" nil ("-B" "-d" "castellano") "~latin1" iso-8859-1) ("czech" "[A-Za-zÁÉÌÍÓÚÙÝ®©ÈØÏ«Òáéìíóúùý¾¹èøï»ò]" "[^A-Za-zÁÉÌÍÓÚÙÝ®©ÈØÏ«Òáéìíóúùý¾¹èøï»ò]" "" nil ("-B" "-d" "czech") nil iso-8859-2) ("dansk" "[A-ZÆØÅa-zæøå]" "[^A-ZÆØÅa-zæøå]" "[']" nil ("-C") nil iso-8859-1) ("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("deutsch8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "deutsch") "~latin1" iso-8859-1) ("english" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("esperanto" "[A-Za-z¦¬¶¼ÆØÝÞæøýþ]" "[^A-Za-z¦¬¶¼ÆØÝÞæøýþ]" "[-']" t ("-C") "~latin3" iso-8859-1) ("esperanto-tex" "[A-Za-z^\\]" "[^A-Za-z^\\]" "[-'`\"]" t ("-C" "-d" "esperanto") "~tex" iso-8859-1) ("francais7" "[A-Za-z]" "[^A-Za-z]" "[`'^---]" t nil nil iso-8859-1) ("francais" "[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[^A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[-']" t nil "~list" iso-8859-1) ("francais-tex" "[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[^A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[-'^`\"]" t nil "~tex" iso-8859-1) ("german" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("german8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "german") "~latin1" iso-8859-1) ("italiano" "[A-ZÀÁÈÉÌÍÒÓÙÚa-zàáèéìíóùú]" "[^A-ZÀÁÈÉÌÍÒÓÙÚa-zàáèéìíóùú]" "[-]" nil ("-B" "-d" "italian") "~tex" iso-8859-1) ("nederlands" "[A-Za-zÀ-ÅÇÈ-ÏÒ-ÖÙ-Üà-åçè-ïñò-öù-ü]" "[^A-Za-zÀ-ÅÇÈ-ÏÒ-ÖÙ-Üà-åçè-ïñò-öù-ü]" "[']" t ("-C") nil iso-8859-1) ("nederlands8" "[A-Za-zÀ-ÅÇÈ-ÏÒ-ÖÙ-Üà-åçè-ïñò-öù-ü]" "[^A-Za-zÀ-ÅÇÈ-ÏÒ-ÖÙ-Üà-åçè-ïñò-öù-ü]" "[']" t ("-C") nil iso-8859-1) ("norsk" "[A-Za-zÅÆÇÈÉÒÔØåæçèéòôø]" "[^A-Za-zÅÆÇÈÉÒÔØåæçèéòôø]" "[\"]" nil ("-d" "norsk") "~list" iso-8859-1) ("norsk7-tex" "[A-Za-z{}\\'^`]" "[^A-Za-z{}\\'^`]" "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1) ("polish" "[A-Za-z¡£¦¬¯±³¶¼¿ÆÊÑÓæêñó]" "[^A-Za-z¡£¦¬¯±³¶¼¿ÆÊÑÓæêñó]" "" nil ("-d" "polish") nil iso-8859-2) ("russian" "[áâ÷çäå³öúéêëìíîïðòóôõæèãþûýøùÿüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝØÙßÜÀÑ]" "[^áâ÷çäå³öúéêëìíîïðòóôõæèãþûýøùÿüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝØÙßÜÀÑ]" "" nil ("-d" "russian") nil koi8-r) ("svenska" "[A-Za-zåäöéàüèæøçÅÄÖÉÀÜÈÆØÇ]" "[^A-Za-zåäöéàüèæøçÅÄÖÉÀÜÈÆØÇ]" "[']" nil ("-C") "~list" iso-8859-1) ("portugues" "[a-zA-ZÁÂÉÓàáâéêíóãú]" "[^a-zA-ZÁÂÉÓàáâéêíóãú]" "[']" t ("-C" "-d" "portugues") "~latin1" iso-8859-1) ("slovak" "[A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "[^A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "" nil ("-B" "-d" "slovak") nil iso-8859-2))) t)
 '(ispell-program-name "aspell")
 '(keyboard-coding-system (quote mule-utf-8))
 '(menu-bar-mode nil)
 '(mouse-wheel-mode t nil (mwheel))
 '(save-abbrevs (quote silently))
 '(save-place t nil (saveplace))
 '(scroll-bar-mode nil)
 '(semanticdb-default-save-directory "~/.emacs.d/")
 '(show-paren-delay 0)
 '(show-paren-mode t nil (paren))
 '(show-paren-mode-hook nil)
 '(show-paren-ring-bell-on-mismatch t)
 '(show-paren-style (quote parenthesis))
 '(show-trailing-whitespace t)
 '(spell-command "aspell")
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(tool-bar-mode nil nil (tool-bar))
 '(tooltip-gud-tips-p t)
 '(transient-mark-mode t)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(which-func-modes (quote (emacs-lisp-mode c-mode c++-mode perl-mode cperl-mode makefile-mode sh-mode fortran-mode python-mode)))
 '(which-function-mode nil nil (which-func))
 '(x-select-enable-clipboard nil))