tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-capture: Small fix to table line capture

Browse source 
* lisp/org-capture.el (org-capture-place-table-line): Handle abort
  table line insertion more gracefully.
* testing/lisp/test-org-capture.el (test-org-capture/abort): Add tests
This commit is contained in:
Nicolas Goaziou 2018-10-23 00:04:37 +02:00
parent aaa3372b8b
commit ad0fce50eb
2 changed files with 22 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org-capture.el
View file

@ -1271,18 +1271,19 @@ may have been stored before."
(t
(goto-char (org-table-end))))
;; Insert text and position point according to template.
(let ((origin (point)))
(unless (bolp) (insert "\n"))
(let ((beg (point))
(end (save-excursion
(insert text)
(point))))
(org-capture-position-for-last-stored 'table-line)
(org-capture-mark-kill-region beg end)
(org-capture-mark-kill-region origin end)
(org-capture-narrow beg end)
(when (or (re-search-backward "%\\?" beg t)
(re-search-forward "%\\?" end t))
(when (or (search-backward "%?" beg t)
(search-forward "%?" end t))
(replace-match "")))
(org-table-align)))
(org-table-align))))
(defun org-capture-place-plain-text ()
"Place the template plainly.

9
testing/lisp/test-org-capture.el
View file

@ -161,6 +161,15 @@
(insert "Capture text")
(org-capture-kill))
(buffer-string))))
(should
(equal "| a |\n| b |"
(org-test-with-temp-text-in-file "| a |\n| b |"
(let* ((file (buffer-file-name))
(org-capture-templates
`(("t" "Table" table-line (file ,file) "| x |"))))
(org-capture nil "t")
(org-capture-kill))
(buffer-string))))
;; Test aborting a capture that split the line.
(should
(equal