lirons tildelog

Skipping weekends when scheduling items with org-mode

I am using the agenda feature of org-mode quite heavily to plan the things I need to do. This includes recurring items that I need to do every day or every other day. For these, I use the +1d or +2d syntax respectively. However, this sometimes causes items to being scheduled on Saturday or Sunday, which is something I don’t want for things I do at the office.

Interestingly, I could not find anything about scheduling items only from Mon-Fri, besides non-solutions such as “create 5 items for each day and schedule them weekly”.

So I had to come up with my own solution:

```lisp (defun my-org-hook-for-repeat-not-on-weekend() (when (org-property-values “NO_WEEKEND”) ;; Get time from item at POINT (let* ((scheduled-time (org-get-scheduled-time (point))) ;; Convert to timestamp - required for the next step (seconds-timestamp (time-to-seconds scheduled-time)) ;; Convert to decoded time - required to find out the weekday (decoded-time (decode-time seconds-timestamp)) ;; Get weekday (weekday (decoded-time-weekday decoded-time)))

  (when (> weekday 5) ;; Saturday -> move to Sunday
    (setq decoded-time
          (decoded-time-add decoded-time (make-decoded-time :day 2))))

  (when (> weekday 6) ;; Sunday - move to Monday
    (setq decoded-time
          (decoded-time-add decoded-time (make-decoded-time :day 1))))

  (let ((encoded-time (encode-time decoded-time)))
        (org-schedule nil encoded-time))

))

)

(add-hook ‘org-todo-repeat-hook 'my-org-hook-for-repeat-not-on-weekend) ```

This code snippet adds a hook, which is executed whenever a repeated item is re-scheduled. If it has the property NO_WEEKEND, it checks the scheduled date and moves it appropriately. Feel free to copy it under the GPLv3 if this is useful for you.

tags: emacs