(add-to-list 'load-path "~/.emacs.d")
(add-to-list 'load-path "~/.emacs.d/pov-mode")

(require 'quack)
(require 'paredit)
(require 'color-theme)

(add-hook 'scheme-mode-hook (lambda () (paredit-mode +1)))

(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
     (color-theme-charcoal-black)))

(ido-mode t)
(tool-bar-mode nil)
(set-default-font "Mensch-16")

;; joins two consecutives lines like vim's "J"
(defun join-lines ()
  (interactive)
  (save-excursion
    (end-of-line)
    (insert-char ?  1)
    (delete-char 1)
    (while (looking-at "\\s +")
      (delete-char 1))))

(global-set-key (kbd "C-,") 'join-lines)

(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.
 '(inhibit-startup-screen t)
 '(tool-bar-mode 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.
 )