(defcustom jensen-c-styles-default t
  "*Should the jensen c-style be default"
  :group 'start
  :type 'boolean)
(defun setup-jensen-c-styles (&optional make-default)
  "generate the jensen-c-styles"
  (if (not (assoc "jensen++" c-style-alist))
      () ;;; skip
    (let ((style-name "jensen++")
	  (style '("stroustrup" (c-basic-offset . 2))))
      (c-add-style style-name style))
    (let ((style-name "jensenJ")
          (style '("java" (c-basic-offset . 2))))
      (c-add-style style-name style))
    (if jensen-c-styles-default
	(customize-set-variable 
	 'c-default-style
         (append
          '((c-mode . "jensen++") 
            (c++-mode . "jensen++")
            (java-mode . "jensenJ"))
          c-default-style)))))

(eval-after-load
    "cc-mode"
 '(setup-jensen-c-styles t))