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