blob: ef3b63f3acc6f47d41497e0539ac74659e8d5f35 (
plain)
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
192
193
194
195
196
197
198
199
200
|
;;; org-capture-config.el --- Org Capture Configuration -*- lexical-binding: t; coding: utf-8; -*-
;; author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;; Customizations related to org-capture and org-refile is here.
;; This includes 'cj/org-webpage-clipper' functionality.
;; To ensure the code below is only loaded after org-mode, all code is wrapped in an
;; eval-after-load function.
;; bookmarklet code:
;; text
;; javascript:location.href='org-protocol://capture?template=L&url=%27+encodeURIComponent(location.href)+%27&title=%27+encodeURIComponent(document.title)+%27&body=%27+encodeURIComponent(window.getSelection())
;; text + selection
;; javascript:location.href='org-protocol://capture?template=p&url=%27+encodeURIComponent(location.href)+%27&title=%27+encodeURIComponent(document.title)+%27&body=%27+encodeURIComponent(window.getSelection())
;;; Code:
(require 'user-constants)
(eval-when-compile (defvar drill-dir))
;; -------------------------- Event Capture Formatting -------------------------
;; Formats event headlines with YY-MM-DD prefix extracted from the scheduled date
(defun cj/org-capture-format-event-headline ()
"Format the event headline with YY-MM-DD prefix from the WHEN timestamp.
This function is called during org-capture finalization to prepend the date
to the event title for better organization in the schedule file."
(when (string= (plist-get org-capture-plist :key) "e")
(save-excursion
(goto-char (point-min))
;; Find the WHEN: line with timestamp
(when (re-search-forward "^WHEN: \\(<[^>]+>\\)" nil t)
(let* ((timestamp (match-string 1))
;; Parse the timestamp to extract date components
(parsed (org-parse-time-string timestamp))
(year (nth 5 parsed))
(month (nth 4 parsed))
(day (nth 3 parsed))
;; Format as YY-MM-DD
(date-prefix (format "%02d-%02d-%02d: "
(mod year 100) month day)))
;; Go back to the headline
(goto-char (point-min))
;; Insert date prefix after the asterisks
(when (looking-at "^\\(\\*+ \\)\\(.*\\)$")
(replace-match (concat "\\1" date-prefix "\\2"))))))))
(defun cj/org-capture-event-content ()
"Get the appropriate content for event capture based on context.
Returns the selected text from either Emacs or browser (via org-protocol)
formatted appropriately for insertion into the capture template."
(cond
;; If called from org-protocol (browser), get the initial from org-store-link-plist
((and (boundp 'org-store-link-plist)
org-store-link-plist
(plist-get org-store-link-plist :initial))
(concat "\n" (plist-get org-store-link-plist :initial)))
;; If there's a selected region in Emacs, use it from capture plist
((and (stringp (plist-get org-capture-plist :initial))
(not (string= (plist-get org-capture-plist :initial) "")))
(concat "\n" (plist-get org-capture-plist :initial)))
;; Otherwise, return empty string
(t "")))
;; ----------------------- Org Capture PDF Active Region -----------------------
;; allows capturing the selected region from within a PDF file.
(defun cj/org-capture-pdf-active-region ()
"Capture the active region of the pdf-view buffer.
Intended to be called within an org capture template."
(let* ((pdf-buf-name (plist-get org-capture-plist :original-buffer))
(pdf-buf (get-buffer pdf-buf-name)))
(if (buffer-live-p pdf-buf)
(with-current-buffer pdf-buf
(car (pdf-view-active-region-text)))
(user-error "Buffer %S not alive" pdf-buf-name))))
;; ----------------------- Org Drill Capture Helpers -----------------------
(defun cj/drill-source-link ()
"Generate appropriate source link based on capture context."
(cond
;; org-protocol capture (bookmarklet from web)
((org-capture-get :link)
(format "Source: [[%s][%s]]"
(org-capture-get :link)
(org-capture-get :description)))
;; PDF capture
((with-current-buffer (org-capture-get :original-buffer)
(derived-mode-p 'pdf-view-mode))
(format "Source: [[%s][%s]]"
(org-capture-get :annotation)
(buffer-name (org-capture-get :original-buffer))))
;; EPUB or other
(t
(format "Source: [[%s][%s]]"
(or (org-capture-get :link) "")
(buffer-name (org-capture-get :original-buffer))))))
(defun cj/drill-answer-content ()
"Get answer content, using PDF active region for PDF captures."
(cond
;; PDF capture - use PDF active region
((and (org-capture-get :original-buffer)
(with-current-buffer (org-capture-get :original-buffer)
(derived-mode-p 'pdf-view-mode)))
(cj/org-capture-pdf-active-region))
;; org-protocol capture - initial content is in a plist property
((plist-get org-store-link-plist :initial)
(plist-get org-store-link-plist :initial))
;; Regular capture with %i expansion
(t
(or (org-capture-get :initial) ""))))
;; --------------------------- Org-Capture Templates ---------------------------
;; you can bring up the org capture menu with C-c c
(use-package org-protocol
:ensure nil ;; built-in
:defer .5
:after org
:config
;; ORG-CAPTURE TEMPLATES
(setq org-protocol-default-template-key "L")
(setq org-capture-templates
'(("t" "Task" entry (file+headline inbox-file "Inbox")
"* TODO %?" :prepend t)
("a" "Appointment" entry (file gcal-file)
"* %?\n:PROPERTIES:\n:calendar-id:craigmartinjennings@gmail.com\n:END:\n:org-gcal:\n%^T--%^T\n:END:\n\n"
:jump-to-captured t)
;; trialing the use gcal appointments instead of local events
;; ("e" "Event" entry (file+headline schedule-file "Scheduled Events")
;; "* %?%:description
;; SCHEDULED: %^t%(cj/org-capture-event-content)
;; Captured On: %U"
;; :prepend t
;; :prepare-finalize cj/org-capture-format-event-headline)
("E" "Epub Text" entry (file+headline inbox-file "Inbox")
"* %?
#+BEGIN_QUOTE\n %i\n#+END_QUOTE
Source: [[%:link][%(buffer-name (org-capture-get :original-buffer))]]
Captured On: %U" :prepend t)
;; requires cj/org-capture-pdf-active-region function defined above
("P" "PDF Text" entry (file+headline inbox-file "Inbox")
"* %?
#+BEGIN_QUOTE\n%(cj/org-capture-pdf-active-region)\n#+END_QUOTE
Source:[[%L][%(buffer-name (org-capture-get :original-buffer))]]
Captured On: %U" :prepend t)
("p" "Link with Selection" entry (file+headline inbox-file "Inbox")
"* %?%:description
#+BEGIN_QUOTE\n%i\n#+END_QUOTE
[[%:link][%:description]]
Captured On: %U\n" :prepend t :immediate-finish t)
("L" "Link" entry (file+headline inbox-file "Inbox")
"* %?%:description
[[%:link][%:description]]\nCaptured On: %U" :prepend t :immediate-finish t)
("m" "Mu4e Email" entry (file+headline inbox-file "Inbox")
"* TODO %?
%(if (string= \"%i\" \"\") \"\" \"\n#+BEGIN_QUOTE\n%i\n#+END_QUOTE\")
[[%:link][%:description]]
Captured On: %U"
:prepend t)
("d" "Drill Question" entry
(file (lambda ()
(let ((files (directory-files drill-dir nil "^[^.].*\\.org$")))
(expand-file-name
(completing-read "Choose file: " files)
drill-dir))))
"* Item :drill:\n%?\n** Answer\n%i\nSource: [[%:link][%:description]]\nCaptured On: %U" :prepend t)
("f" "Drill Question - PDF" entry
(file (lambda ()
(let ((files (directory-files drill-dir nil "^[^.].*\\.org$")))
(expand-file-name
(completing-read "Choose file: " files)
drill-dir))))
"* Item :drill:\n%?\n** Answer\n%(cj/org-capture-pdf-active-region)\nSource: [[%L][%(buffer-name (org-capture-get :original-buffer))]]\nCaptured On: %U" :prepend t)
)) ;; end setq
) ;; end use-package org-protocol
;; ---------------------------- Simple Task Capture ----------------------------
;; the simplest way to capture a task. Also a simple way to write this function.
(keymap-global-set "C-T" (lambda () (interactive) (org-capture nil "t")))
(provide 'org-capture-config)
;;; org-capture-config.el ends here.
|
