;;;; hooks/c.el
;;; Time-stamp: <2006-07-29 18:37:20 jcgs>

(defvar word-wrap-c nil
  "Whether C mode should word-wrap.")

(defun jcgs-c-mode-hook ()
  "Make C mode word-wrap."
  ;; (font-lock-mode 1)
  (c-set-style "stroustrup")
  (c-set-offset 'inline-open 0)
  (sidebrain-read-todo-from-comments)
  (setq indent-tabs-mode nil
	tab-width 4)
  (if word-wrap-c
      (progn
	(setq fill-column 70)
	(turn-on-auto-fill))))

(add-hook 'c-mode-hook 'jcgs-c-mode-hook)

(if nil
    (progn
      ;; from peterw@ugsolutions.com 19980113
      (require 'cc-mode)
      (c-initialize-cc-mode)

      (setq-default indent-tabs-mode nil)

      (defun my-cc-mode ()
	(c-set-style "stroustrup")
	(c-set-offset 'inline-open 0)
	(setq c-electric-pound-behavior '(alignleft))
	(setq comment-column 70)
	(set-fill-column 96)
	(auto-fill-mode)
	(turn-on-font-lock))

      (add-hook 'c-mode-common-hook 'my-cc-mode)))


;;; end of hooks/c.el