(setq cal-html-directory "~/Documents/Diary"
      view-diary-entries-initially t
      mark-diary-entries-in-calendar t
      number-of-diary-entries 7
      calendar-date-style (quote iso)
      calendar-week-start-day 1)
(setq calendar-intermonth-text
      (quote
       (propertize
        (format "%2d"
                (car
                 (calendar-iso-from-absolute
                  (calendar-absolute-from-gregorian
                   (list month day year)))))
        (quote font-lock-face)
        (quote font-lock-function-name-face))))
(when (string= (system-name) "EVG02667NB")
  (unless (file-directory-p (expand-file-name "~/Documents"))
    (let ((docs-path (getenv "DOCS_PATH")))
      (setq cal-html-directory (concat docs-path "\\Diary")
            diary-file (concat docs-path "\\Diary\\diary")
            timeclock-file (concat docs-path "\\Diary\\timelog")))))