ELisp 函数用于 org-todo 当前时钟任务并保持当前缓冲区不变

ELisp 函数用于 org-todo 当前时钟任务并保持当前缓冲区不变

图像我有一个计时任务,我想打卡并将标题设置为同时完成。最重要的是,我不想改变对当前缓冲区的关注,我尝试编写一个函数

(defun ql/done-current-clocked-task ()
  (interactive)
  (with-current-buffer
      (if (funcall 'org-clocking-p)
      (progn
        (org-clock-goto)
        (org-todo 'done))
    (message "No active clock!"))
    )
  )

但是它无法返回到我的原始缓冲区,而是停在 org 文件的缓冲区。我不知道。

答案1

我发现没有必要将标题设置为 TODO 项目,因为我只是一个带签到的标题项目,因此我不需要签出它和 org-todo 的功能

相关内容