;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 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")))