make serve function

2020-08-28 18:24:58 +02:00
parent 7a711e8286
commit 909f637722
2 changed files with 22 additions and 3 deletions
--- a/20
+++ b/20
@@ -1,6 +1,8 @@
 src := content
 cache := .cache
-www := _site/posts
+www_root := _site
+www := $(www_root)/posts
+post_index := $(www_root)/posts.html

 post_compiler := src/webcc.ml
 builddir := _build/default
@@ -10,7 +12,9 @@ POSTCC := $(builddir)/$(patsubst %.ml,%.exe,$(post_compiler))
 post-sources := $(shell find $(src)/ -type f)
 post-htmls   := $(patsubst $(src)/%.md,$(www)/%.html,$(post-sources))

-all: $(POSTCC) $(post-htmls)
+.PHONY: all serve clean $(post_index)
+
+all: $(POSTCC) $(post-htmls) $(post_index) $(www_root)/static

 $(www):
 	mkdir -p $(www)
@@ -18,8 +22,20 @@ $(www):
 $(www)/%.html: $(src)/%.md $(www)
 	$(POSTCC) $< -o $@

+# make sure that this target is .PHONY!
+$(post_index):
+	echo LOL > $@
+
+
+$(www_root)/static:
+	cp -R static $@
+
 $(POSTCC): $(post_compiler)
 	dune build

 clean:
 	rm $(POSTCC)
+	rm -fr $(www_root)
+
+serve:
+	cd $(www_root) && python -m SimpleHTTPServer
--- a/src/webcc.ml
+++ b/src/webcc.ml
@@ -10,7 +10,7 @@ let spec =
    " Consider all remaining arguments as input file names.";
  ]

-
+(** Utitilies *)
 let with_open_in fn f =
  let ic = open_in fn in
  match f ic with
@@ -34,6 +34,8 @@ let read_metadata ic =
    | _ -> lst
  in go []

+(** Functions for processing an individual post *)
+
 let format_post ~title ~tags ~date ~contents =
  String.concat "" [
 {|<!DOCTYPE html>
@@ -69,6 +71,7 @@ let format_post ~title ~tags ~date ~contents =
 </body>|}]


+(* convert contents from [ic] to a post webpage, output to [oc] *)
 let process ic oc =
  let metadata = read_metadata ic in
  let lookup_metadata k =