My .emacs self installing portable config

nic-custom.el

 :;exec emacs -batch -l "$0" -f nic-custom-self-install "$@"
;;; custom.el --- Nic's custom stuff for Emacs

;; Copyright (C) 2012  Nic Ferrier <[email protected]>

;; Author: Nic Ferrier <[email protected]>
;; Keywords: local

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This is an attempt to finally make my emacs config portable.

;; The idea is that you set your init.el up by running the command in
;; here `nic-custom-self-install' which you can do by executing this
;; script as a shell script:
;;
;;   bash ./nic-custom.el

;; Doing that makes this script the source of all knowledge. Put all
;; local hacks here or use packages.

;;; Code:

(defconst nic-custom-bootstrap
  (list '(load-file
          (setq custom-file
           (concat
            (file-name-directory
             (or (buffer-file-name)
                 load-file-name))
            "nic-custom.el"))))
  "The lisp that will be used for the init.el.")

(defun nic-custom-self-install ()
  "Self install this code into init.el"
  (interactive)
  (with-temp-buffer
    (let ((fmt-obj
           (format
            ";; Init file installed by niccustom.el

%s
;; End init file"
            (pp-to-string
             (car nic-custom-bootstrap)))))
      (insert fmt-obj))
    (write-file (or user-init-file "~/.emacs.d/init.el"))))

;; I really hate brief-mode's keybinding
(fmakunbound 'brief-mode)

;; No need for any other xml mode
(fset 'xml-mode 'nxml-mode)


(defun ispell-lookup (word)
  "Lookup a word in the ispell dictionary.

Just uses the minibuffer to read the word."
  (interactive "Mword: ")
  (with-current-buffer (get-buffer-create "* ispell-lookup *")
    (erase-buffer)
    (insert word)
    (goto-char (point-min))
    (switch-to-buffer-other-window (current-buffer))
    (ispell-word)))

(defadvice kill-ring-save (before slick-copy activate compile)
  "When called interactively with no active region, copy a single line instead."
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (message "Copied line")
     (list (line-beginning-position)
           (line-beginning-position 2)))))

(defadvice kill-region (before slick-cut activate compile)
  "When called interactively with no active region, kill a single line instead."
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))

(defadvice server-start
    (around nic-custome-detect-existing first activate compile)
  "Detect if the Emacs server is already running.

If it's running then don't start it."
  (unless (file-exists-p
           (concat
            "/tmp/emacs1000/"
            server-name))
    ad-do-it))

;; Otto work for groovy, Wolf's gradle code uses 4 wide tabs
(add-to-list 'auto-mode-alist '("\\.gradle" . groovy-mode))
(add-hook 'groovy-mode-hook (lambda () (setq tab-width 4)))

(add-hook 'js-mode-hook (lambda () (linum-mode 1)(flyspell-prog-mode)))
(add-hook
 'css-mode-hook
 (lambda () (linum-mode 1)(flyspell-prog-mode)(rainbow-mode 1)))
(add-hook 'nxml-mode-hook (lambda () (linum-mode 1)(flyspell-prog-mode)))

(add-to-list
 'auto-mode-alist
 '("\\.\\(xml\\|xslt\\|xsd\\|rng\\|xhtml\\|html\\)\\'" . nxml-mode))
(add-to-list 'auto-mode-alist '("\\.yml" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.pp" . conf-mode))
(add-to-list 'auto-mode-alist '("\\.rake" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.[^.]+rc" . shell-script-mode))
(add-to-list 'auto-mode-alist '("\\.\\(as\\|asant\\)\\'" . java-mode))
(add-to-list 'auto-mode-alist '("\\(Rakefile\\|Capfile\\)" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.md" . markdown-mode))

;; Use this for stuff which is in the package system and can't be
;; started any other way
(add-hook 'after-init-hook 'cycbuf-init)

;; Some personal keys for things that don't have them
(global-set-key
 "\M-?"
 (lambda ()
   (interactive)
   (call-interactively 'magit-status)))

;;(global-set-key "\M-P" 'mdmua-pull)

(global-set-key (kbd "C-'")     'shell-switcher-switch-buffer)
(global-set-key (kbd "C-x 4 '") 'shell-switcher-switch-buffer-other-window)
(global-set-key (kbd "C-M-'")   'shell-switcher-new-shell)

(require 'uniquify)
(require 'dired-x)
(provide 'nic-custom)