From 76a4f8137377833144383cfcd88a581b6c7663ee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 5 Jul 2023 21:41:08 +0200 Subject: [PATCH] Remove JendaSAP-DokuWiki-hack exporter. --- src/Makefile | 33 ++++++-------- src/export-wiki-compat.scm | 88 -------------------------------------- 2 files changed, 12 insertions(+), 109 deletions(-) delete mode 100644 src/export-wiki-compat.scm diff --git a/src/Makefile b/src/Makefile index 76fd2f2..55895e7 100644 --- a/src/Makefile +++ b/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 \ - mailman.import.scm texts.import.scm tests.import.scm \ - notifications.import.scm logging.import.scm \ + environment.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 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 \ - mailman.o util-set-list.o util-time.o util-tag.o util-io.o \ - util-string.o util-io.o util-parser.o texts.o tests.o \ - util-proc.o util-mail.o notifications.o util-format.o \ - brmember-format.o logging.o specification.o util-git.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 \ - export-web-static.o util-dir.o dokuwiki.o racket-kwargs.o + brmember-parser.o environment.o mailman.o util-set-list.o \ + util-time.o util-tag.o util-io.o util-string.o util-io.o \ + util-parser.o texts.o tests.o util-proc.o util-mail.o \ + notifications.o util-format.o brmember-format.o logging.o \ + specification.o util-git.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 export-web-static.o util-dir.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 diff --git a/src/export-wiki-compat.scm b/src/export-wiki-compat.scm deleted file mode 100644 index 4f7a690..0000000 --- a/src/export-wiki-compat.scm +++ /dev/null @@ -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 -;; -;; 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))) - - )