From 2c28f85946538397e0a32ef334b525e5db29712c Mon Sep 17 00:00:00 2001
From: William Carroll <wpcarro@gmail.com>
Date: Thu, 23 Jan 2020 16:34:07 +0000
Subject: [PATCH] Start working on a blog

Attempting to write a blog where:

- The server is Common Lisp. Why? I'd like to learn Common Lisp.
- The blog posts can be written in Markdown.
- The package is developed and deployed using Nix.

Most of this is a learning exercise. The blog itself is something that I'd like
to use instead of Medium and other forums.
---
 blog/default.nix     | 15 +++++++++++++++
 blog/posts/test.md   |  4 ++++
 blog/src/server.lisp | 10 ++++++++++
 3 files changed, 29 insertions(+)
 create mode 100644 blog/default.nix
 create mode 100644 blog/posts/test.md
 create mode 100644 blog/src/server.lisp

diff --git a/blog/default.nix b/blog/default.nix
new file mode 100644
index 000000000..7005cc648
--- /dev/null
+++ b/blog/default.nix
@@ -0,0 +1,15 @@
+{
+  depot ? import <depot> {},
+  universe ? import <universe> {},
+  ...
+}:
+
+depot.nix.buildLisp.program {
+  name = "server";
+  deps = with depot.third_party.lisp; [
+    hunchentoot
+  ];
+  srcs = [
+    ./src/server.lisp
+  ];
+}
diff --git a/blog/posts/test.md b/blog/posts/test.md
new file mode 100644
index 000000000..ec2e030b2
--- /dev/null
+++ b/blog/posts/test.md
@@ -0,0 +1,4 @@
+# Testing
+
+The goal here is to be able to write markdown files and have a server that can
+render the markdown into HTML and serve them to the clients.
diff --git a/blog/src/server.lisp b/blog/src/server.lisp
new file mode 100644
index 000000000..63323e933
--- /dev/null
+++ b/blog/src/server.lisp
@@ -0,0 +1,10 @@
+(in-package #:cl-user)
+(defpackage #:server
+  (:documentation "Robot condemned to a life of admin work for my blog.")
+  (:use #:cl)
+  (:export :main))
+(in-package #:server)
+
+(defun main ()
+  "This is the main entrypoint for our application."
+  (hunchentoot))