aboutsummaryrefslogtreecommitdiff
path: root/pearl.el
diff options
context:
space:
mode:
Diffstat (limited to 'pearl.el')
-rw-r--r--pearl.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/pearl.el b/pearl.el
index 4111557..b0c48ca 100644
--- a/pearl.el
+++ b/pearl.el
@@ -1894,6 +1894,8 @@ identifier prefix -- so an unedited heading is a no-op on title sync)."
display-title (plist-get issue :identifier)))
(label-names (mapconcat (lambda (l) (or (plist-get l :name) ""))
(plist-get issue :labels) ", "))
+ (label-ids (mapconcat (lambda (l) (or (plist-get l :id) ""))
+ (plist-get issue :labels) " "))
(body-org (pearl--md-to-org description)))
(concat
(format "** %s %s %s\n" todo priority heading-title)
@@ -1907,11 +1909,16 @@ identifier prefix -- so an unedited heading is a no-op on title sync)."
(format ":LINEAR-TEAM-NAME: %s\n" (or (plist-get team :name) ""))
(format ":LINEAR-PROJECT-ID: %s\n" (or (plist-get project :id) ""))
(format ":LINEAR-PROJECT-NAME: %s\n" (or (plist-get project :name) ""))
+ (format ":LINEAR-PRIORITY: %s\n" (or (plist-get issue :priority) ""))
(format ":LINEAR-STATE-ID: %s\n" (or (plist-get state :id) ""))
+ (format ":LINEAR-STATE-ID-SYNCED: %s\n" (or (plist-get state :id) ""))
(format ":LINEAR-STATE-NAME: %s\n" (or (plist-get state :name) ""))
(format ":LINEAR-ASSIGNEE-ID: %s\n" (or (plist-get assignee :id) ""))
+ (format ":LINEAR-ASSIGNEE-ID-SYNCED: %s\n" (or (plist-get assignee :id) ""))
(format ":LINEAR-ASSIGNEE-NAME: %s\n" (or (plist-get assignee :name) ""))
(format ":LINEAR-LABELS: [%s]\n" label-names)
+ (format ":LINEAR-LABEL-IDS: %s\n" label-ids)
+ (format ":LINEAR-LABEL-IDS-SYNCED: %s\n" label-ids)
(format ":LINEAR-DESC-SHA256: %s\n" (secure-hash 'sha256 description))
(format ":LINEAR-DESC-ORG-SHA256: %s\n" (secure-hash 'sha256 (string-trim body-org)))
(format ":LINEAR-DESC-UPDATED-AT: %s\n" (or (plist-get issue :updated-at) ""))