diff options
author | Ulrich Müller <ulm@gentoo.org> | 2017-03-08 21:06:00 +0100 |
---|---|---|
committer | Ulrich Müller <ulm@gentoo.org> | 2017-03-08 21:06:00 +0100 |
commit | 07b103582d883c60c9e547134c6169ea83ac52e0 (patch) | |
tree | 93a6a83c932df5bb39bde180f5766cce60659452 /gentoo-newsitem-mode.el | |
parent | Re-indent all elisp files. (diff) | |
download | ebuild-mode-07b103582d883c60c9e547134c6169ea83ac52e0.tar.gz ebuild-mode-07b103582d883c60c9e547134c6169ea83ac52e0.tar.bz2 ebuild-mode-07b103582d883c60c9e547134c6169ea83ac52e0.zip |
Account for news item format 2.0.
* gentoo-newsitem-mode.el (gentoo-newsitem-insert-skeleton):
Account for news item format 2.0.
(gentoo-newsitem-format-list): New variable.
Diffstat (limited to 'gentoo-newsitem-mode.el')
-rw-r--r-- | gentoo-newsitem-mode.el | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/gentoo-newsitem-mode.el b/gentoo-newsitem-mode.el index 023fe79..27ce8d1 100644 --- a/gentoo-newsitem-mode.el +++ b/gentoo-newsitem-mode.el @@ -39,6 +39,10 @@ . font-lock-keyword-face))) "Expressions to highlight in Gentoo newsitem mode.") +(defvar gentoo-newsitem-format-list + '("1.0" "2.0") + "List of news item formats defined by GLEP 42.") + ;;;###autoload (define-derived-mode gentoo-newsitem-mode text-mode "Newsitem" "Major mode for Gentoo GLEP 42 news items." @@ -58,12 +62,26 @@ "Author: " str "\n") ((skeleton-read "Translator (null string to terminate): ") "Translator: " str "\n") - "Content-Type: text/plain\n" + ;;@ ; not supported in XEmacs 21.5 + (progn + (setq v2 (point-marker)) + nil) "Posted: " (skeleton-read "Date of posting: " (format-time-string "%Y-%m-%d")) "\n" "Revision: 1\n" - "News-Item-Format: 1.0\n" + "News-Item-Format: " + (setq v1 (completing-read + "News-Item-Format: " + (mapcar 'list gentoo-newsitem-format-list) nil 'confirm + nil nil (car (last gentoo-newsitem-format-list)))) + "\n" + (if (string-equal v1 "1.0") + (save-excursion + ;;(goto-char (car skeleton-positions)) + (goto-char v2) + (insert "Content-Type: text/plain\n") + nil)) ((skeleton-read "Display-If-Installed: (null string to terminate): ") "Display-If-Installed: " str "\n") ((skeleton-read "Display-If-Keyword: (null string to terminate): ") |