[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 9ff3ed3 2/3: * elpa-admin (elpaa--section-to-html) <te
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 9ff3ed3 2/3: * elpa-admin (elpaa--section-to-html) <text/x-org>: Fix level |
Date: |
Sat, 9 Oct 2021 11:07:40 -0400 (EDT) |
branch: elpa-admin
commit 9ff3ed3858ea4f93477e37a0beff5fcadf942d75
Author: Adam Porter <adam@alphapapa.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin (elpaa--section-to-html) <text/x-org>: Fix level
Make sure the doc's headings have a deeper level than the enclosing one.
---
elpa-admin.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index c0e0625..6a88e3d 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -642,7 +642,7 @@ Return non-nil if a new tarball was created."
(group-n 7 (+ digit)) ":"
(group-n 8 (+ digit))))
gitdate)
- (error "unknown date format: %S" gitdate))
+ (error "Unknown date format: %S" gitdate))
(let* ((field
(lambda (group)
(and (match-beginning group)
@@ -1224,7 +1224,8 @@ which see."
(cl-defmethod elpaa--section-to-html ((section (head text/x-org)))
(elpaa--export-org (cdr section) 'html
:body-only t
- :ext-plist elpaa--org-export-options))
+ :ext-plist (append '(:html-toplevel-hlevel 3)
+ elpaa--org-export-options)))
(defun elpaa--extension-to-mime (ext)
(pcase ext
@@ -1854,6 +1855,10 @@ If WITH-CORE is non-nil, it means we manage :core
packages as well."
(when elpaa--email-to
(with-temp-buffer
(message-mode)
+ (declare-function message-setup "message"
+ (headers &optional yank-action actions continue
+ switch-function return-action))
+ (declare-function message-send "message" (&optional arg))
(let* ((version (nth 1 metadata))
(pkgname (car pkg-spec))
(name (capitalize pkgname))