[Misc] switching to new repo for org files

export.el

@@ -1,28 +1,28 @@
-#!/usr/bin/env -S emacs -Q --script
-
 (require 'package)
 (require 'org)
-(require 'ox-html)
-
 (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
 (package-initialize)
 (package-refresh-contents)
-(package-install 'htmlize)
+(package-install 'f)
+(package-install 'ox-gfm)
+
+(message "Emacs directory: %s" user-emacs-directory)
+
+(require 'f)
+(require 'ox-gfm)
+(require 'ox-publish)
 
 (setq org-confirm-babel-evaluate nil
       org-html-validation-link nil
       make-backup-files nil)
 
-(defun export-and-clean (directory)
-  (progn  (mapc (lambda (file)
-                  (progn (message (concat "=====================\n"
-                                          "Exporting "
-                                          file
-                                          "\n"
-                                          "=====================\n"))
-                         (with-current-buffer (find-file file)
-                           (org-html-export-to-html))))
-                (directory-files directory t (regexp-quote ".org")))))
+(defvar project-root
+  (file-name-as-directory (expand-file-name "docs" default-directory)))
 
-(dolist (dir '("org/config/" "org/config/Deprecated/" "org/config/WIP"))
-  (export-and-clean dir))
+(dolist (file (f-files project-root (lambda (file) (f-ext-p file "org")) t))
+  (message "Exporting %s" (f-relative file))
+  (with-temp-buffer
+      (find-file file)
+      (org-export-to-file 'gfm (concat (f-no-ext file) ".md"))))
+
+(message "Project generated!")