summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-06-05 17:13:55 -0400
committerKyle Meyer <kyle@kyleam.com>2021-06-07 00:12:06 -0400
commitdf741cd4254c274903dac9390d2b158558e6efa6 (patch)
treeb31fb392a334850e55ed709d5a914133a6aeddb7 /tests
parentf8fed3d666fb9b514a7d33bd869b64446cf2f1ed (diff)
downloadpiem-df741cd4254c274903dac9390d2b158558e6efa6.tar.gz
piem-lei-query-thread: Omit main part of subject if shared
In addition to suppressing identical subjects (after stripping "re:"), public-inbox's web interface will compare the current line's subject with the previous line's, and cut off the shared tail: [PATCH] Add basic integration for Rmail ` <suppressed completely> ` [PATCH v2] " <-- here ` <suppressed completely> I think the above is helpful. However, in some cases, I find the presentation more confusing than helpful: [PATCH 0/3] notmuch: Improve handling of attached patches ` [PATCH 1/3] piem-notmuch--with-current-message: Declare debug and indent specs ` [PATCH 2/3] piem-notmuch-am-ready-mbox: Improve handling of attachments ` <suppressed completely> ` [PATCH v2 0/3] notmuch: Improve handling of attached patches ` [PATCH v2 1/3] piem-notmuch--with-current-message: Declare debug and indent specs ` [PATCH v2 2/3] piem-notmuch-am-ready-mbox: Improve handling of attachments ` [PATCH v2 3/3] gnus, notmuch: Absorb now-shared bits into patch attachment helper ` [PATCH " It takes me a second to figure out what the omitted bits in the last line's subject are. I'm not sure, but I think the subject truncation that I find clear is where the omitted text is the main subject after a bracketed tag (i.e. "[tag] main"), not more or less. Teach piem-lei-query-thread to split the subject into a "prefix" (some number of "[tag]" items) and a "main" part (everything else), and elide a line's main part if it matches the previous line's. In the above example, the last line would be ` [PATCH 3/3] … Message-Id: <20210605211402.20304-12-kyle@kyleam.com>
Diffstat (limited to 'tests')
-rw-r--r--tests/piem-lei-tests.el42
1 files changed, 42 insertions, 0 deletions
diff --git a/tests/piem-lei-tests.el b/tests/piem-lei-tests.el
index e20c62f..71dc109 100644
--- a/tests/piem-lei-tests.el
+++ b/tests/piem-lei-tests.el
@@ -70,5 +70,47 @@
(should-not (piem-lei-query--has-descendant m3 m2))
(should-not (piem-lei-query--has-descendant m3 m1))))
+(ert-deftest piem-lei-query--elide-subject:keep-original ()
+ (should (equal "ghi jlk"
+ (piem-lei-query--elide-subject
+ nil
+ "ghi jlk")))
+ (should (equal "ghi jlk"
+ (piem-lei-query--elide-subject
+ "abc def"
+ "ghi jlk")))
+ (should (equal "abc def"
+ (piem-lei-query--elide-subject
+ "[PATCH] abc def"
+ "abc def")))
+ (should (equal "abc def"
+ (piem-lei-query--elide-subject
+ "[bug#00000] [PATCH] abc def"
+ "abc def")))
+ (should (equal "abc def"
+ (piem-lei-query--elide-subject
+ "[PATCH] abc def"
+ "abc def")))
+ (should (equal "[bug#00000] [PATCH v2] abc"
+ (piem-lei-query--elide-subject
+ "[bug#00000] [PATCH] abc"
+ "[bug#00000] [PATCH v2] abc")))
+ (should (equal "[bug#00000] [PATCH v2] ghi jlk mno"
+ (piem-lei-query--elide-subject
+ "[bug#00000] [PATCH] abc def"
+ "[bug#00000] [PATCH v2] ghi jlk mno"))))
+
+(defvar piem-lei-tests-elide-string (if (char-displayable-p ?…) "…" "..."))
+
+(ert-deftest piem-lei-query--elide-subject:elide ()
+ (should (equal (concat "[PATCH v2] " piem-lei-tests-elide-string)
+ (piem-lei-query--elide-subject
+ "[PATCH] abc def"
+ "[PATCH v2] abc def")))
+ (should (equal (concat "[bug#00000] [PATCH v2] " piem-lei-tests-elide-string)
+ (piem-lei-query--elide-subject
+ "[bug#00000] [PATCH] abc def"
+ "[bug#00000] [PATCH v2] abc def"))))
+
(provide 'piem-lei-tests)
;;; piem-lei-tests.el ends here