uhhhhhhhh... stuff?

1 files changed, 22 insertions, 1 deletions

@@ -30,6 +30,27 @@ Ready for use with `after-focus-change-function'."
   (when (seq-every-p #'null (mapcar #'frame-focus-state (frame-list)))
     (apply func args)))
 
+(defun acdw/sunrise-sunset (sunrise-command sunset-command)
+  "Run commands at sunrise and sunset."
+   (let* ((times-regex (rx (* nonl)
+                          (: (any ?s ?S) "unrise") " "
+                          (group (repeat 1 2 digit) ":"
+                                 (repeat 1 2 digit)
+                                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
+                          (* nonl)
+                          (: (any ?s ?S) "unset") " "
+                          (group (repeat 1 2 digit) ":"
+                                 (repeat 1 2 digit)
+                                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
+                          (* nonl)))
+         (ss (sunrise-sunset))
+         (_m (string-match times-regex ss))
+         (sunrise-time (match-string 1 ss))
+         (sunset-time (match-string 2 ss)))
+    (run-at-time sunrise-time (* 60 60 24) sunrise-command)
+    (run-at-time sunset-time (* 60 60 24) sunset-command)
+    (run-at-time "12:00am" (* 60 60 24) sunset-command)))
+
 ;;; Directories (think `no-littering')
 
 (defvar acdw/dir (expand-file-name
@@ -43,7 +64,7 @@ directory."
   (let ((f (expand-file-name (convert-standard-filename file)
                              acdw/dir)))
     (when make-directory
-      (make-directory (file-name-directory file) 'parents))
+      (make-directory (file-name-directory f) 'parents))
     f))
 
 ;;; Settings