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

Make `org-comment-dwim' check if on a heading

Browse source 
* lisp/org.el (org-comment-dwim): If on a heading, comment the
  heading.

* testing/lisp/test-org.el: Add test.

TINYCHANGE
This commit is contained in:
Alex Branham 2017-11-29 14:41:12 +01:00 committed by Nicolas Goaziou
parent acfb1ca4b8
commit ee7ead62aa
2 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org.el
View file

@ -22813,11 +22813,15 @@ strictly within a source block, use appropriate comment syntax."
(forward-line)))))))))
(defun org-comment-dwim (_arg)
"Call `comment-dwim' within a source edit buffer if needed."
"Call the comment command you mean.
Call `org-toggle-comment' if on a heading, otherwise call
`comment-dwim', within a source edit buffer if needed."
(interactive "*P")
(if (org-in-src-block-p)
(org-babel-do-in-edit-buffer (call-interactively 'comment-dwim))
(call-interactively 'comment-dwim)))
(cond ((org-at-heading-p)
(call-interactively #'org-toggle-comment))
((org-in-src-block-p)
(org-babel-do-in-edit-buffer (call-interactively #'comment-dwim)))
(t (call-interactively #'comment-dwim))))
;;; Timestamps API

6
testing/lisp/test-org.el
View file

@ -148,6 +148,12 @@
(org-test-with-temp-text "#+KEYWORD: value"
(call-interactively #'org-comment-dwim)
(buffer-string))))
;; Comment a heading
(should
(equal "* COMMENT Test"
(org-test-with-temp-text "* Test"
(call-interactively #'org-comment-dwim)
(buffer-string))))
;; In a source block, use appropriate syntax.
(should
(equal " ;; "