 
 (if (or (getenv "BIVIO_HTTPD_PORT")
 	(file-exists-p "~/bconf")
-        (file-exists-p "~/bconf.d"))
+	(file-exists-p "~/bconf.d"))
     (let
 	;; Turn off tracing which may be on when debugging
 	((res

(defvar shift-width 4
  "*The number of columns idented by shift-right or shift-left")

		   
(defun indent-by-shift (arg)
  "Change column by ARG shift-widths."
  (if (listp arg) (setq arg (car arg)))
  (if (= arg 0)
    nil
    (skip-chars-forward " \t")
    (if (> arg 0)
	; Shift always
      (indent-to-column (* (/ (+ (current-column) (* shift-width arg))
				shift-width) shift-width))
	; Negative shift first find spaces backwards
      (let ((opoint (point)))
	(beginning-of-line)
	(let ((pos (point)))


(add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))

(add-hook 'find-file-hook
	  (lambda ()
	    (if (string-match "/src/biviosoftware/boldchat/" (buffer-file-name))
		(set (make-local-variable 'tab-width) 4))))

(add-hook 'css-mode-hook
	  '(lambda ()
	     (setq css-indent-offset 2)))
