(setq load-path (append load-path (list "~briank/elisp"))) (autoload 'python-mode "python-mode" "Python Mode." t) (add-to-list 'auto-mode-alist '("\\.py\\'\\|\\.rfs\\'\\|\\.pyw\\'" . python-mode)) (add-to-list 'interpreter-mode-alist '("python" . python-mode)) (add-hook 'python-mode-hook (lambda () (set (make-variable-buffer-local 'beginning-of-defun-function) 'py-beginning-of-def-or-class) (setq outline-regexp "def\\|class "))) ;; (autoload 'php-mode "php-mode" "mode for editing php files" t) ;; (setq auto-mode-alist ;; (cons '("\\.php[34]?\\'\\|\\.phtml\\." . php-mode) auto-mode-alist)) ;; (autoload 'css-mode "css-mode" "mode for editing css files" t) ;; (setq auto-mode-alist ;; (cons '("\\.css[34]?\\'\\|\\.cs\\." . css-mode) auto-mode-alist)) ;; (load "~/elisp/nxml-mode-20041004/rng-auto.el") ;; (setq auto-mode-alist ;; (cons '("\\.\\(xml\\|xsl\\|rng\\|ircp\\|xhtml\\)\\'" . nxml-mode) ;; auto-mode-alist)) ;; (autoload 'javascript-mode "javascript" nil t) ;; (add-to-list 'auto-mode-alist '("\\.js\\'" . javascript-mode)) ;; (autoload 'js2-mode "js2" nil t) ;; (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)) (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. '(inhibit-startup-screen t) '(load-home-init-file t t)) (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. ) ;;(require 'psvn) ;;(global-font-lock-mode 1) ;; on save stuff: (defun untabify-buffer () "Untabify current buffer" (interactive) (untabify (point-min) (point-max))) (defun progmodes-hooks () "Hooks for programming modes" (yas/minor-mode-on) (add-hook 'before-save-hook 'progmodes-write-hooks)) (defun progmodes-write-hooks () "Hooks which run on file write for programming modes" (prog1 nil (set-buffer-file-coding-system 'utf-8-unix) (untabify-buffer) (copyright-update) (maybe-delete-trailing-whitespace))) (defun delete-trailing-whitespacep () "Should we delete trailing whitespace when saving this file?" (save-excursion (goto-char (point-min)) (ignore-errors (next-line 25)) (let ((pos (point))) (goto-char (point-min)) (and (re-search-forward (concat "@author +" user-full-name) pos t) t)))) (defun maybe-delete-trailing-whitespace () "Delete trailing whitespace if I am the author of this file." (interactive) (and (delete-trailing-whitespacep) (delete-trailing-whitespace))) (add-hook 'php-mode-hook 'progmodes-hooks) (add-hook 'python-mode-hook 'progmodes-hooks) (add-hook 'html-mode-hook 'progmodes-hooks)