Create denote functions for writing blog and microblog entries

Use YASnippet to define what I want to capture in each of these cases.

Author: vedang

init-el-get.el

@@ -366,6 +366,53 @@
  ;; Journal Entries
  (global-set-key (kbd "C-c d j")
  #'denote-journal-extras-new-entry)
+ ;; Publishing writing
+ (defun denote-publishing-extras-new-microblog-entry (&optional date)
+ "Create a new microblog entry.
+Set the title of the new entry according to the value of the user option
+`denote-journal-extras-title-format'.
+
+With optional DATE as a prefix argument, prompt for a date. If
+`denote-date-prompt-use-org-read-date' is non-nil, use the Org
+date selection module.
+
+When called from Lisp DATE is a string and has the same format as
+that covered in the documentation of the `denote' function. It
+is internally processed by `denote-parse-date'."
+ (interactive (list (when current-prefix-arg (denote-date-prompt))))
+ (let ((internal-date (denote-parse-date date))
+ (denote-directory (file-name-as-directory (expand-file-name "published" denote-directory))))
+ (denote
+ (denote-journal-extras-daily--title-format internal-date)
+ '("draft" "microblog")
+ nil nil date
+ ;; See YASnippet
+ "microblog")))
+
+ (defun denote-publishing-extras-new-blog-entry (&optional date)
+ "Create a new blog entry.
+
+With optional DATE as a prefix argument, prompt for a date. If
+`denote-date-prompt-use-org-read-date' is non-nil, use the Org
+date selection module.
+
+When called from Lisp DATE is a string and has the same format as
+that covered in the documentation of the `denote' function. It
+is internally processed by `denote-parse-date'."
+ (interactive (list (when current-prefix-arg (denote-date-prompt))))
+ (let ((internal-date (denote-parse-date date))
+ (denote-directory (file-name-as-directory (expand-file-name "published" denote-directory))))
+ (denote
+ (denote-title-prompt)
+ '("draft")
+ nil nil date
+ ;; See YASnippet
+ "fullblog")))
+
+ (global-set-key (kbd "C-c d p m")
+ #'denote-publishing-extras-new-microblog-entry)
+ (global-set-key (kbd "C-c d p b")
+ #'denote-publishing-extras-new-blog-entry)
 
  ;; Renaming Files
  (global-set-key (kbd "C-c d r") #'denote-rename-file)

snippets/org-mode/fullblog

@@ -0,0 +1,33 @@
+# -*- mode: snippet -*-
+# name: fullblog
+# key: fullblog
+# --
+#+category: $3
+#+options: toc:nil
+#+og_image: assets/images/$1.jpg
+#+og_description: $2
+# #+export_file_name: $1
+
+$0
+
+#+TOC: headlines 1
+
+* Meta Information: $1 :noexport:
+
+Clock the writing time against this entry.
+
+** Sketch / Outline of the post
+
+** Links
+
+1. Vedang.me website link, pubilshed at <date>: https://vedang.me/$1/
+2. Substack link if any, posted at <date>:
+3. Bitly link, created at <date>:
+4. Twitter Thread link, posted at <date>:
+5. Fosstodon link, posted at <date>:
+6. Buttondown, published at <date>:
+7. Linkedin link, posted at <date>:
+
+** Linkedin Post
+
+** Twitter Thread

snippets/org-mode/microblog

@@ -0,0 +1,25 @@
+# -*- mode: snippet -*-
+# name: microblog
+# key: microblog
+# --
+
+$0
+
+* Meta Information :noexport:
+
+Posted to:
+- [ ] Fosstodon
+- [ ] Twitter
+- [ ] Linkedin
+- [ ] Substack Notes
+- [ ] Chaitimers Discord
+- [ ] Unravel Discord
+- [ ] TEO Discord
+- [ ] REPL Discord
+- [ ] Links blog
+- [ ] ELD Whatsapp Group
+- [ ] XShift Whatsapp Group
+- [ ] Recurse Whatsapp Group
+- [ ] Recurse Zulip
+- [ ] Clojure Slack
+- [ ] Nilenso Slack