From 351b643669051c7f933cf0dc27b75059b00dc736 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 8 Jul 2018 19:06:46 +0200 Subject: [PATCH] =?UTF-8?q?[Helm]=20Use=20=E2=80=98helm-org=E2=80=99=20for?= =?UTF-8?q?=20selecting=20headlines=20again?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit and make clocking in the new default action. --- init.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index f63e8b2..03a961e 100644 --- a/init.el +++ b/init.el @@ -164,7 +164,7 @@ (bind-key "" #'hydra-zoom/body) (bind-key "" #'dictcc) (bind-key "" #'counsel-locate) - (bind-key "" #'counsel-org-goto-all) + (bind-key "" #'helm-org-agenda-files-headings) (bind-key "" #'magit-status) (bind-key "" #'org-capture) (bind-key "" #'db/helm-shortcuts) @@ -883,13 +883,15 @@ are assumed to be of the form *.crt." :config (unbind-key helm-command-prefix-key)) (use-package helm - :commands (helm-show-kill-ring) + :commands (helm-show-kill-ring + helm-org-agenda-files-headings) :diminish helm-mode :config (progn (eval-when-compile (require 'helm-mode) (require 'helm-buffers) - (require 'helm-ring)) + (require 'helm-ring) + (require 'helm-org)) (setq helm-input-idle-delay 0.0 helm-buffers-fuzzy-matching t @@ -918,7 +920,14 @@ are assumed to be of the form *.crt." db/helm-frequently-visited-locations helm-source-buffer-not-found helm-source-bookmarks - helm-source-bookmark-set)))) + helm-source-bookmark-set)) + + ;; Make clocking in the new default action for + ;; `helm-org-agenda-files-headings’ + (add-to-list 'helm-org-headings-actions + '("Clock in to this heading" . (lambda (marker) + (org-with-point-at marker + (org-clock-in))))))) (use-package ivy :commands (ivy-mode