Commit e341deec authored by Ryan C. Thompson's avatar Ryan C. Thompson

Fix whitespace script

Now it loads el-get to pick up custom indentation rules for el-get forms
parent 1dce7813
#!/bin/sh
SETUP='(progn (defun cleanup-whitespace () (message "Cleaning whitespace %s" (buffer-file-name)) (setq indent-tabs-mode nil require-final-newline t) (untabify (point-min) (point-max)) (indent-region (point-min) (point-max)) (delete-trailing-whitespace (point-min) (point-max)) (save-buffer)) (add-hook (quote find-file-hook) (function cleanup-whitespace)) (add-to-list (quote auto-mode-alist) (quote ("\\.[rR][cC][pP]$" . emacs-lisp-mode))))'
SETUP='(progn (add-to-list (quote load-path) ".") (load "el-get")(defun cleanup-whitespace () (message "Cleaning whitespace %s" (buffer-file-name)) (setq indent-tabs-mode nil require-final-newline t) (untabify (point-min) (point-max)) (indent-region (point-min) (point-max)) (delete-trailing-whitespace (point-min) (point-max)) (save-buffer)) (add-hook (quote find-file-hook) (function cleanup-whitespace)) (add-to-list (quote auto-mode-alist) (quote ("\\.[rR][cC][pP]$" . emacs-lisp-mode))))'
find . -name '*.el' -o -name '*.rcp' | xargs -- emacs -Q -l simple -batch --eval "$SETUP"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment