XmacsLabs/planet
1
0
Fork 0
mirror of https://gitee.com/XmacsLabs/planet.git synced 2025-09-06 06:33:52 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove black list in tm2html_CD (#38)

Browse source 
## What?
Change tm, tmu format to html for CD

## How to test?
On Linux:
```
/usr/bin/MoganResearch -headless -b CD/tm2html_CD.scm  -x "(tm2html_CD)" -q
```

On Windows:
```
build\packages\app.mogan\data\bin\MoganResearch.exe -headless -b path\to\CD\tm2html_CD.scm -x "(tm2html_CD)" -q
```
This commit is contained in:
ATQlove 2024-08-01 17:35:13 +08:00 • committed by GitHub
parent 4c47f5c278
commit a0d864cc6e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 21 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

60
CD/tm2html_CD.scm Normal file
View file

@ -0,0 +1,60 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MODULE : tm2html_CD.scm
;; DESCRIPTION : Convert tm format to html for CD
;; COPYRIGHT : (C) 2024 ATQlove
;;
;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (list-files dir)
(let* ((filtered-files (url->list
(url-expand
(url-complete
(url-append (url-descendants dir)
(url-or (url-wildcard "*.tm")
(url-wildcard "*.tmu")))
"fr")))))
; (display "Filtered files:\n")
; (for-each (lambda (file) (display (string-append (url->string file) "\n"))) filtered-files)
filtered-files))
(define (export-file-to-html base-dir file output-dir)
(let* ((relative-path (url-delta base-dir file))
(output-file-url (url-append output-dir relative-path))
(output-file-url (url-unglue output-file-url 3)) ; Remove ".tm" or ".tmu" extension
(html-file-url (url-glue output-file-url ".html"))
(output-dir-url (url-head html-file-url)))
; ; Debugging information; expect information are just some example
; (display (string-append "Base directory: " (url->string base-dir) "\n")) ; Expect: file:///F:/mogan/planet/CD/try
; (display (string-append "File: " (url->string file) "\n")) ; Expect: file:///F:/mogan/planet/CD/try/2/24_10_tmhtml_test.tmu
; (display (string-append "Relative path: " (url->string relative-path) "\n")) ; Expect: /2/24_10_tmhtml_test.tmu
; (display (string-append "Output file URL (before unglue): " (url->string output-file-url) "\n")) ; Expect: file:///F:/mogan/planet/CD/html/2/24_10_tmhtml_test.tmu
; (display (string-append "Output file URL (after unglue): " (url->string (url-unglue output-file-url 3)) "\n")) ; Expect: file:///F:/mogan/planet/CD/html/2/24_10_tmhtml_test
; (display (string-append "HTML file URL: " (url->string html-file-url) "\n")) ; Expect: file:///F:/mogan/planet/CD/html/2/24_10_tmhtml_test.html
; (display (string-append "Output directory URL: " (url->string output-dir-url) "\n")) ; Expect: file:///F:/mogan/planet/CD/html/2
(make-directory (url->string output-dir-url))
(display (string-append "Exporting " (url->string file) " to " (url->string html-file-url) "\n"))
(load-buffer (url->string file))
(export-buffer-main (current-buffer) (url->string html-file-url) "html" ())))
(define (make-directory dir)
(system (string-append "mkdir -p " dir)))
(define (export-directory dir output-dir)
(let* ((files (list-files dir)))
(for-each (lambda (file)
(export-file-to-html dir file output-dir))
files)))
(define (tm2html_CD)
(let* ((current-dir (url->string (url-pwd)))
(output-dir (string-append current-dir "/CD/html")))
(export-directory current-dir output-dir)
(display "Conversion from tm/tmu to html end\n")))