8 lines
296 B
EmacsLisp
8 lines
296 B
EmacsLisp
(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))))
|