diff options
Diffstat (limited to 'lisp/acdw.el')
| -rw-r--r-- | lisp/acdw.el | 3 |
1 files changed, 1 insertions, 2 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 0f78c79..95e1147 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -54,7 +54,6 @@ ARGS." | |||
| 54 | (when msg | 54 | (when msg |
| 55 | (message "%s" msg))))) | 55 | (message "%s" msg))))) |
| 56 | 56 | ||
| 57 | |||
| 58 | (defun +sunrise-sunset (sunrise-command sunset-command) | 57 | (defun +sunrise-sunset (sunrise-command sunset-command) |
| 59 | "Run SUNRISE-COMMAND at sunrise, and SUNSET-COMMAND at sunset." | 58 | "Run SUNRISE-COMMAND at sunrise, and SUNSET-COMMAND at sunset." |
| 60 | (let* ((times-regex (rx (* nonl) | 59 | (let* ((times-regex (rx (* nonl) |
| @@ -74,7 +73,7 @@ ARGS." | |||
| 74 | (sunset-time (match-string 2 ss))) | 73 | (sunset-time (match-string 2 ss))) |
| 75 | (run-at-time sunrise-time (* 60 60 24) sunrise-command) | 74 | (run-at-time sunrise-time (* 60 60 24) sunrise-command) |
| 76 | (run-at-time sunset-time (* 60 60 24) sunset-command) | 75 | (run-at-time sunset-time (* 60 60 24) sunset-command) |
| 77 | (run-at-time "12:00am" (* 60 60 24) sunset-command)))) | 76 | (run-at-time "12:00am" (* 60 60 24) sunset-command))) |
| 78 | 77 | ||
| 79 | (provide 'acdw) | 78 | (provide 'acdw) |
| 80 | ;;; acdw.el ends here | 79 | ;;; acdw.el ends here |