diff options
| -rw-r--r-- | pearl.el | 25 | ||||
| -rw-r--r-- | tests/test-pearl-labels.el | 14 |
2 files changed, 34 insertions, 5 deletions
@@ -287,6 +287,17 @@ Set to nil to omit the tag." :type 'boolean :group 'pearl) +(defcustom pearl-assignee-tag-short nil + "When non-nil, shorten the assignee @-tag to the first name only. +The default slugs Linear's full @-mention handle (e.g. `first.last' becomes +=:@first_last:'). With this on, only the first segment is kept -- the part +before the first `.' or space -- so the tag becomes =:@first:'. A single-token +handle like `alice' is unchanged. Shorter and more scannable, but first names +can collide across teammates, so it is off by default. Opt in when brevity +matters more than disambiguation." + :type 'boolean + :group 'pearl) + (defconst pearl--title-case-minor-words '("a" "an" "and" "as" "at" "but" "by" "for" "if" "in" "nor" "of" "on" "or" "per" "the" "to" "vs" "via") @@ -2507,12 +2518,16 @@ e.g. \"nerses\") and falls back to `:name' -- so a teammate whose `:name' is a full email gets @nerses, not @nerses_deepsat_com. The slug reuses `pearl--label-name-to-tag'; the `@' prefix keeps the assignee tag in its own namespace, distinct from label tags, so the label-edit path can preserve it (see -`pearl--set-heading-label-tags'). Title-sync-safe: Org strips tags before the -heading title is hashed." +`pearl--set-heading-label-tags'). With `pearl-assignee-tag-short' on, only the +first segment of the handle is kept (see that variable). Title-sync-safe: Org +strips tags before the heading title is hashed." (when (and pearl-show-assignee assignee) - (let ((slug (pearl--label-name-to-tag - (or (plist-get assignee :display-name) - (plist-get assignee :name))))) + (let* ((handle (or (plist-get assignee :display-name) + (plist-get assignee :name))) + (handle (if (and pearl-assignee-tag-short handle) + (car (split-string handle "[.[:space:]]+" t)) + handle)) + (slug (pearl--label-name-to-tag handle))) (unless (string-empty-p slug) (concat "@" slug))))) (defun pearl--derive-todo-line (states) diff --git a/tests/test-pearl-labels.el b/tests/test-pearl-labels.el index 94211b1..febb906 100644 --- a/tests/test-pearl-labels.el +++ b/tests/test-pearl-labels.el @@ -95,6 +95,20 @@ field -- which is the full email for teammates who never set a display name." "With no displayName, the tag slugs the name." (should (string= "@eric_bell" (pearl--assignee-tag '(:name "Eric Bell"))))) +(ert-deftest test-pearl-assignee-tag-short-keeps-first-segment () + "With `pearl-assignee-tag-short' on, only the first name (before the first dot +or space) is kept, so a firstname.lastname handle shortens to just the first." + (let ((pearl-assignee-tag-short t)) + (should (string= "@vrezh" (pearl--assignee-tag '(:display-name "vrezh.mikayelyan")))) + (should (string= "@eric" (pearl--assignee-tag '(:name "Eric Bell")))) + ;; A single-token handle is unchanged. + (should (string= "@nerses" (pearl--assignee-tag '(:display-name "nerses")))))) + +(ert-deftest test-pearl-assignee-tag-short-off-keeps-full-handle () + "Off by default: the full slugified handle is kept." + (should (string= "@vrezh_mikayelyan" + (pearl--assignee-tag '(:display-name "vrezh.mikayelyan"))))) + (ert-deftest test-pearl-normalize-user-captures-display-name () "The normalized user carries Linear's displayName so the @-tag can use the short handle while the drawer keeps the fuller name." |