Add org bindings; fix clojure-project root heuristic.

starter-kit-bindings.el

@@ -34,7 +34,6 @@
 (global-set-key (kbd "C-x M-f") 'ido-find-file-other-window)
 (global-set-key (kbd "C-x C-M-f") 'find-file-in-project)
 (global-set-key (kbd "C-x f") 'recentf-ido-find-file)
-(global-set-key (kbd "C-x C-p") 'find-file-at-point)
 (global-set-key (kbd "C-c y") 'bury-buffer)
 (global-set-key (kbd "C-c r") 'revert-buffer)
 (global-set-key (kbd "M-`") 'file-cache-minibuffer-complete)
@@ -94,5 +93,9 @@
     (let ((case-fold-search isearch-case-fold-search))
       (occur (if isearch-regexp isearch-string (regexp-quote isearch-string))))))
 
+;; Org
+(define-key global-map "\C-cl" 'org-store-link)
+(define-key global-map "\C-ca" 'org-agenda)
+
 (provide 'starter-kit-bindings)
 ;;; starter-kit-bindings.el ends here

starter-kit-defuns.el

@@ -86,6 +86,9 @@ Symbols matching the text at point are put first in the completion list."
 (defun turn-on-whitespace ()
   (whitespace-mode t))
 
+(defun turn-on-paredit ()
+  (paredit-mode t))
+
 (defun turn-off-tool-bar ()
   (tool-bar-mode -1))
 

starter-kit-lisp.el

@@ -29,6 +29,8 @@
               (if (file-exists-p (concat buffer-file-name "c"))
                   (delete-file (concat buffer-file-name "c"))))))
 
+(define-key emacs-lisp-mode-map (kbd "M-.") 'find-function-at-point)
+
 ;;; Clojure
 
 (eval-after-load 'find-file-in-project
@@ -40,7 +42,7 @@
   (interactive (list
                 (ido-read-directory-name
                  "Project root: "
-                 (locate-dominating-file default-directory "pom.xml"))))
+                 (locate-dominating-file default-directory "src"))))
   (when (get-buffer "*inferior-lisp*")
     (kill-buffer "*inferior-lisp*"))
   (defvar swank-clojure-extra-vm-args nil)