From 8bedff5f5717a3dccc7bf0cc6fd3399116d0a9a1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 1 Apr 2021 16:40:31 -0500
Subject: Add comments

---
 lisp/acdw.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/acdw.el b/lisp/acdw.el
index e1d4b48..6409f89 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -21,12 +21,14 @@
 
 ;;; Utilities
 
+;;;; Determine the system I'm on
 (defconst acdw/system (pcase system-type
                         ('gnu/linux :home)
                         ((or 'msdos 'windows-nt) :work)
                         (_ :other))
   "Which system is currently being used.")
 
+;;;; Run commands only when unfocused
 (defun acdw/when-unfocused (func &rest args)
   "Call FUNC, with ARGS, iff all Emacs frames are out of focus.
 
@@ -34,6 +36,7 @@ Ready for use with `after-focus-change-function'."
   (when (seq-every-p #'null (mapcar #'frame-focus-state (frame-list)))
     (apply func args)))
 
+;;;; Run commands at sunrise and sunset
 (defun acdw/sunrise-sunset (sunrise-command sunset-command)
   "Run commands at sunrise and sunset."
   (let* ((times-regex (rx (* nonl)
-- 
cgit 1.4.1-21-gabe81