Hola debianitas.

Ya que últimamente me veo obligado a trabajar mucho con Emacs, he recopilado información cogida de

diferentes ficheros de configuración de mucha gente para hacer un Emacs bonito y funcional.

Está pensado para gente que tenga que estar mucho tiempo delante de la pantalla.

Tan sólo tenéis que copiar este archivo .emacs a vuestro home.

Las características son las siguientes:

• 
  Colores muy agradables a la vista. Vuestros ojos lo agradecerán : )


• 
  Se puede seleccionar a golpe de ratón y colorea el texto seleccionado.


• 
  Se puede copiar con Control+Insert y pegar con Shift+Insert. A parte funcionan los demas comandos típicos de emacs.


• 
  Funciones muy útiles para programadores (colores, marca el cerrado de paréntesis, corchetes...).


• 
  Funciona el scroll del ratón.


• 
  En español (acentos y eñes).

Es tan solo una pequeño trabajo de recopilación de diferentes configuraciones que han sido útiles para mí.

Espero que os guste.

Un saludo.

(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.
 '(case-fold-search t)
 '(current-language-environment "Latin-9")
 '(default-input-method "latin-9-prefix")
 '(ecb-options-version "2.27")
 '(ftp-program "/usr/bin/sftp")
 '(global-font-lock-mode t nil (font-lock))
 '(highlight-changes-colours (quote ("Plum" "CornflowerBlue" "LimeGreen" "chocolate" "Salmon" "NavyBlue")))
 '(show-paren-mode t nil (paren))
 '(speedbar-supported-extension-expressions (quote (".bnf" ".[ch](++|pp|c|h|xx)?" ".tex(i(nfo)?)?" 
".el" ".emacs" ".l" ".lsp" ".p" ".java" ".f(90|77|or)?" ".ada" ".pl" ".tcl" ".m" ".scm" ".pm" ".py" ".s?html"
 "Makefile(.in)?" ".jsp" ".ml" ".erl" ".xml" ".xsl" ".dtd" ".properties" ".sql" ".tld" ".hrl")))
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(default ((t (:foreground "Wheat"))))
 '(bg:MidnightBlue ((t (:background "Navy"))))
 '(custom-group-tag-face ((t (:foreground "cyan"))))
 '(custom-set-face ((((class color)) (:foreground "cyan"))))
 '(custom-state-face ((t (:foreground "orange"))))
 '(custom-variable-tag-face ((t (:foreground "cyan"))))
 '(font-lock-comment-face ((((class color) (background light)) (:foreground "LightSteelBlue"))))
 '(font-lock-function-name-face ((((class color) (background light)) (:foreground "CornflowerBlue"))))
 '(font-lock-keyword-face ((((class color) (background light)) (:foreground "Plum"))))
 '(font-lock-type-face ((((class color) (background light)) (:foreground "YellowGreen"))))
 '(gnus-header-content-face ((((class color) (background light)) (:italic t :foreground "indianred"))))
 '(gnus-header-from-face ((((class color) (background light)) (:foreground "Aquamarine"))))
 '(gnus-header-name-face ((((class color) (background light)) (:foreground "Salmon"))))
 '(gnus-header-subject-face ((((class color) (background light)) (:foreground "Khaki"))))
 '(highlight ((((class color) (background light)) (:foreground "White" :background "MediumSlateBlue"))))
 '(highlight-changes-delete-face ((((class color)) (:underline t :foreground "IndianRed"))))
 '(highlight-changes-face ((((class color)) (:foreground "IndianRed"))))
 '(jde-java-font-lock-link-face ((t (:italic nil :underline t :foreground "Yellow"))))
 '(makefile-space-face ((((class color)) (:foreground "White" :background "Coral"))))
 '(message-cited-text-face ((((class color) (background light)) (:foreground "Violet"))))
 '(message-header-other-face ((((class color) (background light)) (:foreground "LightSteelBlue"))))
 '(message-header-xheader-face ((((class color) (background light)) (:foreground "Navy"))))
 '(message-separator-face ((((class color) (background light)) (:foreground "Orange"))))
 '(region ((t (:foreground "White" :background "CornflowerBlue"))))
 '(secondary-selection ((((class color) (background light)) (:foreground "White" :background "MediumOrchid"))))
 '(show-paren-mismatch-face ((((class color)) (:foreground "white" :background "CornflowerBlue"))))
 '(speedbar-button-face ((((class color) (background light)) (:foreground "SpringGreen"))))
 '(speedbar-directory-face ((((class color) (background light)) (:foreground "cyan"))))
 '(speedbar-highlight-face ((((class color) (background light)) (:background "ForestGreen"))))
 '(vhdl-font-lock-directive-face ((((class color) (background light)) (:foreground "Aquamarine"))))
 '(vhdl-font-lock-enumvalue-face ((((class color) (background light)) (:foreground "Gold"))))
 '(vhdl-font-lock-function-face ((((class color) (background light)) (:foreground "Pink"))))
 '(vhdl-font-lock-prompt-face ((((class color) (background light)) (:bold t :foreground "Coral"))))
 '(vhdl-font-lock-translate-off-face ((t (:foreground "Black" :background "LightGray"))))
 '(vhdl-speedbar-architecture-face ((((class color) (background light)) (:foreground "SteelBlue"))))
 '(vhdl-speedbar-architecture-selected-face ((((class color) (background light)) (:underline t :foreground "Cyan"))))
 '(vhdl-speedbar-entity-face ((((class color) (background light)) (:foreground "LimeGreen"))))
 '(vhdl-speedbar-instantiation-selected-face ((((class color) (background light)) (:underline t :foreground "Firebrick"))))
 '(widget-button-pressed-face ((((class color)) (:foreground "Salmon"))))
 '(widget-documentation-face ((((class color) (background light)) (:foreground "YellowGreen"))))
 '(widget-field-face ((t (:foreground "cyan"))))
 '(widget-inactive-face ((t (:foreground "SkyBlue"))))
 '(widget-single-line-field-face ((((class grayscale color) (background light)) (:foreground "cyan")))))


(setq default-frame-alist
 '((width . 80) 
   (height . 40)
;; (top . 100) 
;; (left . 200)
;; (font . "-*-Courier-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
   (cursor-color . "Magenta")
   (cursor-type . box)
   (foreground-color . "Wheat")
   (face-background . "SteelBlue4")
   (background-color . "SteelBlue4")))

(cond ((fboundp 'global-font-lock-mode)
 ;; Customize face attributes
 (setq font-lock-face-attributes
 ;; Symbol-for-Face Foreground Background Bold Italic Underline
  '((font-lock-comment-face       "LightGray")
    (font-lock-string-face        "Orange")
    (font-lock-keyword-face       "White")
;;    (font-lock-keyword-face       "CornflowerBlue")
 (font-lock-constant-face      "DarkTurquoise")
 (font-lock-builtin-face       "Violet")
    (font-lock-function-name-face "LightBlue")
    (font-lock-variable-name-face "Gold")
    (font-lock-type-face          "SkyBlue")
    (font-lock-reference-face     "Plum")
 (font-lock-warning-face       "MediumOrchid")))
 ;; Load the font-lock package.
 (require 'font-lock)
 ;; Maximum colors
 (setq font-lock-maximum-decoration t)
 ;; Turn on font-lock in all modes that support it
 (global-font-lock-mode t)))


;; colors

;; mouse wheel scroll

(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
      
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
      
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)


;; speedbar configuration