@@ -5,7 +5,7 @@
(defn cycle-priority-state
[content]
- (let [priority-reg #"\[#(ABC){1}\]\s{1}"
+ (let [priority-reg #"\[#([ABC]{1})\]\s{1}"
priority (last (util/safe-re-find priority-reg content))
next-priority (case priority
"A" "B"