;;; hypb-maintenance.el --- functions for maintenance tasks -*- lexical-binding: t; -*- ;; ;; Author: Mats Lidell ;; ;; Orig-Date: 31-Mar-21 at 21:11:00 ;; Last-Mod: 1-May-22 at 19:06:09 by Bob Weiner ;; ;; SPDX-License-Identifier: GPL-3.0-or-later ;; ;; Copyright (C) 1991-2022 Free Software Foundation, Inc. ;; See the "HY-COPY" file for license information. ;; ;; This file is part of GNU Hyperbole. ;;; Commentary: ;;; Code: (require 'kexport "kotl/kexport") (require 'kimport "kotl/kimport") (defvar hypb:web-repo-location "../hyweb/hyperbole/" "The location of hyperbole repo for the web pages.") (defconst hypb:hy-news-header "

What's New in GNU Hyperbole

"
  "HY_NEWS html header.")

(defconst hypb:hy-news-footer
  "

" "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 HY-ABOUT INSTALL HY-COPY COPYING MANIFEST ;; hui.el hbut.el hbdata.el hmail.el - referenced in hyperbole.el (mapc (lambda (file) (copy-file file hypb:web-repo-location t)) '("DEMO" "DEMO-ROLO.otl" "FAST-DEMO" "HY-ABOUT" "INSTALL" "HY-COPY" "COPYING" "MANIFEST" "hui.el" "hbut.el" "hbdata.el" "hmail.el")) ;; 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 and FAST-DEMO.html (dolist (file '("DEMO" "FAST-DEMO")) (let ((export-buffer (make-temp-name "export"))) (kimport:star-outline file export-buffer) (kexport:html export-buffer (concat hypb:web-repo-location file ".html") nil) (with-current-buffer export-buffer (set-buffer-modified-p nil) (kill-buffer)))) ;; koutline-example.html (let ((example-src-name "kotl/EXAMPLE.kotl")) (kexport:html example-src-name (concat hypb:web-repo-location "koutline-example.html") nil) (with-current-buffer (get-file-buffer example-src-name) (set-buffer-modified-p nil) (kill-buffer))) ;; HY-WHY.html (let ((hy-why-src-name "HY-WHY.kotl")) (kexport:html hy-why-src-name (concat hypb:web-repo-location "HY-WHY.html") nil) (with-current-buffer (get-file-buffer hy-why-src-name) (set-buffer-modified-p nil) (kill-buffer)) (kexport:html hy-why-src-name (concat hypb:web-repo-location "HY-WHY.html") nil)) (message "Local copy of Hyperbole website updated successfully.")) (provide 'hypb-maintenance) ;;; hypb-maintenance.el ends here