1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
;;; linear-config.el --- Linear.app integration -*- lexical-binding: t; -*-
;; author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;;
;; Layer: 3 (Domain Workflow).
;; Category: D/P.
;; Load shape: eager.
;; Eager reason: none; Linear integration commands, a command-loaded deferral
;; candidate.
;; Top-level side effects: package configuration via use-package.
;; Runtime requires: system-lib.
;; Direct test load: yes.
;;
;; Wires the local pearl checkout (~/code/pearl) into the config,
;; pointed at DeepSat's Linear workspace.
;;
;; Authentication:
;; The Linear personal API key is read from authinfo.gpg, never plaintext.
;; Add an entry like:
;; machine api.linear.app login apikey password lin_api_YOURKEYHERE
;; Generate the key in Linear: Settings -> Security & access -> Personal API
;; keys. The key is loaded lazily on first use, so there is no GPG prompt at
;; startup.
;;
;; The default team is DeepSat's Software Engineering team (the SE-* issues), so
;; new issues land there unless another team is chosen. The synced issues file
;; lives at data/linear.org inside emacs home, next to the calendar-sync output.
;;
;; Keybindings (C-; L prefix):
;; Lists/views: l list p by project f filtered q saved query v view
;; Refresh: g current view r current issue
;; Issue: o open in browser n new D delete at point
;; Edit (C-; L e): a assignee s state p priority b labels c comment
;; Sync: s enable org sync S disable u push issue U push title
;; View: V open current view in Linear
;; Maintenance: t test connection ? check setup k clear cache d debug
;;; Code:
(require 'system-lib) ;; provides cj/auth-source-secret-value
;; Owned by pearl, which loads lazily via :load-path below.
(defvar pearl-api-key)
(defvar pearl-default-team-id)
(defvar pearl-org-file-path)
(declare-function pearl--graphql-request-async "pearl")
(defconst cj/linear-team-id "9fca2cf6-390c-4102-a9ff-f94a4ed823c5"
"Linear team id for DeepSat's Software Engineering team (the SE-* issues).")
(defun cj/linear--ensure-api-key ()
"Load the Linear API key from authinfo.gpg into `pearl-api-key' if unset.
Looks up host \"api.linear.app\". This is a no-op once the key is set, so the
GPG prompt fires at most once per session and only when Linear is actually used."
(unless pearl-api-key
(setq pearl-api-key (cj/auth-source-secret-value "api.linear.app"))))
(defun cj/linear--ensure-key-before (&rest _)
"Advice: load the Linear API key before a GraphQL request runs.
Named (not a lambda) so the advice is idempotent across reloads and removable."
(cj/linear--ensure-api-key))
(defun cj/linear--install-key-advice ()
"Install the lazy API-key loader on every entry point that needs the key.
The GraphQL request funnels all real operations. `pearl-check-setup'
reads `pearl-api-key' directly without making a request, so it needs the
loader too — otherwise it reports \"not set\" on a fresh session before the key
has ever been fetched."
(advice-add 'pearl--graphql-request-async :before
#'cj/linear--ensure-key-before)
(advice-add 'pearl-check-setup :before
#'cj/linear--ensure-key-before))
(use-package pearl
:ensure nil ;; local checkout, not from an archive
:load-path "~/code/pearl"
:defer t
:commands (pearl-list-issues
pearl-list-issues-by-project
pearl-list-issues-filtered
pearl-run-saved-query
pearl-run-view
pearl-refresh-current-view
pearl-refresh-current-issue
pearl-open-current-issue
pearl-open-current-view-in-linear
pearl-new-issue
pearl-delete-current-issue
pearl-add-comment
pearl-set-assignee
pearl-set-state
pearl-set-priority
pearl-set-labels
pearl-sync-current-issue
pearl-sync-current-issue-title
pearl-enable-org-sync
pearl-disable-org-sync
pearl-clear-cache
pearl-toggle-debug
pearl-load-api-key-from-env
pearl-test-connection
pearl-check-setup)
:config
(setq pearl-default-team-id cj/linear-team-id)
;; Keep the synced org file inside emacs home, next to the calendar-sync
;; output (gcal.org / pcal.org / dcal.org). Without this it falls back to
;; `org-directory'/gtd/linear.org and silently creates a stray ~/org tree.
(setq pearl-org-file-path
(expand-file-name "data/linear.org" user-emacs-directory))
;; Load the key lazily before any operation that reads it — both the GraphQL
;; request and the check-setup diagnostic. Retries if the key was added to
;; authinfo after a first (failed) attempt this session.
(cj/linear--install-key-advice))
;; ------------------------------ Keybindings ----------------------------------
(defvar cj/linear-edit-keymap (make-sparse-keymap)
"Keymap for editing the Linear issue at point, under C-; L e.")
(defvar cj/linear-keymap (make-sparse-keymap)
"Keymap for Linear commands under C-; L.")
(global-set-key (kbd "C-; L") cj/linear-keymap)
;; Lists and views.
(define-key cj/linear-keymap (kbd "l") #'pearl-list-issues)
(define-key cj/linear-keymap (kbd "p") #'pearl-list-issues-by-project)
(define-key cj/linear-keymap (kbd "f") #'pearl-list-issues-filtered)
(define-key cj/linear-keymap (kbd "q") #'pearl-run-saved-query)
(define-key cj/linear-keymap (kbd "v") #'pearl-run-view)
;; Refresh.
(define-key cj/linear-keymap (kbd "g") #'pearl-refresh-current-view)
(define-key cj/linear-keymap (kbd "r") #'pearl-refresh-current-issue)
;; Issue actions.
(define-key cj/linear-keymap (kbd "o") #'pearl-open-current-issue)
(define-key cj/linear-keymap (kbd "V") #'pearl-open-current-view-in-linear)
(define-key cj/linear-keymap (kbd "n") #'pearl-new-issue)
(define-key cj/linear-keymap (kbd "D") #'pearl-delete-current-issue)
;; Sync.
(define-key cj/linear-keymap (kbd "s") #'pearl-enable-org-sync)
(define-key cj/linear-keymap (kbd "S") #'pearl-disable-org-sync)
(define-key cj/linear-keymap (kbd "u") #'pearl-sync-current-issue)
(define-key cj/linear-keymap (kbd "U") #'pearl-sync-current-issue-title)
;; Maintenance.
(define-key cj/linear-keymap (kbd "t") #'pearl-test-connection)
(define-key cj/linear-keymap (kbd "?") #'pearl-check-setup)
(define-key cj/linear-keymap (kbd "k") #'pearl-clear-cache)
(define-key cj/linear-keymap (kbd "d") #'pearl-toggle-debug)
;; Edit-issue sub-prefix.
(define-key cj/linear-keymap (kbd "e") cj/linear-edit-keymap)
(define-key cj/linear-edit-keymap (kbd "a") #'pearl-set-assignee)
(define-key cj/linear-edit-keymap (kbd "s") #'pearl-set-state)
(define-key cj/linear-edit-keymap (kbd "p") #'pearl-set-priority)
(define-key cj/linear-edit-keymap (kbd "b") #'pearl-set-labels)
(define-key cj/linear-edit-keymap (kbd "c") #'pearl-add-comment)
;; Register which-key labels lazily so this module's require doesn't depend on
;; which-key being loaded. Same pattern as the other client modules.
(with-eval-after-load 'which-key
(which-key-add-keymap-based-replacements cj/linear-keymap
"" "linear menu"
"l" "list issues"
"p" "issues by project"
"f" "filtered issues"
"q" "saved query"
"v" "run view"
"g" "refresh view"
"r" "refresh issue"
"o" "open issue in browser"
"V" "open view in linear"
"n" "new issue"
"D" "delete issue"
"s" "enable org sync"
"S" "disable org sync"
"u" "push issue"
"U" "push issue title"
"t" "test connection"
"?" "check setup"
"k" "clear cache"
"d" "toggle debug"
"e" "edit issue")
(which-key-add-keymap-based-replacements cj/linear-edit-keymap
"a" "set assignee"
"s" "set state"
"p" "set priority"
"b" "set labels"
"c" "add comment"))
(provide 'linear-config)
;;; linear-config.el ends here
|
