modlost.net

(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))