chore: reworked addpaper.ml, working on addentry.ml

Signed-off-by: Amlal El Mahrouss <amlal@nekernel.org>

3 files changed, 31 insertions, 9 deletions

diff --git a/.ocamlformat b/tools/.ocamlformat
index 978ef1a..978ef1a 100644
--- a/.ocamlformat
+++ b/tools/.ocamlformat
diff --git a/tools/addentry.ml b/tools/addentry.ml
new file mode 100644
index 0000000..29dce37
--- /dev/null
+++ b/tools/addentry.ml
@@ -0,0 +1,16 @@
+(*
+  File: addrule.ml
+  Purpose: Creates a makefile rule.
+  Copyright 2026, Amlal El Mahrouss & NeKernel.org Authors.
+  Licensed under Apache 2.0.
+*)
+
+open Stdlib
+open Out_channel
+open Printf
+
+(*
+  We just make a LaTeX file with the given title.
+*)
+let () = if Array.length Sys.argv >= 3 then
+  printf "We are done here.";
diff --git a/tools/mktex.ml b/tools/addpaper.ml
index aa75be1..ec91c58 100644
--- a/tools/mktex.ml
+++ b/tools/addpaper.ml
@@ -1,14 +1,15 @@
 (*
-        File: mktex.ml
-        Purpose: Builds a paper template for LaTeX.
-	      Copyright 2025-2026, Amlal El Mahrouss & NeKernel.org Authors.
-	      Licensed under Apache 2.0.
+  File: addpaper.ml
+  Purpose: Creates a paper template in LaTeX.
+  Copyright 2025-2026, Amlal El Mahrouss & NeKernel.org Authors.
+  Licensed under Apache 2.0.
 *)
 
 open Stdlib
 open Out_channel
 open Printf
 
+let author_index : int = 3
 let title_index : int = 2
 let file_index : int = 1
 let format = format_of_string "
@@ -20,14 +21,18 @@ let format = format_of_string "
 \\usepackage[margin=0.5in,top=1in,bottom=1in]{geometry}
 
 \\title{%s}
-\\author{John Doe.\\\\john@nekernel.org}
+\\author{%s.\\\\john@nekernel.org}
 \\date{\\today}
 
 \\begin{document}
 \\bf
 \\maketitle
 \\begin{center}
-	\\rule[1cm]{17cm}{0.01cm}
+	\\rule[0.01cm]{17cm}{0.01cm}
+\\end{center}
+\\abstract{}
+\\begin{center}
+	\\rule[0.01cm]{17cm}{0.01cm}
 \\end{center}
 \\end{document}
 ";;
@@ -35,12 +40,13 @@ let format = format_of_string "
 (*
   We just make a LaTeX file with the given title.
 *)
-let () = if Array.length Sys.argv >= 3 then
+let () = if Array.length Sys.argv >= 4 then
   let out_file : string = Sys.argv.(file_index)^".tex" in
     let file : out_channel = open_text out_file in
       fprintf file format Sys.argv.(title_index);
+      fprintf file format Sys.argv.(author_index);
     close_out file;
   else (
-    printf "mktex - Build LaTeX documents.\n";
-    printf "usage: <file_name> <document_title>\n"
+    printf "addpaper: Creates LaTeX papers.\n";
+    printf "addpaper: usage: <file_name> <document_title>\n"
   );