emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add docstring to +org/refile* commands

Browse source
This commit is contained in:
Henrik Lissner 2021-03-02 23:44:34 -05:00
parent 70c8ca30b2
commit d5019f0b57
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/lang/org/autoload/org-refile.el
View file

@ -4,7 +4,8 @@
;;;###autoload ;;;###autoload
(defun +org/refile-to-current-file (arg &optional file) (defun +org/refile-to-current-file (arg &optional file)
"TODO" "Refile current heading to elsewhere in the current buffer.
If prefix ARG, copy instead of move."
(interactive "P") (interactive "P")
(let ((org-refile-targets `((,file :maxlevel . 10))) (let ((org-refile-targets `((,file :maxlevel . 10)))
(org-refile-use-outline-path nil) (org-refile-use-outline-path nil)
@ -14,7 +15,8 @@
;;;###autoload ;;;###autoload
(defun +org/refile-to-file (arg file) (defun +org/refile-to-file (arg file)
"Refile current heading to a particular org file." "Refile current heading to a particular org file.
If prefix ARG, copy instead of move."
(interactive (interactive
(list current-prefix-arg (list current-prefix-arg
(read-file-name "Select file to refile to: " (read-file-name "Select file to refile to: "
@ -26,7 +28,8 @@
;;;###autoload ;;;###autoload
(defun +org/refile-to-other-window (arg) (defun +org/refile-to-other-window (arg)
"TODO" "Refile current heading to an org buffer visible in another window.
If prefix ARG, copy instead of move."
(interactive "P") (interactive "P")
(let ((org-refile-keep arg) (let ((org-refile-keep arg)
org-refile-targets org-refile-targets
@ -42,7 +45,8 @@
;;;###autoload ;;;###autoload
(defun +org/refile-to-other-buffer (arg) (defun +org/refile-to-other-buffer (arg)
"TODO" "Refile current heading to another, living org buffer.
If prefix ARG, copy instead of move."
(interactive "P") (interactive "P")
(let ((org-refile-keep arg) (let ((org-refile-keep arg)
org-refile-targets org-refile-targets
@ -55,7 +59,8 @@
;;;###autoload ;;;###autoload
(defun +org/refile-to-running-clock (arg) (defun +org/refile-to-running-clock (arg)
"TODO" "Refile current heading to the currently clocked in task.
If prefix ARG, copy instead of move."
(interactive "P") (interactive "P")
(unless (bound-and-true-p org-clock-current-task) (unless (bound-and-true-p org-clock-current-task)
(user-error "No active clock to refile to")) (user-error "No active clock to refile to"))
@ -64,7 +69,8 @@
;;;###autoload ;;;###autoload
(defun +org/refile-to-last-location (arg) (defun +org/refile-to-last-location (arg)
"TODO" "Refile current heading to the last node you refiled to.
If prefix ARG, copy instead of move."
(interactive "P") (interactive "P")
(or (assoc (plist-get org-bookmark-names-plist :last-refile) (or (assoc (plist-get org-bookmark-names-plist :last-refile)
bookmark-alist) bookmark-alist)