From 678d18a87bee31c9e3f85771acb153313c195447 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 18 Jun 2023 21:46:32 +0200 Subject: [PATCH] Add new web static exporter skeleton. --- src/Makefile | 10 +++++++-- src/export-web-static.scm | 46 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 54 insertions(+), 2 deletions(-) create mode 100644 src/export-web-static.scm diff --git a/src/Makefile b/src/Makefile index c38fd5a..9593a73 100644 --- a/src/Makefile +++ b/src/Makefile @@ -39,7 +39,7 @@ HACKERBASE-DEPS=hackerbase.scm cal-month.import.scm \ mailman.import.scm texts.import.scm tests.import.scm \ notifications.import.scm logging.import.scm \ progress.import.scm cal-period.import.scm \ - util-stdout.import.scm + util-stdout.import.scm export-web-static.import.scm HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o \ cal-period.o ansi.o util-dict-list.o command-line.o mbase.o \ @@ -54,7 +54,8 @@ HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o \ cal-day.o util-stdout.o cal-format.o util-dict-bst.o table.o \ sgr-list.o sgr-block.o table-processor.o table-border.o \ table-style.o sgr-state.o util-utf8.o sgr-cell.o \ - template-list-expander.o box-drawing.o util-list.o + template-list-expander.o box-drawing.o util-list.o \ + export-web-static.o .PHONY: imports imports: $(HACKERBASE-DEPS) @@ -468,3 +469,8 @@ UTIL-LIST-SOURCES=util-list.scm testing.import.scm util-list.o: util-list.import.scm util-list.import.scm: $(UTIL-LIST-SOURCES) + +EXPORT-WEB-STATIC-SOURCES=export-web-static.scm + +export-web-static.o: export-web-static.import.scm +export-web-static.import.scm: $(EXPORT-WEB-STATIC-SOURCES) diff --git a/src/export-web-static.scm b/src/export-web-static.scm new file mode 100644 index 0000000..3ac7edd --- /dev/null +++ b/src/export-web-static.scm @@ -0,0 +1,46 @@ +;; +;; export-web-static.scm +;; +;; Generate private member info page. +;; +;; ISC License +;; +;; Copyright 2023 Brmlab, z.s. +;; Dominik Pantůček +;; +;; Permission to use, copy, modify, and/or distribute this software +;; for any purpose with or without fee is hereby granted, provided +;; that the above copyright notice and this permission notice appear +;; in all copies. +;; +;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL +;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED +;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE +;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR +;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS +;; OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, +;; NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN +;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. +;; + +(declare (unit export-web-static)) + +(module + export-web-static + ( + gen-html-members + ) + + (import scheme) + + (define (print-html-member mr) + (print "") + (print "")) + + (define (gen-html-member mr) + #f) + + (define (gen-html-members mb) + #f) + + )