Add release notes script

emacs/init.org

@@ -5233,6 +5233,37 @@ The aws-mfa command:
       (message (devpi-upload))))
 #+END_SRC
 
+** Release notes
+#+BEGIN_SRC emacs-lisp
+  (defvar release-notes-repo (expand-file-name
+			      "~/lola/release-manager/release_notes")
+    "The directory containing the release notes repository.")
+
+  (defun lola-release-notes (staged)
+    "Prints release notes for the latest release.
+  If called with a prefix argument, prints release notes
+  for the upcoming release instead."
+    (interactive "P")
+    (let* ((all-repos '("lola-server"
+			"lola-travel-service"
+			"lola-desktop"))
+	   (repos
+	    (if (y-or-n-p "Query all repos?")
+		all-repos
+	      (completing-read-multiple "Repos: "
+					all-repos))))
+      (with-env-from-file (expand-file-name
+			   (concat release-notes-repo "/.env"))
+	(async-shell-command
+	 (format
+	  (concat release-notes-repo "/venv/bin/python "
+		  release-notes-repo "/release_notes/query_release_notes.py "
+		  (when staged "--staged ")
+		  " %s")
+	  (combine-and-quote-strings repos))
+	 "*release-notes*"))))
+#+END_SRC
+
 * StumpWM
 A handy keybinding to connect to the StumpWM SBCL process via SLIME:
 #+BEGIN_SRC emacs-lisp