Remove JendaSAP-DokuWiki-hack exporter.

src/Makefile

@@ -35,9 +35,8 @@ HACKERBASE-DEPS=hackerbase.scm cal-month.import.scm			\
 	command-line.import.scm mbase.import.scm brmember.import.scm	\
 	configuration.import.scm export-cards.import.scm		\
 	members-print.import.scm members-payments.import.scm		\
-	export-wiki-compat.import.scm environment.import.scm		\
+	environment.import.scm mailman.import.scm texts.import.scm	\
-	mailman.import.scm texts.import.scm tests.import.scm		\
+	tests.import.scm notifications.import.scm logging.import.scm	\
-	notifications.import.scm logging.import.scm			\
 	progress.import.scm cal-period.import.scm			\
 	util-stdout.import.scm export-web-static.import.scm		\
 	dokuwiki.import.scm
@@ -47,16 +46,16 @@ HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o		\
 	 primes.o brmember.o configuration.o progress.o			\
 	 export-cards.o members-print.o members-fees.o mbase-dir.o	\
 	 util-csv.o bank-account.o bank-fio.o members-payments.o	\
-	 brmember-parser.o export-wiki-compat.o environment.o		\
+	 brmember-parser.o environment.o mailman.o util-set-list.o	\
-	 mailman.o util-set-list.o util-time.o util-tag.o util-io.o	\
+	 util-time.o util-tag.o util-io.o util-string.o util-io.o	\
-	 util-string.o util-io.o util-parser.o texts.o tests.o		\
+	 util-parser.o texts.o tests.o util-proc.o util-mail.o		\
-	 util-proc.o util-mail.o notifications.o util-format.o		\
+	 notifications.o util-format.o brmember-format.o logging.o	\
-	 brmember-format.o logging.o specification.o util-git.o		\
+	 specification.o util-git.o cal-day.o util-stdout.o		\
-	 cal-day.o util-stdout.o cal-format.o util-dict-bst.o table.o	\
+	 cal-format.o util-dict-bst.o table.o sgr-list.o sgr-block.o	\
-	 sgr-list.o sgr-block.o table-processor.o table-border.o	\
+	 table-processor.o table-border.o table-style.o sgr-state.o	\
-	 table-style.o sgr-state.o util-utf8.o sgr-cell.o		\
+	 util-utf8.o sgr-cell.o template-list-expander.o		\
-	 template-list-expander.o box-drawing.o util-list.o		\
+	 box-drawing.o util-list.o export-web-static.o util-dir.o	\
-	 export-web-static.o util-dir.o dokuwiki.o racket-kwargs.o
+	 dokuwiki.o racket-kwargs.o
 
 GENDOC-SOURCES=gendoc.scm duck-extract.import.scm			\
 	util-time.import.scm util-csv.import.scm util-git.import.scm	\
@@ -250,14 +249,6 @@ MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm	\
 members-payments.o: members-payments.import.scm
 members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES)
 
-EXPORT-WIKI-COMPAT-SOURCES=export-wiki-compat.scm brmember.import.scm	\
-	 configuration.import.scm members-payments.import.scm		\
-	 mbase.import.scm util-git.import.scm progress.import.scm	\
-	 util-list.import.scm util-dir.import.scm
-
-export-wiki-compat.o: export-wiki-compat.import.scm
-export-wiki-compat.import.scm: $(EXPORT-WIKI-COMPAT-SOURCES)
-
 ENVIRONMENT-SOURCES=environment.scm ansi.import.scm
 
 environment.o: environment.import.scm

src/export-wiki-compat.scm

@@ -1,88 +0,0 @@
-;;
-;; export-wiki-compat.scm
-;;
-;; Exporting members status for displaying in dokuwiki hack.
-;;
-;; ISC License
-;;
-;; Copyright 2023 Brmlab, z.s.
-;; Dominik Pantůček <dominik.pantucek@trustica.cz>
-;;
-;; 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-wiki-compat))
-
-(module
- export-wiki-compat
- (
-  gen-web-static-member
-  gen-web-static
-  )
-
- (import scheme
-	 (chicken base)
-	 (chicken format)
-	 (chicken string)
-	 (chicken process-context)
-	 (chicken pathname)
-	 (chicken file)
-	 (chicken file posix)
-	 util-list
-	 brmember
-	 configuration
-	 members-payments
-	 mbase
-	 util-git
-	 progress
-	 util-dir)
-
- ;; Generate all the files in specified (default current) directory.
- (define (gen-web-static-member mr . dirs)
-   (let ((nick (brmember-nick mr))
-	 (id (brmember-id mr))
-	 (dir (if (null? dirs)
-		  (current-directory)
-		  (car dirs))))
-     (with-output-to-file (make-pathname dir (sprintf "~A.id" nick))
-       (lambda ()
-	 (print id)))
-     (with-output-to-file (make-pathname dir (sprintf "~A.balance" nick))
-       (lambda ()
-	 (print (member-total-balance mr))))
-     (with-output-to-file (make-pathname dir (sprintf "~A.misc" nick))
-       (lambda ()
-	 (let loop ((lines (brmember-source mr)))
-	   (when (not (null? lines))
-	     (print (car lines))
-	     (loop (cdr lines))))))
-     (with-output-to-file (make-pathname dir (sprintf "~A.log" nick))
-       (lambda ()
-	 (let loop ((lines ((git (*members-directory*) #:output)
-			    'log '-p '-- 
-			    (brmember-file-name mr))))
-	   (when (not (null? lines))
-	     (print (car lines))
-	     (loop (cdr lines))))))
-     ))
-
- ;; Generates all member files in given directory
- (define (gen-web-static mb dir)
-   (ensure-directory dir)
-   (with-mbase-progress%
-    mb dir mr
-    (gen-web-static-member mr dir)))
-
- )