diff --git a/home/alex/programs/emacs/doom/config.el b/home/alex/programs/emacs/doom/config.el index e3732c9..ceb7238 100644 --- a/home/alex/programs/emacs/doom/config.el +++ b/home/alex/programs/emacs/doom/config.el @@ -87,7 +87,15 @@ (use-package! org-ql) (use-package! org-bookmark-heading) + +(defun ak/activities-define--with-prefix-arg () + "Call 'C-u activities-define' in order to save the current activity." + (interactive) + (let ((current-prefix-arg '(4))) + (call-interactively #'activities-define))) + (use-package! activities + :demand t :config (activities-mode) (activities-tabs-mode) @@ -97,7 +105,7 @@ :desc "Resume activity" "r" #'activities-resume :desc "Create new activity" "n" #'activities-new :desc "List activities" "l" #'activities-list - :desc "Save current activity " "s" #'activities-save + :desc "Save current activity " "s" #'ak/activities-define--with-prefix-arg :desc "Save all activities" "S" #'activities-save-all :desc "Revert activity to default" "R" #'activities-revert )