From 4e7d7d3bcf3711de116cbc4e3bd1672cedf01f13 Mon Sep 17 00:00:00 2001
From: Tom Alexander <tom@fizz.buzz>
Date: Sun, 19 Mar 2023 14:07:23 -0400
Subject: [PATCH] Add scripts for dumping the org-mode ast to investigate how
 emacs parses various inputs.

---
 org_mode_samples/.gitignore                 |  1 +
 org_mode_samples/common.el                  |  8 ++++++++
 org_mode_samples/dump_org_ast.bash          | 17 ++++++++++++++++
 org_mode_samples/plain_lists/Makefile       | 22 +++++++++++++++++++++
 org_mode_samples/plain_lists/paragraphs.org |  3 +++
 5 files changed, 51 insertions(+)
 create mode 100644 org_mode_samples/.gitignore
 create mode 100644 org_mode_samples/common.el
 create mode 100755 org_mode_samples/dump_org_ast.bash
 create mode 100644 org_mode_samples/plain_lists/Makefile
 create mode 100644 org_mode_samples/plain_lists/paragraphs.org

diff --git a/org_mode_samples/.gitignore b/org_mode_samples/.gitignore
new file mode 100644
index 00000000..fcf91aa3
--- /dev/null
+++ b/org_mode_samples/.gitignore
@@ -0,0 +1 @@
+*.tree.txt
diff --git a/org_mode_samples/common.el b/org_mode_samples/common.el
new file mode 100644
index 00000000..482bbb4b
--- /dev/null
+++ b/org_mode_samples/common.el
@@ -0,0 +1,8 @@
+(defun org-dump-ast (outpath)
+  (let
+      ((parsed-tree (format "%s" (org-element-parse-buffer))))
+    (with-temp-file outpath
+      (insert parsed-tree)
+      )
+    )
+  )
diff --git a/org_mode_samples/dump_org_ast.bash b/org_mode_samples/dump_org_ast.bash
new file mode 100755
index 00000000..8ccd247c
--- /dev/null
+++ b/org_mode_samples/dump_org_ast.bash
@@ -0,0 +1,17 @@
+#!/usr/bin/env bash
+#
+set -euo pipefail
+IFS=$'\n\t'
+DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
+
+INPUT_FILE="$1"
+OUTPUT_FILE="$2"
+
+INIT_SCRIPT=$(cat <<EOF
+(progn
+     (org-mode)
+     (org-dump-ast "$OUTPUT_FILE")
+)
+EOF
+)
+exec emacs -q --no-site-file --no-splash --batch --load "$DIR/common.el" --insert "$INPUT_FILE" --eval "$INIT_SCRIPT"
diff --git a/org_mode_samples/plain_lists/Makefile b/org_mode_samples/plain_lists/Makefile
new file mode 100644
index 00000000..f4fe91c1
--- /dev/null
+++ b/org_mode_samples/plain_lists/Makefile
@@ -0,0 +1,22 @@
+SHELL := bash
+.ONESHELL:
+.SHELLFLAGS := -eu -o pipefail -c
+.DELETE_ON_ERROR:
+MAKEFLAGS += --warn-undefined-variables
+MAKEFLAGS += --no-builtin-rules
+OUT=out
+
+ifeq ($(origin .RECIPEPREFIX), undefined)
+  $(error This Make does not support .RECIPEPREFIX. Please use GNU Make 4.0 or later)
+endif
+.RECIPEPREFIX = >
+
+.PHONY: all
+all: paragraphs.tree.txt
+
+.PHONY: clean
+clean:
+> rm -rf *.tree.txt
+
+%.tree.txt: %.org
+> ../dump_org_ast.bash $< $@
diff --git a/org_mode_samples/plain_lists/paragraphs.org b/org_mode_samples/plain_lists/paragraphs.org
new file mode 100644
index 00000000..71c05876
--- /dev/null
+++ b/org_mode_samples/plain_lists/paragraphs.org
@@ -0,0 +1,3 @@
+1. foo
+2. bar
+(message "%s" (org-element-parse-buffer))