{{title}}
-For those using a RSS reader, subscribe here: rss.xml
+For those using a RSS reader, subscribe here: rss.xml
" <> paragraph <> "
\n") end) - |> Enum.join("") - end - end) + Regex.replace(template, fn _, key -> Map.get(pairs, String.to_atom(key)) end) end fill_template_pretemplated = fn template -> &fill_template.(template, &1) end -post_contents = File.ls!("./posts") +wrapInParagraphs = fn content -> content + |> String.split("\\n") + |> Enum.reject(fn(x) -> x == "" end) + |> Enum.map(fn paragraph -> if String.starts_with?(paragraph, "<") do paragraph else "" <> paragraph <> "
" end end) + |> Enum.join("") +end +post_contents_custom = File.ls!("./posts_custom") |> Enum.reject(fn(x) -> String.starts_with?(x, ".") end) - |> Enum.map(fn f -> File.read!("./posts/" <> f) end) + |> Enum.map(fn f -> File.read!("./posts_custom/" <> f) end) |> Enum.map(fn c -> String.split(c, "\n") end) |> Enum.map(fn c -> Enum.reject(c, fn(x) -> x == "" end) end) |> Enum.map(fn c -> Enum.chunk_every(c, 2) end) @@ -31,8 +29,58 @@ post_contents = File.ls!("./posts") Enum.map(c, fn [k, v] -> %{String.to_atom(k) => v} end) |> Enum.reduce(%{}, fn(x, acc) -> Map.merge(x, acc) end) end) + |> Enum.map(fn m -> Map.update!(m, :content, wrapInParagraphs) end) + +filterCutFileExtension = fn files -> + fn ext -> + Enum.filter(files, &String.ends_with?(&1, "." <> ext)) + |> Enum.map(&String.replace_suffix(&1, "." <> ext, "")) + |> (fn x -> %{String.to_atom(ext) => x} end).() + end +end + +isMeta = &String.starts_with?(&1, "#+") + +posts_org = + File.ls!("./posts_org") + |> Enum.reject(fn x -> String.starts_with?(x, ".") end) + |> (fn files -> Enum.map(["org", "html"], filterCutFileExtension.(files)) end).() + |> Enum.reduce(%{}, fn x, acc -> Map.merge(x, acc) end) + +post_contents_org = + Enum.filter(Map.get(posts_org, :org), fn el -> Enum.member?(Map.get(posts_org, :html), el) end) + |> Enum.map( + &(File.read!("./posts_org/" <> &1 <> ".org") + |> (fn fileContent -> String.split(fileContent, "\n") end).() + |> Enum.take_while(isMeta) + |> Enum.map(fn metaOrg -> + [head | tail] = String.split(metaOrg, ":") + + %{ + (String.slice(head, 2..-1) |> String.downcase() |> String.to_atom()) => + String.slice(Enum.join(tail, ":"), 1..-1) + } + end) + |> Enum.reduce(%{:content => File.read!("./posts_org/" <> &1 <> ".html")}, fn x, acc -> + Map.merge(x, acc) + end)) + ) months = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"] + +dateFolder = fn p -> + Map.get(p, :date) + |> String.slice(8..15) + |> String.split(" ") + |> (fn ([month, year]) -> year <> "/" <> Integer.to_string(Enum.find_index(months, &(&1 == month)) + 1) <> "/" end).() +end +normalize_title = fn title -> String.replace(String.downcase(title), " ", "-") end + +constructLocalPath = fn p -> dateFolder.(p) <> normalize_title.(Map.get(p, :title)) end + +post_contents = Enum.concat(post_contents_custom, post_contents_org) + |> Enum.map(fn postMap -> Map.merge(postMap, %{localpath: (constructLocalPath.(postMap))}) end) + index_file = post_contents |> Enum.sort_by(fn m -> Map.get(m, :date) |> (fn d -> Enum.find_index(months, &(&1 == String.slice(d, 8..10))) end).() end) |> Enum.reverse() @@ -42,7 +90,7 @@ index_file = post_contents |> Enum.reverse() |> Enum.map(fn {month, posts} -> "\nHi there, good to see you on my website. - My name is Raymon Zutekouw; Self-thaught programmer by heart. + My name is Raymon Zutekouw; Self-taught programmer by heart.
diff --git a/client/templates/post_item.xml b/client/templates/post_item.xml
index fca9f40..3d9c42e 100644
--- a/client/templates/post_item.xml
+++ b/client/templates/post_item.xml
@@ -1,14 +1,9 @@
For those using a RSS reader, subscribe here: rss.xml{{title}}
- For those using a RSS reader, subscribe here: rss.xml
+