blob: f5b90799f7c1b7034b5cad4400dde91bcd8edd11 (
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
|
(defun denote-sequence-region ()
"Call `denote-sequence' and insert therein the text of the active region.
Note that, currently, `denote-save-buffers' and
`denote-kill-buffers' are NOT respected. The buffer is not
saved or killed at the end of `denote-sequence-region'."
(declare (interactive-only t))
(interactive)
(if-let* (((region-active-p))
;; We capture the text early, otherwise it will be empty
;; the moment `insert' is called.
(text (buffer-substring-no-properties (region-beginning) (region-end))))
(progn
(let ((denote-ignore-region-in-denote-command t)
;; FIXME: Find a way to insert the region before the buffer is
;; saved/killed by the creation command.
(denote-save-buffers nil)
(denote-kill-buffers nil))
(call-interactively 'denote-sequence))
(push-mark (point))
(insert text)
(run-hook-with-args 'denote-region-after-new-note-functions (mark) (point)))
(call-interactively 'denote-sequence)))
(provide 'bard-writing)
|
