commit a1a7382ce92f2e5454a71e50d5857aa57e641a41
parent 1d53a76f3e4e038e0eb1e1a0a02b2143ed2ecf2a
Author: Andrew Laack <andrew@laack.co>
Date: Sun, 6 Sep 2026 10:58:17 -0500
Remove conversion stuff
Diffstat:
9 files changed, 0 insertions(+), 120 deletions(-)
diff --git a/md-to-sl/README.md b/md-to-sl/README.md
@@ -1,3 +0,0 @@
-# MD -> SL
-
-This is an attempt to convert MD files to SL files. This is not going to work for all markdown files. This exists so I can convert files from md -> sl and then do minor changes to make them work nicely as courses.
diff --git a/md-to-sl/bin/dune b/md-to-sl/bin/dune
@@ -1,4 +0,0 @@
-(executable
- (public_name md-to-sl)
- (name main)
- (libraries md_to_sl))
diff --git a/md-to-sl/bin/main.ml b/md-to-sl/bin/main.ml
@@ -1,35 +0,0 @@
-
-let verify_file_exists filename =
- Sys.file_exists filename
-
-let read_file filename =
- let ic = open_in filename in
-
- let rec go acc =
- try
- let line = input_line ic in
- if acc = "" then go line else go (acc ^ "\n" ^ line)
- with e -> close_in_noerr ic; acc
- in go ""
-
-
-let output_file = ref ""
-let input_file = ref ""
-
-let arguments = [
- ("-o", Arg.Set_string output_file, "Set output file name");
- ("-i", Arg.Set_string input_file, "Set input file name");
-]
-
-let handle_missing_file () =
- print_endline ("Unable to find file " ^ input_file.contents ^ ".");
- exit (-1)
-
-let anon_fun _ = ()
-let usage_msg = "md-to-sl -i <input_file> -o <output_file>"
-
-let () = Arg.parse arguments anon_fun usage_msg
-
-let () = if verify_file_exists input_file.contents then () else handle_missing_file ()
-
-let () = print_endline (read_file input_file.contents)
diff --git a/md-to-sl/dune-project b/md-to-sl/dune-project
@@ -1,26 +0,0 @@
-(lang dune 3.24)
-
-(name md-to-sl)
-
-(generate_opam_files true)
-
-(source
- (github username/reponame))
-
-(authors "Author Name <author@example.com>")
-
-(maintainers "Maintainer Name <maintainer@example.com>")
-
-(license LICENSE)
-
-(documentation https://url/to/documentation)
-
-(package
- (name md-to-sl)
- (synopsis "A short synopsis")
- (description "A longer description")
- (depends ocaml)
- (tags
- ("add topics" "to describe" your project)))
-
-; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
diff --git a/md-to-sl/lib/dune b/md-to-sl/lib/dune
@@ -1,2 +0,0 @@
-(library
- (name md_to_sl))
diff --git a/md-to-sl/md-to-sl.opam b/md-to-sl/md-to-sl.opam
@@ -1,32 +0,0 @@
-# This file is generated by dune, edit dune-project instead
-opam-version: "2.0"
-synopsis: "A short synopsis"
-description: "A longer description"
-maintainer: ["Maintainer Name <maintainer@example.com>"]
-authors: ["Author Name <author@example.com>"]
-license: "LICENSE"
-tags: ["add topics" "to describe" "your" "project"]
-homepage: "https://github.com/username/reponame"
-doc: "https://url/to/documentation"
-bug-reports: "https://github.com/username/reponame/issues"
-depends: [
- "dune" {>= "3.24"}
- "ocaml"
- "odoc" {with-doc}
-]
-build: [
- ["dune" "subst"] {dev}
- [
- "dune"
- "build"
- "-p"
- name
- "-j"
- jobs
- "@install"
- "@runtest" {with-test}
- "@doc" {with-doc}
- ]
-]
-dev-repo: "git+https://github.com/username/reponame.git"
-x-maintenance-intent: ["(latest)"]
diff --git a/md-to-sl/test.md b/md-to-sl/test.md
@@ -1,15 +0,0 @@
-# This is a test
-
-testing
-iearsntoiar
-st
-anrsto
-rst
-rst
-iearsntoiresnrstoi ernstoi rnts iset0)(70)(7 0(w9[] ][09287894231ar])
-ars
-tar
-st
-
-
-arsotinar oisnorsitrsotiernts ien [oist](oist.md)
diff --git a/md-to-sl/test/dune b/md-to-sl/test/dune
@@ -1,3 +0,0 @@
-(test
- (name test_md_to_sl)
- (libraries md_to_sl))
diff --git a/md-to-sl/test/test_md_to_sl.ml b/md-to-sl/test/test_md_to_sl.ml
