From 46d9973146864e099df7bd3696b042ba6aa46eb9 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 27 Jun 2020 08:56:53 +0200 Subject: [PATCH] Move last Org Mode utility function from `db-utils' to `db-org' --- init.el | 2 +- site-lisp/db-org.el | 5 +++++ site-lisp/db-utils.el | 5 ----- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/init.el b/init.el index 7b17c2e..91b00ab 100644 --- a/init.el +++ b/init.el @@ -554,7 +554,6 @@ (use-package db-utils :commands (endless/fill-or-unfill db/delete-trailing-whitespace-maybe - db/show-current-org-task db/run-or-hide-shell db/run-or-hide-ansi-term db/hex-to-ascii @@ -705,6 +704,7 @@ With given ARG, display files in `db/important-document-path’." db/org-clock-in-break-task db/org-clock-in-home-task db/org-clock-in-work-task + db/show-current-org-task endless/org-ispell db/org-agenda-list-deadlines db/org-agenda-skip-tag diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 085c422..60ca1b3 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -315,6 +315,11 @@ In ~%s~: (dolist (frame (frame-list)) (modify-frame-parameters frame `((name . , org-clock-heading))))))) +(defun db/show-current-org-task () + "Show title of currently clock in task in modeline." + (interactive) + (message org-clock-current-task)) + ;;; Fixes diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 816aede..4dcf188 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -130,11 +130,6 @@ major mode MODE." (eq major-mode mode))) (window-list-1))) -(defun db/show-current-org-task () - "Show title of currently clock in task in modeline." - (interactive) - (message org-clock-current-task)) - (defun db/hex-to-ascii (hex-string) "Convert HEX-STRING to its ASCII equivalent. Allowed characters in hex-string are hexadecimal digits and