summary refs log tree commit diff stats
path: root/lisp/acdw.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r--lisp/acdw.el3
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