From 782dd9b8c11e0ee6c7dfd46a7e4fedee6e4e1d21 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 3 Nov 2018 10:30:47 +0100 Subject: [PATCH] [Org] Rename function to save current org task to file That. --- init.el | 4 ++-- site-lisp/db-org.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 212e146..a8aa758 100644 --- a/init.el +++ b/init.el @@ -650,7 +650,7 @@ _h_ _l_ _o_k _y_ank (use-package db-org :commands (db/find-parent-task db/ensure-running-clock - db/org-current-task)) + db/save-current-org-task-to-file)) (use-package org :commands (org-agenda @@ -733,7 +733,7 @@ _h_ _l_ _o_k _y_ank (add-hook 'org-clock-out-hook #'db/ensure-running-clock 'append) ;; Communicate the currently clocked in task to the outside world - (add-hook 'org-clock-in-hook #'db/org-current-task))) + (add-hook 'org-clock-in-hook #'db/save-current-org-task-to-file))) (use-package ox-icalendar :commands (org-icalendar-combine-agenda-files) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 832a0aa..8dd1e3a 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -659,7 +659,7 @@ In ~%s~: (t (org-clock-in '(4)))))))) -(defun db/org-current-task () +(defun db/save-current-org-task-to-file () "Format currently clocked task and write it to `db/org-clock-current-task-file'." (with-temp-file db/org-clock-current-task-file