diff options
Diffstat (limited to 'org-maint.el')
-rw-r--r-- | org-maint.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/org-maint.el b/org-maint.el index 3e2f782..3e8f8df 100644 --- a/org-maint.el +++ b/org-maint.el @@ -31,3 +31,9 @@ If APPLY is non-nil, use 'git apply' instead of 'git am'." (call-process "git" nil t nil "show" "-s" "--format=%b%n%s%n%H%n%an%n%cd" commit))) + +(defun org-maint-rev-from-next-item () + (save-excursion + (or (and (re-search-forward "- \\[[ X]\\] \\([A-z0-9]\\{40\\}\\)") + (match-string-no-properties 1)) + (user-error "Next revision item not found")))) |