This is what I want, thanks very much. Marcin Borkowski <mb...@wmi.amu.edu.pl> writes:
> Dnia 2014-03-28, o godz. 16:09:01 > stardiviner <numbch...@gmail.com> napisał(a): > >> >> I want to create a custom keybinding to custom function which will >> execute all necessary steps for creating an org habit. >> The bellowing is my code, but seems it doesn't work at all. >> I don't know how to write this custom function actually. (I just put >> some keybindings corresponding functions in the custom function >> body.) And some org-mode functions are interactively. >> >> #+BEGIN_SRC emacs-lisp >> ;; TODO: create an key binding for all necessary steps for create a >> habit. (reference in Org-mode.org file) (defun org-habit-apply () >> "Apply org-habit on this task." >> (interactive) >> (lambda () >> (org-todo "HABIT") >> (org-insert-property-drawer) ; TODO: :STYLE: habit (value) >> (org-schedule))) >> >> (define-key org-mode-map (kbd "C-c C-x h") 'org-habit-apply) >> #+END_SRC >> >> Does anybody can help me this? and thanks in advance. > > Is this of any help? > > http://mbork.pl/2013-09-23_Automatic_insertion_of_habit_templates_%28en%29 > > Hth,
