per host configuration + import of some configuration defined in various start-kits

.gitignore

@@ -2,4 +2,5 @@ auto-save-list/
 elpa/
 ac-comphist.dat
 eproject.lst
+.smex-items
 \#*

funcs.el

@@ -13,14 +13,13 @@
       (set-register '_ (list (current-window-configuration)))
       (delete-other-windows))))
 
-;; from http://stackoverflow.com/questions/2905575/emacs-pass-arguments-to-inferior-python-shell-during-buffer-evaluation
-(defun python-send-buffer-with-args (args)
-  (interactive "sArguments: ")
-  (let ((source-buffer (current-buffer)))
-    (with-temp-buffer
-      (insert "import sys; sys.argv = '" args "'.split()\n")
-      (insert-buffer-substring source-buffer)
-      (python-shell-send-buffer))))
+;; from http://github.com/technomancy/emacs-starter-kit
+(defun esk-paredit-nonlisp ()
+  "Turn on paredit mode for non-lisps."
+  (interactive)
+  (set (make-local-variable 'paredit-space-for-delimiter-predicates)
+       '((lambda (endp delimiter) nil)))
+  (paredit-mode 1))
 
 (defun z:set-transparency (value)
   "Sets the transparency of the frame window. 0=transparent/100=opaque"

host/Qiao-MacBook/editing.el

@@ -0,0 +1,3 @@
+;; font size
+(set-face-attribute 'default nil :height 100)
+

init-package/init-find-file-in-project.el

@@ -0,0 +1,2 @@
+(global-set-key (kbd "C-c f") 'find-file-in-project)
+

init-package/init-paredit.el

@@ -0,0 +1,12 @@
+(eval-after-load 'paredit
+;; need a binding that works in the terminal
+'(progn
+   (define-key paredit-mode-map (kbd "M-)") 'paredit-forward-slurp-sexp)
+   (define-key paredit-mode-map (kbd "M-(") 'paredit-backward-slurp-sexp)))
+
+(dolist (mode '(scheme emacs-lisp lisp clojure clojurescript))
+(when (> (display-color-cells) 8)
+  (font-lock-add-keywords (intern (concat (symbol-name mode) "-mode"))
+						  '(("(\\|)" . 'esk-paren-face))))
+(add-hook (intern (concat (symbol-name mode) "-mode-hook"))
+		  'paredit-mode))

init-package/init-smex.el

@@ -0,0 +1,3 @@
+(setq smex-save-file (concat user-emacs-directory ".smex-items"))
+(smex-initialize)
+(global-set-key (kbd "M-x") 'smex)

init.el

@@ -17,6 +17,10 @@
   (expand-file-name (concat user-emacs-directory "extensions/"))
   "Additional extensions.")
 
+(defvar host-directory
+  (expand-file-name (concat user-emacs-directory "host/" system-name "/"))
+  "Host specific configurations")
+
 (add-to-list 'load-path user-emacs-directory)
 (add-to-list 'load-path user-extensions-directory)
 
@@ -36,3 +40,9 @@
     (dolist (l (directory-files user-post-directory nil "^[^#].*el$"))
       (load (concat user-post-directory l)))))
 
+;; Host config ================================================================
+(progn (when (file-exists-p host-directory)
+    (dolist (l (directory-files host-directory nil "^[^#].*el$"))
+      (load (concat host-directory l)))))
+
+;; TODO refactor auto-loading functions for configuration files

packages.el

@@ -16,16 +16,20 @@
     erlang
     evil
     fill-column-indicator
+    find-file-in-project
     fuzzy
     highlight-symbol
+    ido-ubiquitous
     ipython
     jedi
     key-chord
     p4
+    paredit
     powerline
     popup
     rainbow-delimiters
     smart-operator
+    smex
     solarized-theme
     surround
     yasnippet

pre/editing.el

@@ -1,3 +1,5 @@
+;; font size
+(set-face-attribute 'default nil :height 110)
 ;; whitespace-mode
 (setq-default show-trailing-whitespace nil)
 ;; When point is on paranthesis, highlight the matching one

pre/ui.el

@@ -3,8 +3,6 @@
 (menu-bar-mode -1)
 (scroll-bar-mode -1)
 (fringe-mode 0)
-;; font size
-(set-face-attribute 'default nil :height 110)
 ;; number colon mode
 (global-linum-mode t)
 ;; Show column number in mode line