Emacs init

(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 ("b5ea0664599b58050f8b4a8a470552670f8a9e55fbbd36371ec13b1a6ad27d96"
"513903b5fc1bcc8001f377bc330acc2a7d9d1e0a930a5cb7d6def2f90fef0ea8"
"0c311fb22e6197daba9123f43da98f273d2bfaeeaeb653007ad1ee77f0003037"
"7a0f1917857f1a6798be1df559e55f1866cdddc2679e96b58b839a7cd3a41fd0"
"d0ff5ea54497471567ed15eb7279c37aef3465713fb97a50d46d95fe11ab4739"
"9e915c42887b341f8b6fddac7a1b691467c93428853dde210db95a4346a14abe"
"8b619ea38112fdb6a66a2ece83cca0e961e266167920cab3452ae56147702fb4"
"eab00c75860f08d5d33fc598e7c5bb00de312f20ef1988547db6ac4bb711d9fe"
"80269d81df29527fdc7240048264c029036cdb1c43a61a74fdb3220888314da2"
"961db349527320dfa05525b3cb6f55b67ad4eb8d355b0c2ad8ade44a32d1d7a8"
"ece32045aaba63573c3e5906c94076b66ac191f9307f640079ca0d7b32204465"
"94f395f34f3dfd7502b6fa3ece39e0145baae110497277832dd5a6cf8d160b84"
"1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365"
"a81bc918eceaee124247648fc9682caddd713897d7fd1398856a5b61a592cb62"
"0966b16eb73dec5f47b1850d189750a83aab9ed3f0069d6e808c4a5f515cff3c"
"38c4fb6c8b2625f6307f3dde763d5c61d774d854ecee9c5eb9c5433350bc0bef"
"1760322f987b57884e38f4076ac586c27566a1d7ed421b67843c8c98a1501e3a"
"9f443833deb3412a34d2d2c912247349d4bd1b09e0f5eaba11a3ea7872892000"
"fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6"
default))))

;; GEISER
(setq geiser-mode-auto-p nil)
(setq geiser-mode-smart-tab-p t)
(setq geiser-mode-start-repl-p t)
(setq geiser-active-implementations '(guile))
(setq geiser-guile-init-file "~/.geiser-guile")
;; GEISER

;; Instalador de paquetes ;;;;;;;;;;;;;;;;;;;;;;;
(require 'package)
(add-to-list 'package-archives
'("marmalade" .
"http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/"))
(package-initialize)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Load-path's ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
(add-to-list 'load-path "~/.emacs.d/elisp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Respaldos ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq backup-directory-alist `(("." . "~/.saves")))
(setq backup-by-copying t)

(setq auto-save-file-name-transforms
`((".*" ,temporary-file-directory t)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Lenguaje de programacion C ;;;;;;;;;;;;;;;;;;;
(add-hook 'c-mode-hook '(lambda ()
(local-set-key (kbd "RET")
'newline-and-indent)))
(setq c-basic-offset 4)
(setq c-indent-level 4)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Lenguaje de programacion C++ ;;;;;;;;;;;;;;;;;
(add-hook 'c++-mode-common-hook
(lambda()
(local-set-key (kbd "C-c <right>") 'hs-show-block)
(local-set-key (kbd "C-c <left>") 'hs-hide-block)
(local-set-key (kbd "C-c <up>") 'hs-hide-all)
(local-set-key (kbd "C-c <down>") 'hs-show-all)
(hs-minor-mode t)))
(setq c++-tab-always-indent t)
(add-hook 'c++-mode-hook
'(lambda ()
(local-set-key (kbd "RET") 'newline-and-indent)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; Lenguaje de programacion Scheme ;;;;;;;;;;;;;;
(autoload 'enable-paredit-mode "paredit"
"Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'scheme-mode-hook 'enable-paredit-mode)
(add-hook 'scheme-mode-hook
'(lambda ()
(local-set-key (kbd "RET") 'newline-and-indent)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Lenguaje de programacion Common Lisp ;;;;;;;;;;;;;;
(setq inferior-lisp-program "sbcl")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Generalidades de EMACS ;;;;;;;;;;;;;;;;;;;;;;;
(setq inhibit-splash-screen t)
(make-directory "~/.emacs.d/autosaves/" t)
(tool-bar-mode -1)
(load-theme 'graham)
(fullscreen-mode 1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(show-paren-mode 1)
(global-linum-mode 1)
(setq show-paren-delay 0)
(setq path "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin")
(setq mouse-wheel-scroll-amount '(1))
(setq mouse-wheel-progressive-speed nil)

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

;; Eshell ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun eshell/clear ()
"clear the eshell buffer."
(interactive)
(let ((inhibit-read-only t))
(erase-buffer)))
(setq eshell-prompt-function (lambda nil
(concat
(propertize (eshell/pwd) 'face `(:foreground "#A7DBD8"))
(propertize " $ " 'face `(:foreground "#A7DBD8")))))
(setq eshell-highlight-prompt nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq display-time-day-and-date t
display-time-12hr-format t)
(display-time)

(require 'yasnippet)
(yas-global-mode 1)

(require 'ac-geiser)
(add-hook 'geiser-mode-hook 'ac-geiser-setup)
(add-hook 'geiser-repl-mode-hook 'ac-geiser-setup)
(eval-after-load "auto-complete"
'(add-to-list 'ac-modes 'geiser-repl-mode))

;; Rainbow delimiters
(require 'rainbow-delimiters)
(add-hook 'scheme-mode-hook 'rainbow-delimiters-mode)

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