build: Also render the gnupg.org as plain text.
authorWerner Koch <wk@gnupg.org>
Tue, 2 Jan 2018 10:15:36 +0000 (11:15 +0100)
committerWerner Koch <wk@gnupg.org>
Tue, 2 Jan 2018 10:15:36 +0000 (11:15 +0100)
* web/share/gpgweb.el (gpgweb-faq-to-txt): New.
* tools/build-website.sh: Call new function.
--

We had to do this in the past manually and it was oftne forgooten
which led to some confusion.

tools/build-website.sh
web/share/gpgweb.el

index 2f8ceb9..6e2842d 100755 (executable)
@@ -163,7 +163,8 @@ else
   --eval "(gpgweb-setup-project)" \
   --eval "(org-publish-initialize-cache \"gpgweb\")" \
   --eval "(message \"root=(%s)\" gpgweb-root-dir)" \
-  --eval "(org-publish \"gpgweb\" t nil)"
+  --eval "(org-publish \"gpgweb\" t nil)" \
+  --eval "(gpgweb-faq-to-txt \"gnupg-faq.org\")"
 
   echo "$rev" > ${revlastfile}
   sync_web=${stage_dir}/${subdir}
index 6539206..2651c35 100644 (file)
@@ -478,6 +478,23 @@ to create the previous and Next links for an entry."
                            nil))
 
 
+(defun gpgweb-faq-to-txt (faqfile)
+  "Render FAQFILE as text.  FAQFILE is assumed to be in web/faq.
+Note that the HTML rendering is done as part of the gpgweb-org-to-html"
+  (interactive "sFAQ orgfile: ")
+  (let* ((file (concat gpgweb-root-dir "faq/" faqfile))
+         (visitingp (find-buffer-visiting file))
+         (work-buffer (or visitingp (find-file-noselect file))))
+    (with-current-buffer work-buffer
+      (setq default-directory (concat gpgweb-stage-dir "faq"))
+      (make-directory default-directory t)
+      (toggle-read-only 0)
+      (org-ascii-export-to-ascii nil nil nil nil '(:ascii-charset utf-8))
+      (basic-save-buffer))
+    (unless visitingp
+          (kill-buffer work-buffer))))
+
+
 (defun gpgweb-render-blog (&optional filelist)
   "Turn the current buffer which has an org-mode blog entry into its
 rendered form and save it with the suffix .html."
@@ -508,7 +525,6 @@ rendered form and save it with the suffix .html."
         (unless visitingp
           (kill-buffer work-buffer))))))
 
-
 (defun gpgweb-upload ()
   "We don't do an upload directly.  Instead we only print the
 commands to do that.  In reality a cron jobs syncs the stage dir."