diff --git a/.github/workflows/cd-convert-debian-bookworm.yml b/.github/workflows/cd-convert-debian-bookworm.yml
index bfc8175..df1ad13 100644
--- a/.github/workflows/cd-convert-debian-bookworm.yml
+++ b/.github/workflows/cd-convert-debian-bookworm.yml
@@ -35,5 +35,5 @@ jobs:
         env:
           REPO: self
           BRANCH: gh-pages
-          FOLDER: CICD/html
+          FOLDER: CICD/html/planet
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
\ No newline at end of file
diff --git a/CICD/tm2html_CICD.scm b/CICD/tm2html_CICD.scm
index 5e2a71d..6ee0995 100644
--- a/CICD/tm2html_CICD.scm
+++ b/CICD/tm2html_CICD.scm
@@ -11,6 +11,9 @@
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(import (srfi srfi-13))
+(import (srfi srfi-1))
+
 (define (list-files dir)
   (let* ((filtered-files (url->list
                           (url-expand
@@ -18,10 +21,19 @@
                             (url-append (url-descendants dir)
                                         (url-or (url-wildcard "*.tm")
                                                 (url-wildcard "*.tmu")))
-                            "fr")))))
+                            "fr"))))
+          (filtered-files-no-conflict (filter (lambda (file)
+                                               (let ((file-string (url->string file)))
+                                                 (and (not (string-contains? file-string "MoganSTEMTutorial"))
+                                                      (not (string-contains? file-string "LaTeX"))
+                                                      (not (string-contains? file-string "UIC"))
+                                                      (not (string-contains? file-string "X202402预备会议"))
+                                                      (not (string-contains? file-string "SICP"))
+                                                      (not (string-contains? file-string "LCPU_x_USTCLUG_Salon")))))
+                                             filtered-files)))
     ; (display "Filtered files:\n")
     ; (for-each (lambda (file) (display (string-append (url->string file) "\n"))) filtered-files)
-    filtered-files))
+    filtered-files-no-conflict))
 
 (define (export-file-to-html file base-dir output-dir)
   (let* ((relative-path (url-delta base-dir file))
@@ -30,14 +42,14 @@
          (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/CICD/try
-    (display (string-append "File: " (url->string file) "\n")) ; Expect: file:///F:/mogan/planet/CICD/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/CICD/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/CICD/html/2/24_10_tmhtml_test
-    (display (string-append "HTML file URL: " (url->string html-file-url) "\n")) ; Expect: file:///F:/mogan/planet/CICD/html/2/24_10_tmhtml_test.html
-    (display (string-append "Output directory URL: " (url->string output-dir-url) "\n")) ; Expect: file:///F:/mogan/planet/CICD/html/2
+    ; ; Debugging information; expect information are just some example
+    ; (display (string-append "Base directory: " (url->string base-dir) "\n")) ; Expect: file:///F:/mogan/planet/CICD/try
+    ; (display (string-append "File: " (url->string file) "\n")) ; Expect: file:///F:/mogan/planet/CICD/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/CICD/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/CICD/html/2/24_10_tmhtml_test
+    ; (display (string-append "HTML file URL: " (url->string html-file-url) "\n")) ; Expect: file:///F:/mogan/planet/CICD/html/2/24_10_tmhtml_test.html
+    ; (display (string-append "Output directory URL: " (url->string output-dir-url) "\n")) ; Expect: file:///F:/mogan/planet/CICD/html/2
 
     (make-directory (url->string output-dir-url))
     (display (string-append "Exporting " (url->string file) " to " (url->string html-file-url) "\n"))
@@ -54,8 +66,11 @@
               files)))
 
 (tm-define (tm2html_CICD)
-  (url-exists? "/__w/planet/planet/jingkaimori")
-  (url-exists? "/__w/planet/planet/CICD")
-  (export-directory "/__w/planet/planet/jingkaimori" "/__w/planet/planet/CICD/html")
+  ; (url-exists? "/__w/planet/planet/jingkaimori")
+  ; (url-exists? "/__w/planet/planet/CICD")
+  ; (define filtered-files (list-files "F:/mogan/planet"))
+  ; (display filtered-files)
+  (export-directory "/__w/planet/planet" "/__w/planet/planet/CICD/html")
+  ; (export-directory "F:/mogan/planet" "F:/mogan/planet/CICD/html")
   (display "Conversion from tm/tmu to html end\n"))
   
\ No newline at end of file