Emacs Lisp Time Ranges

gistfile1.txt

# How to get time ranges with emacs lisp

```lisp
(defun time-in-range-p (lower time higher)
  (and (time-less-p lower time) (time-less-p time higher)))
(defun hm-to-time (hours minutes)
  (apply 'encode-time 0 minutes hours (subseq (decode-time) 3 6)))
```

Example code:

```
(cond ((time-in-range-p (hm-to-time 7 0) (current-time) (hm-to-time 10 30)) 'breakfast)
      ((time-in-range-p (hm-to-time 10 45) (current-time) (hm-to-time 14 30)) 'lunch)
      ((time-in-range-p (hm-to-time 16 45) (current-time) (hm-to-time 20 00)) 'dinner))
```