talexander/organic
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Handle orgifying text in regular link path and raw-link.

Browse Source
This commit is contained in:
Tom Alexander
2023-10-06 18:30:08 -04:00
parent 51748afd41
commit d126488891
10 changed files with 151 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/compare/diff.rs
View File

@@ -4,8 +4,10 @@ use std::collections::BTreeSet;
use std::collections::HashSet;
use super::compare_field::compare_identity;
use super::compare_field::compare_noop;
use super::compare_field::compare_property_always_nil;
use super::compare_field::compare_property_quoted_string;
use super::compare_field::compare_property_quoted_string_owned;
use super::compare_field::compare_property_unquoted_atom;
use super::elisp_fact::ElispFact;
use super::elisp_fact::GetElispFact;
use super::sexp::unquote;
@@ -2783,28 +2785,28 @@ fn compare_regular_link<'b, 's>(
),
(
EmacsField::Required(":path"),
|r| Some(r.path),
compare_property_quoted_string
|r| Some(r.get_path()),
compare_property_quoted_string_owned
),
(
EmacsField::Required(":format"),
compare_identity,
compare_noop
|_| Some("bracket"),
compare_property_unquoted_atom
),
(
EmacsField::Required(":raw-link"),
|r| Some(r.raw_link),
compare_property_quoted_string
|r| Some(r.get_raw_link()),
compare_property_quoted_string_owned
),
(
EmacsField::Required(":application"),
compare_identity,
compare_noop
compare_property_always_nil
),
(
EmacsField::Required(":search-option"),
compare_identity,
compare_noop
compare_property_always_nil
)
)? {
this_status = new_status;