;;; .emacs

(server-start)

(require 'cl)

(defun concat-dirs (&rest dirs)
  "A concat for directories."
  (reduce (lambda (x y)
            (concat (file-name-as-directory x) y))
          dirs))

;;; The emacs-root directory should have a subdirectory named `init'
;;; containing several initialization files to be loaded in order.

;;; Add every subdirectory in emacs-root except init to the load-path.
(defvar emacs-root (concat-dirs (expand-file-name "~") "emacs"))

(let ((dirs (remove "init" (cddr (directory-files emacs-root)))))
  (mapc (lambda (x)
          (let ((dir (concat-dirs emacs-root x)))
            (add-to-list 'load-path dir)))
        dirs))

(add-to-list 'load-path (concat-dirs "~" "share" "emacs" "site-lisp"))

;;; Launch initialization files (in alphabetical order).
(let ((init-files (directory-files (concat-dirs emacs-root "init") t "\\.el$")))
  (mapc (lambda (x)
          (load (file-name-sans-extension x)))
        init-files))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(browse-url-browser-function (quote browse-url-firefox))
 '(c-default-style (quote ((c-mode . "linux") (java-mode . "java") (other . "gnu"))))
 '(case-fold-search t)
 '(column-number-mode t)
 '(current-language-environment "UTF-8")
 '(default-input-method "rfc1345")
 '(enable-local-variables nil)
 '(erc-autojoin-mode nil)
 '(erc-disable-ctcp-replies t)
 '(erc-email-userid "jmbr")
 '(erc-enable-logging t)
 '(erc-modules (quote (autojoin button completion fill identd irccontrols list log match menu move-to-prompt netsplit networks noncommands readonly ring scrolltobottom stamp spelling track truncate)))
 '(erc-nick "jmbr")
 '(erc-nick-uniquifier "_")
 '(erc-paranoid t)
 '(erc-prompt-for-password nil)
 '(erc-scrolltobottom-mode t)
 '(erc-truncate-mode t)
 '(erc-user-full-name "Juan M. Bello Rivas")
 '(global-font-lock-mode t nil (font-lock))
 '(indent-tabs-mode nil)
 '(iswitchb-mode t)
 '(menu-bar-mode nil)
 '(scroll-bar-mode nil)
 '(show-paren-mode t nil (paren))
 '(show-trailing-whitespace t)
 '(size-indication-mode t)
 '(speedbar-show-unknown-files t)
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(tool-bar-mode nil)
 '(transient-mark-mode (quote identity))
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(use-file-dialog nil)
 '(visible-bell t)
 '(w3m-default-display-inline-images nil)
 '(w3m-home-page "http://www.google.com/ncr")
 '(w3m-use-cookies t)
 '(woman-use-own-frame nil t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )

(put 'upcase-region 'disabled nil)

(put 'downcase-region 'disabled nil)