.emacs.d-init.el

(require 'package)
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))
(package-initialize)


(defvar my-packages '(starter-kit
                      starter-kit-lisp
                      starter-kit-bindings
                      starter-kit-eshell
                      clojure-mode
                      clojure-test-mode
                      cider
                      exec-path-from-shell))

(dolist (p my-packages)
  (when (not (package-installed-p p))
    (package-install p)))

;; fix the PATH variable
(when (memq window-system '(mac ns))
  (exec-path-from-shell-initialize))


;; http://www.emacsblog.org/2007/02/27/quick-tip-add-occur-to-isearch/
(define-key isearch-mode-map (kbd "C-o")
  (lambda ()
    (interactive)
    (let ((case-fold-search isearch-case-fold-search))
      (occur (if isearch-regexp isearch-string
               (regexp-quote isearch-string))))))

;; http://juangarcia.890m.com/blog/2008/06/04/emacs-keymaps-prefix-keys/
(defvar my-insert-map nil)
(setq my-insert-map (make-sparse-keymap))

(global-set-key "\C-ci" my-insert-map)
(global-set-key "\C-cid" 'my-insert-date)

(defun my-insert-date ()
  (interactive)
  (insert (format-time-string "%Y%m%d")))

(when (not (featurep 'aquamacs))
  (setq mac-command-modifier 'meta)
  (setq mac-option-modifier 'none))



(put 'erase-buffer 'disabled nil)
(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.
 '(calendar-week-start-day 1)
 '(display-time-day-and-date t)
 '(make-backup-files nil)
 '(cua-mode t nil (cua-base)))
(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.
 )