From 22cb1a0e4d5fb257aac620174f471a93fbc8df23 Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Tue, 30 Dec 2025 11:29:43 +0100
Subject: [PATCH] add file head section

---
 lisp/ox-rst/ox-rst.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/lisp/ox-rst/ox-rst.el b/lisp/ox-rst/ox-rst.el
index 0098c91a..c859b7ad 100644
--- a/lisp/ox-rst/ox-rst.el
+++ b/lisp/ox-rst/ox-rst.el
@@ -93,6 +93,7 @@
 		(?r "As reStructuredText file" org-rst-export-to-rst)))
   :options-alist
   '((:subtitle "SUBTITLE" nil nil parse)
+    (:rst-head "RST_HEAD" nil org-rst-head newline)
     (:rst-link-use-abs-url nil "rst-link-use-abs-url" org-rst-link-use-abs-url)
     (:rst-metadata nil "rst-metadata" org-rst-metadata)
     (:rst-metadata-format nil nil org-rst-metadata-format)
@@ -138,6 +139,25 @@
   :type 'string)
 
 
+(defcustom org-rst-head ""
+  "Org-wide head definitions for exported RST files.
+
+This variable can contain the file-wide metadata.
+
+As the value of this option simply gets inserted at the top of the RST
+file, you can use it to add any arbitrary text to the header.
+
+You can set this on a per-file basis using #+RST_HEAD:,
+or for publication projects using the :rst-head property.
+
+Example:
+#+RST_HEAD: :orphan:"
+  :group 'org-export-rst
+  :type 'string)
+;;;###autoload
+(put 'org-rst-head 'safe-local-variable 'stringp)
+
+
 (defcustom org-rst-link-org-files-as-rst t
   "Non-nil means make file links to `file.org' point to `file.rst'.
 When `org-mode' is exporting an `org-mode' file to reStructuredText,
@@ -605,6 +625,7 @@ INFO is a plist used as a communication channel."
 		 (subtitle (if with-title
                        (org-export-data (plist-get info :subtitle) info)
                      ""))
+     (head (org-element-normalize-string (plist-get info :rst-head)))
      (spec (org-rst-format-spec info))
 		 (metadata (plist-get info :rst-metadata))
 		 (author (and (plist-get info :with-author)
@@ -625,6 +646,7 @@ INFO is a plist used as a communication channel."
                                subtitle "\n"
                                subtitleline "\n") "")))
     (concat
+     (when head (concat head "\n"))
      (unless (string= title "")
       (concat
        title