1 files changed, 86 insertions, 0 deletions
diff --git a/create-update-post.el b/create-update-post.el
new file mode 100644
index 0000000..e8253d9
--- /dev/null
+++ b/create-update-post.el
@@ -0,0 +1,86 @@
+(defun mk/create-update-post ()
+  "Create a new 'Update' post for today in the _posts folder."
+  (interactive)
+  (let* ((date (current-time))
+         (month-name (downcase (format-time-string "%b" date)))
+         (day (format-time-string "%d" date))
+         (year (format-time-string "%Y" date))
+         (full-month (format-time-string "%B" date))
+         (weekday (format-time-string "%a" date))
+         (time (format-time-string "%H:%M" date))
+         (filename (format "%s_%s_%s.org" month-name day year))
+         (project-root (locate-dominating-file default-directory ".git"))
+         (posts-dir (expand-file-name "_posts" project-root))
+         (filepath (expand-file-name filename posts-dir))
+         (uuid (org-id-uuid))
+         (org-date (format "<%s-%s-%s %s %s>" year (format-time-string "%m" date) day weekday time))
+         (title (format "Update %s %s, %s" full-month day year)))
+
+    ;; Check if file already exists
+    (if (file-exists-p filepath)
+        (message "Post file already exists: %s" filepath)
+
+      ;; Create the file with the template
+      (with-temp-file filepath
+        (insert ":PROPERTIES:\n")
+        (insert (format ":ID:       %s\n" uuid))
+        (insert ":END:\n")
+        (insert "\n")
+        (insert (format "#+TITLE: %s\n" title))
+        (insert (format "#+DATE: %s\n" org-date))
+        (insert "#+filetags: :update:\n")
+        (insert "\n")
+        (insert "* What have I been up to?\n")
+        (insert "\n"))
+
+      ;; Open the file
+      (find-file filepath)
+      (goto-char (point-max))
+      (message "Created new update post: %s" filepath))))
+
+(defun mk/create-regular-post ()
+  "Create a new regular blog post with a custom title in the _posts folder."
+  (interactive)
+  (let* ((title (read-string "Post title: "))
+         (date (current-time))
+         (year (format-time-string "%Y" date))
+         (month (format-time-string "%m" date))
+         (day (format-time-string "%d" date))
+         (month-name (downcase (format-time-string "%b" date)))
+         (weekday (format-time-string "%a" date))
+         (time (format-time-string "%H:%M" date))
+         (filename-base (replace-regexp-in-string "[^a-z0-9_]+" "_" (downcase title)))
+         (filename (format "%s_%s_%s.org" month-name day year))
+         (project-root (locate-dominating-file default-directory ".git"))
+         (posts-dir (expand-file-name "_posts" project-root))
+         (filepath (expand-file-name filename posts-dir))
+         (uuid (org-id-uuid))
+         (org-date (format "<%s-%s-%s %s %s>" year month day weekday time)))
+
+    ;; Check if file already exists
+    (if (file-exists-p filepath)
+        (message "Post file already exists: %s" filepath)
+
+      ;; Create the file with the template
+      (with-temp-file filepath
+        (insert ":PROPERTIES:\n")
+        (insert (format ":ID:       %s\n" uuid))
+        (insert ":END:\n")
+        (insert (format "#+TITLE: %s\n" title))
+        (insert (format "#+DATE: %s\n" org-date))
+        (insert "#+filetags: :TODO:\n")
+        (insert "\n")
+        (insert "\n")
+        (insert "\n")
+        (insert "* Introduction\n")
+        (insert ":PROPERTIES:\n")
+        (insert (format ":ID:       %s\n" (org-id-uuid)))
+        (insert ":END:\n")
+        (insert "\n"))
+
+      ;; Open the file
+      (find-file filepath)
+      (goto-char (point-max))
+      (message "Created new regular post: %s" filepath))))
+
+(provide 'create-update-post)