fixed whitespace mode by default; includes lines-tails for lines longer than 80 characters

This commit is contained in:
Kienan Stewart 2012-11-21 19:36:15 -05:00
parent 36b9aa12d1
commit e2c2b2cb14
1 changed files with 12 additions and 18 deletions

30
init.el
View File

@ -4,6 +4,16 @@
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
;; WhiteSpace hilighting
(require 'whitespace)
(setq whitespace-style (quote (face trailing tabs tab-mark empty lines-tail)))
(setq-default whitespace-line-column 80)
(global-whitespace-mode 1)
;; C, use k&r style by default (naev)
(setq-default c-default-style "k&r"
c-basic-offset 3)
;; Python!
;; Prevent ropemacs from overriding emacs shortcuts
;;(setq ropemacs-enable-shortcuts nil)
@ -22,32 +32,16 @@
;;(pymacs-load "ropemacs" "rope-")
;; PHP and Drupal-Modes
(require 'whitespace)
(autoload 'whitespace-mode "whitespace" "Toggle whitespace visualization." t)
(autoload 'whitespace-toggle-options "whitespace" "Toggle local 'whitespace-mode' options." t)
(add-to-list 'load-path "~/.emacs.d/")
(require 'php-mode)
(require 'drupal-mode)
(add-to-list 'auto-mode-alist '("\\.\\(module\\|test\\|install\\|theme\\)$" . drupal-mode))
(add-to-list 'auto-mode-alist '("\\.\\(php\\|inc\\)$" . php-mode))
(add-to-list 'auto-mode-alist '("\\.info" . conf-windows-mode))
(defun my-php-hook-function ()
(set (make-local-variable 'compile-command) (format "phpcs --report=emacs --standard=PEAR %s" (buffer-file-name))))
(set (make-local-variable 'compile-command) (format "phpcs --report=emacs --standard=PEAR %s" (buffer-file-name))))
(add-hook 'php-mode-hook 'my-php-hook-function)
(defun my-drupal-hook-function ()
(set (make-local-variable 'compile-command) (format "phpcs --report=emacs --extensions=php,module,inc,install,test,profile,theme --standard=Drupal %s" (buffer-file-name))))
(set (make-local-variable 'compile-command) (format "phpcs --report=emacs --extensions=php,module,inc,install,test,profile,theme --standard=Drupal %s" (buffer-file-name))))
(add-hook 'drupal-mode-hook 'my-drupal-hook-function)
(setq whitespace-style '(trailing tabs tab-mark face))
(defface extra-whitespace-face
'((t (:background "pale yellow")))
"Used for tabs and such.")
(defvar my-extra-keywords
'(("\t" . 'extra-whitespace-face)))
;; Draw tabs with the same color as trailing whitespace
(add-hook 'font-lock-mode-hook
(lambda ()
(font-lock-add-keywords
nil
'(("\t" 0 'trailing-whitespace prepend)))))
(autoload 'js2-mode "js2-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))