Do not allow time range timestamps with REST on the first TIME.

This commit is contained in:
Tom Alexander
2023-10-02 17:47:09 -04:00
parent 890cd3e4fd
commit 512432c5f0
4 changed files with 50 additions and 22 deletions

View File

@@ -2155,6 +2155,7 @@ fn compare_timestamp<'b, 's>(
let range_type = get_property_unquoted_atom(emacs, ":range-type")?;
match (range_type, &rust.range_type) {
(Some("daterange"), TimestampRangeType::DateRange) => {}
(Some("timerange"), TimestampRangeType::TimeRange) => {}
(None, TimestampRangeType::None) => {}
_ => {
this_status = DiffStatus::Bad;
@@ -2303,7 +2304,7 @@ fn compare_timestamp<'b, 's>(
));
}
// TODO: Compare :hour-start :minute-start :hour-end :minute-end :repeater-type :repeater-value :repeater-unit :warning-type :warning-value :warning-unit
// TODO: Compare :repeater-type :repeater-value :repeater-unit :warning-type :warning-value :warning-unit
//
// :type unquoted atom either diary, active, inactive, active-range, or inactive-range.
// :range-type unquoted atom either nil, daterange