Advertisement
Guest User

Untitled

a guest
Mar 13th, 2019
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.48 KB | None | 0 0
  1.   (defun org-add-note-mark ()
  2.     (interactive)
  3.     (defvar title ())
  4.     (setq title(org-entry-get nil "ITEM")) ; Get the current title
  5.     (if (string-match-p "|N|" title) ; If there is a Mark already
  6.         (org-add-log-setup 'note)    ; Go to take a note
  7.       (setq newtitle(concat title " |N|")) ; If not, add it
  8.       (org-edit-headline newtitle) ; Write it
  9.       (org-add-log-setup 'note))) ; and go to take a note
  10. (define-key org-mode-map (kbd "C-c C-z") 'org-add-note-mark)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement