2019-11-17 10:38:17 +01:00
|
|
|
(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)
|
2019-11-17 10:29:13 +01:00
|
|
|
|
|
|
|
|
(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))))
|
2019-11-16 10:38:50 +01:00
|
|
|
|
2019-11-17 11:15:18 +01:00
|
|
|
(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")))))
|
2019-11-16 10:38:50 +01:00
|
|
|
(provide 'calendar-settings)
|
