Inicio
domingo, 07 septiembre 2008
Modlost's .emacs
Tag it:
Delicious
Slashdot
Digg
Meneame
BM
Fresqui
Neodiario
Escrito por Abner Ballardo   
01.04.2006

My ~/.emacs, I like to use M-x customize-variable beause it's friendly and easy to understand ;)

(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.
'(auto-save-default nil)
'(browse-url-browser-function (quote browse-url-mozilla) t)
'(browse-url-mozilla-program "mozilla-firefox")
'(case-fold-search t)
'(column-number-mode t)
'(current-language-environment "Spanish")
'(default-input-method "spanish-postfix")
'(dired-listing-switches "-alh" t)
'(display-time-mode t nil (time))
'(frame-background-mode (quote light))
'(global-font-lock-mode t nil (font-lock))
'(indent-tabs-mode nil)
'(inhibit-startup-message t)
'(ispell-skip-html t)
'(jde-jdk-registry (quote (("1.5.0" . "/opt/sun/jdk"))))
'(line-number-mode nil)
'(make-backup-files nil)
'(mouse-wheel-mode t nil (mwheel))
'(scroll-bar-mode (quote right))
'(semanticdb-default-save-directory "/home/modlost/tmp")
'(show-paren-mode t nil (paren))
'(transient-mark-mode t)
'(user-mail-address "modlost_AT_modlost_DOT_net")
'(visible-bell 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.
)

;;
;; Special customization
;;
(fset 'yes-or-no-p 'y-or-n-p)
(setq frame-title-format "Emacs - %b")
(setq icon-title-format "Emacs - %b")

;;
;; Team
;;
(load "hilit19")

;;
;; Text Mode customization
;;
(add-hook 'text-mode-hook
'(lambda ()
(turn-on-auto-fill)
(auto-fill-mode 1)
))


;;
;; PSGML Mode customization
;;
(add-hook 'sgml-mode-hook
'(lambda ()
(setq-default sgml-set-face t)
(setq sgml-auto-insert-required-elements nil)
;;
;; Faces.
;;
(make-face 'sgml-comment-face)
(make-face 'sgml-doctype-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
(make-face 'sgml-ignored-face)
(make-face 'sgml-ms-end-face)
(make-face 'sgml-ms-start-face)
(make-face 'sgml-pi-face)
(make-face 'sgml-sgml-face)
(make-face 'sgml-short-ref-face)
(make-face 'sgml-start-tag-face)

(set-face-foreground 'sgml-comment-face "dark green")
(set-face-foreground 'sgml-doctype-face "maroon")
(set-face-foreground 'sgml-end-tag-face "blue2")
(set-face-foreground 'sgml-entity-face "red2")
(set-face-foreground 'sgml-ignored-face "maroon")
(set-face-background 'sgml-ignored-face "gray90")
(set-face-foreground 'sgml-ms-end-face "maroon")
(set-face-foreground 'sgml-ms-start-face "maroon")
(set-face-foreground 'sgml-pi-face "maroon")
(set-face-foreground 'sgml-sgml-face "maroon")
(set-face-foreground 'sgml-short-ref-face "goldenrod")
(set-face-foreground 'sgml-start-tag-face "blue2")

(setq-default sgml-markup-faces
'((comment . sgml-comment-face)
(doctype . sgml-doctype-face)
(end-tag . sgml-end-tag-face)
(entity . sgml-entity-face)
(ignored . sgml-ignored-face)
(ms-end . sgml-ms-end-face)
(ms-start . sgml-ms-start-face)
(pi . sgml-pi-face)
(sgml . sgml-sgml-face)
(short-ref . sgml-short-ref-face)
(start-tag . sgml-start-tag-face)))

))

;;
;; Jde Mode customization
;;
(add-hook 'jde-mode-hook
'(lambda ()
(turn-on-auto-fill)
(auto-fill-mode 1)
(setq tab-width 2)
))

;;
;; Linux C Mode
;;
(defun linux-c-mode ()
"C mode for Linux Kernel Source"
(interactive)
(load "c-mode")
(c-mode)
(setq c-indent-level 8)
(setq c-brace-imaginary-offset 0)
(setq c-brace-offset -8)
(setq c-argdecl-indent 8)
(setq c-label-offset -8)
(setq c-continued-statement-offset 8)
(setq tab-width 8))

Recomiende este artículo...

 
No está autorizado a dejar comentarios - Por favor, ingrese como usuario.