1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77

import Lean

-- This should be rewritten to use Lake to load and parse the configs instead of brittle string manipulation
def prelude : Bool → List String
  | true =>
    [
      "# automatically inserted by LeanTex, DO NOT MODIFY",
      "[[lean_exe]]",
      "name = \"GenerateSlides\"",
      "root = \"GenerateSlides\""
    ]
  | false =>
    [
      "-- automatically inserted by LeanTex, DO NOT MODIFY",
      "lean_exe GenerateSlides where",
      "  root := `GenerateSlides"
    ]

def containsLeanExeDecl (s: String) (isToml: Bool) :=
  s.split "\n"
  |>.toStringList
  |>.findSome? (·.trimAscii.dropPrefix? (if isToml then "name = \"GenerateSlides\"" else "lean_exe GenerateSlides where"))
  |>.isSome

def extractDeps (s: String) : Bool → List String
  | true =>
    s.split "[["
    |>.toStringList
    |>.filterMap (·.dropPrefix? "lean_lib]]\nname = \"")
    |>.filterMap (·.trimAscii.toString |>.split "\"" |>.toStringList |>.head?)
  | false =>
    s.split "\n"
    |>.toStringList
    |>.map (·.trimAscii)
    |>.filterMap (·.dropPrefix? "lean_lib ")
    |>.filterMap (·.trimAscii.toString |>.split " " |>.toStringList |>.head?)

def generateSlidesLean (deps: List String) :=
   let importDeps :=
       deps.map (fun dep => s!"import {dep}")
       |> String.intercalate "\n"
s!"
{importDeps}
import GenerateSlidesLib

#leantex_config latexConfig

unsafe def main : IO Unit := do
   generateSlides latexConfig
"

def lakefileToml : System.FilePath := "lakefile.toml"
def lakefileLean : System.FilePath := "lakefile.lean"
def GenerateSlides : System.FilePath := "GenerateSlides.lean"

def main : IO Unit := do
  let isToml <- lakefileToml.pathExists

  if !isToml && !(<- lakefileLean.pathExists) then
    throw <| IO.userError s!"lakefile not found"

  let lakefile := if isToml then lakefileToml else lakefileLean
  let lakefileContents <- IO.FS.readFile lakefile
  let libs := extractDeps lakefileContents isToml

  if !(<- GenerateSlides.pathExists) then
     IO.FS.writeFile GenerateSlides <| generateSlidesLean libs

  if !(containsLeanExeDecl lakefileContents isToml) then
     IO.FS.writeFile lakefile <|
        lakefileContents
        ++ "\n"
        ++ String.intercalate "\n" (prelude isToml)
     let _ <- IO.Process.spawn {
        cmd := "lake",
        args := #["exe", "GenerateSlides"]
     }