Add docstring to +org/refile* commands
This commit is contained in:
parent
70c8ca30b2
commit
d5019f0b57
1 changed files with 12 additions and 6 deletions
|
@ -4,7 +4,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(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")
|
||||
(let ((org-refile-targets `((,file :maxlevel . 10)))
|
||||
(org-refile-use-outline-path nil)
|
||||
|
@ -14,7 +15,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(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
|
||||
(list current-prefix-arg
|
||||
(read-file-name "Select file to refile to: "
|
||||
|
@ -26,7 +28,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(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")
|
||||
(let ((org-refile-keep arg)
|
||||
org-refile-targets
|
||||
|
@ -42,7 +45,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(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")
|
||||
(let ((org-refile-keep arg)
|
||||
org-refile-targets
|
||||
|
@ -55,7 +59,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(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")
|
||||
(unless (bound-and-true-p org-clock-current-task)
|
||||
(user-error "No active clock to refile to"))
|
||||
|
@ -64,7 +69,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(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")
|
||||
(or (assoc (plist-get org-bookmark-names-plist :last-refile)
|
||||
bookmark-alist)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue