[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole c1ac392 05/50: Use emacs lisp for updating th
From: |
Stefan Monnier |
Subject: |
[elpa] externals/hyperbole c1ac392 05/50: Use emacs lisp for updating the web repo |
Date: |
Wed, 17 Mar 2021 18:44:12 -0400 (EDT) |
branch: externals/hyperbole
commit c1ac3923d48493b04d12df750a291efc3d5668ec
Author: Mats Lidell <matsl@gnu.org>
Commit: Mats Lidell <matsl@gnu.org>
Use emacs lisp for updating the web repo
---
hypb-maintenance.el | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 85 insertions(+)
diff --git a/hypb-maintenance.el b/hypb-maintenance.el
new file mode 100644
index 0000000..21953e8
--- /dev/null
+++ b/hypb-maintenance.el
@@ -0,0 +1,85 @@
+;;; hypb-maintenance.el --- functions for maintenance tasks -*-
lexical-binding: t; -*-
+;;
+;; Copyright (C) 1991-2021 Free Software Foundation, Inc.
+;; See the "HY-COPY" file for license information.
+;;
+;; This file is part of GNU Hyperbole.
+
+;;; Commentary:
+
+;;; Code:
+(require 'kexport)
+(require 'kimport)
+
+(defvar hypb:web-repo-location "../hyperbole-web/"
+ "The location of hyperbole repo for the web pages.")
+
+(defconst hypb:hy-news-header
+ "<HTML><HEAD>
+ <A ID=\"top\"></A><A ID=\"k0\"></A>
+ <LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"man/hyperbole.css\">
+</HEAD>
+
+<BODY BGCOLOR=\"#FFFFFF\">
+
+ <CENTER><H1>What's New in GNU Hyperbole</H1></CENTER>
+ <PRE>
+"
+ "HY_NEWS html header.")
+
+(defconst hypb:hy-news-footer
+ " </PRE>
+
+</BODY></HTML>
+"
+ "HY_NEWS html footer.")
+
+
+(defun hypb:web-repo-update ()
+ "Update the Hyperbole web repository from sources.
+Point `hypb:web-repo-location' to where the web repo is located."
+ (interactive)
+
+ ;; HY_NEWS
+ (with-temp-file (concat hypb:web-repo-location "HY-NEWS.html")
+ (insert hypb:hy-news-header)
+ (insert-file-contents "HY-NEWS")
+ (save-excursion
+ (let ((beg (point)))
+ (search-forward "====")
+ (beginning-of-line)
+ (delete-region beg (point))))
+ (indent-region (point) (point-max) 3)
+ (goto-char (point-max))
+ (insert hypb:hy-news-footer))
+
+ ;; hyperbole.html
+ (copy-file "README.md.html" (concat hypb:web-repo-location "hyperbole.html")
t)
+
+ ;; DEMO DEMO-ROLO.otl
+ (copy-file "DEMO" hypb:web-repo-location t)
+ (copy-file "DEMO-ROLO.otl" hypb:web-repo-location t)
+
+ ;; man recursive
+ (copy-directory "man" hypb:web-repo-location nil t nil)
+ (dolist (file
+ (file-expand-wildcards (concat hypb:web-repo-location
"man/im/*.eps")))
+ (delete-file file))
+
+ ;; DEMO.html
+ (let ((export-buffer (make-temp-name "export")))
+ (kimport:star-outline "DEMO" export-buffer)
+ (kexport:html export-buffer (concat hypb:web-repo-location "DEMO.html")
nil)
+ (with-current-buffer export-buffer
+ (set-buffer-modified-p nil)
+ (kill-buffer)))
+
+ ;; koutline-example.html
+ (kexport:html "kotl/EXAMPLE.kotl" (concat hypb:web-repo-location
"koutline-example.html") nil)
+
+ ;; HY-WHY.html
+ (kexport:html "HY-WHY.kotl" (concat hypb:web-repo-location "HY-WHY.html")
nil)
+ )
+
+(provide 'hypb-maintenance)
+;;; hypb-maintenance.el ends here
- [elpa] externals/hyperbole updated (d65920b -> 4eef4e9), Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole c0e48fb 01/50: Use \0 for matched Nth substitution (#37), Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 531cf87 02/50: Handle Org links in non-Org mode buffers with a low priority ibtype, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole afbae3a 04/50: Do not save temp buffer, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole c1ac392 05/50: Use emacs lisp for updating the web repo,
Stefan Monnier <=
- [elpa] externals/hyperbole 357a098 06/50: Initial org-tbl support, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 0e8d33e 03/50: Add Makefile.maintenance, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole de9e60f 09/50: Fix bug#43692, failed to do substitute fixed case for path variables, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 66b35cc 07/50: Add kotl/kotl-orgtbl.el, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 8d77205 08/50: 7.1.3a - Add key bindings and finish Kotl Org table mode support, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 4ddeaf6 10/50: Remove Makefile.maintenance, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 28a1e0c 18/50: Use xdg-open to dispatch to user preferences for display alist (#40), Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 7b92152 11/50: Merge pull request #39 from rswgnu/add-maintenance-makefile-with-web-site-support, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole 7be77e0 12/50: Update git cache interactively, Stefan Monnier, 2021/03/17
- [elpa] externals/hyperbole ad16470 13/50: Document Koutline Org table support; allow ibtype reprioritization, Stefan Monnier, 2021/03/17