dotfiles/emacs.d/init.el

42 lines
1.8 KiB
EmacsLisp

;; Antes que nada, quitamos del path el org-mode que viene con emacs, por que es viejo
;; Added by Package.el. This must come before configurations of
;; installed packages. Don't delete this line. If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)
(dolist (val load-path)
(if (string-match "lisp\/org" val)
(progn
(setq org-viejo val)
(delete val load-path))))
;; Se añade la ruta del org-mode nuevo
(add-to-list 'load-path (concat user-emacs-directory "el-get/org-mode-maint/lisp/"))
;; Se intenta cargar el org-mode más nuevo. Si falla, vuelve a añadir al path la versión vieja para poder cargar el fichero de configuración
(unless (require 'org nil 'noerror)
(add-to-list 'load-path org-viejo))
;; Se carga la configuración pública y la privada
(message "Evaluating init-literate.org")
(org-babel-load-file (concat user-emacs-directory "init-literate.org"))
(message "Evaluating private-literate.org")
(org-babel-load-file (concat user-emacs-directory "private-literate.org"))
(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.
'(custom-safe-themes
(quote
("71ecffba18621354a1be303687f33b84788e13f40141580fa81e7840752d31bf" default)))
(put 'upcase-region 'disabled nil)
(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.
'(default ((t (:family "DejaVu Sans Mono" :foundry "unknown" :slant normal :weight normal :height 107 :width normal)))))