(load-file "~/Documents/drive/admin/emacs/daysoff.el")
(if (equal (format-time-string "%a") "Sat")
    (setq workday nil)
  (if (equal (format-time-string "%a") "Sun")
      (setq workday nil)
    (if (member (format-time-string "%Y-%m-%d") daysoff)
	(setq workday nil)
      (setq workday t))))