;;Última actualización: 2007-12-29

;;Idioma
(set-language-environment "Spanish")
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)

;;;Ajustes varios
;;Ver http://www.emacswiki.org/cgi-bin/emacs-es/Categor%C3%ADaRecetas
;;Highlightning mode
(global-hi-lock-mode 1)
;;Resaltado
(global-font-lock-mode t)
;;Desactivar pitidos
(setq visible-bell t)
;;Mensaje inicial
(setq inhibit-startup-message t)
;;Número de columna
(column-number-mode 't)
;;Rueda del ratón:
(mouse-wheel-mode 1)
;;Marcar la zona seleccionada
(transient-mark-mode t)
;;Marcar paréntesis de cierre
(show-paren-mode t)
;;Sin backups~
;(setq make-backup-files nil)
;;A decir verdad nunca usamos esas dos barras:
(tool-bar-mode 0)
(menu-bar-mode 0)


;;;Funciones
;;Ver http://emacs.wordpress.com/2007/01/17/eval-and-replace-anywhere/
(defun fc-eval-and-replace ()
  "Replace the preceding sexp with its value."
   (interactive)
   (backward-kill-sexp)
   (condition-case nil
       (prin1 (eval (read (current-kill 0)))
	      (current-buffer))
     (error (message “Invalid expression”)
	    (insert (current-kill 0)))))

;; Tomado de aquí: http://www.valhenson.org/linux_basics/.emacs
(defun linux-c-mode ()
  "C mode with adjusted defaults for use with the Linux kernel."
  (interactive)
  (c-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 8))
;; (setq auto-mode-alist
;;       (cons '("\\.c$" . linux-c-mode) auto-mode-alist))

;; Cargar todo lo de ~/.emacs.d/autoload/
(add-to-list 'load-path "~/.emacs.d/autoload/")

;; Cargar el modo C#
(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
(setq auto-mode-alist
    (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))

;;Asociaciones de teclas:
(global-set-key "\C-cr" 'replace-string)
(define-key global-map "\C-cg" 'goto-line)
(global-set-key (kbd "\C-ce") 'fc-eval-and-replace)
(global-set-key (kbd "\C-co") 'compile)
(global-set-key (kbd "\C-ch") 'manual-entry)

;;Un ejemplo:
;; (setq auto-mode-alist
;;       (cons '("\\.py$" . python-mode) auto-mode-alist))