From adc1cac5905bd17c89425cf2f585ecee947e69ad Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 15 Dec 2017 21:46:14 +0100 Subject: [PATCH] =?UTF-8?q?[Org]=20Remove=20unused=20=E2=80=98db/org-agend?= =?UTF-8?q?a-add-clocking-time=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-org.el | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 41958c7..a349352 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -533,21 +533,6 @@ are equal return nil." (bind-key "C-c C-x C-a" #'db/org-add-clocking-time org-mode-map) -(defun db/org-agenda-add-clocking-time () - "Add \"CLOCK:\" line to the task under point in the agenda. - -Start and end time will be queried interactively." - (interactive) - ;; FIXME: make this function to take two optional arguments - (if (not (eq major-mode 'org-agenda-mode)) - (user-error "Must be in org agenda mode") - (save-window-excursion - (org-agenda-switch-to) - (db/org-add-clocking-time)))) - -(eval-after-load 'org-agenda - '(bind-key "V u" #'db/org-agenda-add-clocking-time org-agenda-mode-map)) - ;; A Hydra for changing agenda appearance ;; http://oremacs.com/2016/04/04/hydra-doc-syntax/