M README.md => README.md +7 -0
@@ 71,6 71,13 @@ command. This global minor mode by default will block all
block-groups, but this behavior may be changed using
### Relaxed Mode
A "relaxed mode" (disabling all blocking) may be enabled with the
`time-block-relaxed-mode` command. This global minor mode will
disable all block groups (and ignore `time-block-focus-mode`). At
present, this behavior is not configurable.
### Checking if A Group Is Blocked
You may check if a group is currently blocked using the
M time-block.el => time-block.el +18 -2
@@ 2,7 2,7 @@
;; Author: Samuel W. Flint <email@example.com>
;; URL: https://git.sr.ht/~swflint/time-block-command
;; Version: 1.6.1
;; Version: 1.6.2
;; Package-Requires: ((emacs "25.1") (ts "0.1"))
;; Keywords: tools, productivity, convenience
;; SPDX-FileCopyrightText: 2022 Samuel W. Flint <firstname.lastname@example.org>
@@ 97,6 97,13 @@
;; block-groups, but this behavior may be changed using
;;;; Relaxed Mode
;; A "relaxed mode" (disabling all blocking) may be enabled with the
;; `time-block-relaxed-mode' command. This global minor mode will
;; disable all block groups (and ignore `time-block-focus-mode'). At
;; present, this behavior is not configurable.
;;;; Checking if A Group Is Blocked
;; You may check if a group is currently blocked using the
@@ 233,6 240,14 @@ time until a function returns non-nil."
;; Relaxed Mode
"Disable time blocking temporarily."
:lighter " RELAXED")
;; Utility Functions
(defun time-block-confirm-override (block-group prompt)
@@ 263,7 278,8 @@ This obeys `time-block-override-confirmation-functions'."
(defun time-block-group-blocked-p (block-group)
"Is group BLOCK-GROUP currently blocked?"
(unless (or time-block-relaxed-mode
(when-let ((group (cl-rest (assoc block-group time-block-groups)))
(current-day (ts-dow ts-now))