Move "new entry" command to library

1 files changed, 28 insertions, 0 deletions

diff --git a/org-maint.el b/org-maint.el
index 3e8f8df..db5b16a 100644
--- a/org-maint.el
+++ b/org-maint.el
@@ -37,3 +37,31 @@ If APPLY is non-nil, use 'git apply' instead of 'git am'."
     (or (and (re-search-forward "- \\[[ X]\\] \\([A-z0-9]\\{40\\}\\)")
              (match-string-no-properties 1))
         (user-error "Next revision item not found"))))
+
+(defun org-maint-check-for-new ()
+  "Check for new commits to backport.
+The last commit found is assumed to be the return value of
+`org-maint-rev-from-next-item`, and Emacs ref name that should be
+checked is taken from the Org \"ref\" property."
+  (interactive)
+  (let ((ref (or (org-entry-get (point) "ref")
+                 (user-error "No reference found")))
+        (last-rev (org-maint-rev-from-next-item))
+        (default-directory org-maint-emacs-dir))
+    (with-current-buffer (get-buffer-create "*org-maint-new-entries*")
+      (goto-char (point-min))
+      (erase-buffer)
+      (insert (format ";; %s..%s\n\n" last-rev ref))
+      (call-process "git" nil t nil
+                    "log" "--oneline"
+                    "--format=- [ ] %H%n%n  %s%n  %an%n  %cd%n"
+                    (concat "^" last-rev) ref
+                    "--"
+                    "doc/misc/org.texi"
+                    "etc/ORG-NEWS"
+                    "etc/org"
+                    "etc/refcards/orgcard.tex"
+                    "etc/schema/od-manifest-schema-v1.2-os.rnc"
+                    "etc/schema/od-schema-v1.2-os.rnc"
+                    "lisp/org")
+      (display-buffer (current-buffer)))))