First create the JSON payload following the Micropub spec. This function expects an org-roam note, i.e. one file per node.

I use ox-pandoc to create my html but it could probably be done using the built in html export.

(defun org-to-micropub-json ()
  "Convert the current org buffer to a JSON payload for Micropub."
  (interactive)
  (let* ((org-pandoc-options '((standalone . nil))) ; Set standalone to nil
                           (result (org-pandoc-export-to-html5 nil nil t))
                           (output-file (nth 3 result))
                (html (with-temp-buffer (insert-file-contents output-file)
                                        (prog1 (buffer-string) (delete-file output-file))))
         (category (org-entry-get-multivalued-property (point-min) "MP-CATEGORY"))
         (published (org-entry-get (point-min) "CAPTURED"))
         (payload `((type . ("h-entry"))
                 (properties
                  (content ((html . ,html)))
                  (published . ,(list (org-timestamp-to-iso published)))
                  (category . ,category)))))
         (json-encode payload)))

Since I’m doing this in an orgmode file I can run the blocks and I get the output generated in a box below.

It looks like this since I’m only defining a function:

#+RESULTS:
: org-to-micropub-json

HTTP request

To send the POST request I used request.

(require 'request)

(defun post-to-micropub (json-payload auth-token)
  "Send a JSON payload to the Micropub endpoint with an authorization token."
  (request
    "https://micro.blog/micropub"
    :type "POST"
    :headers `(("Content-Type" . "application/json")
               ("Authorization" . ,(concat "Bearer " auth-token)))
    :data (json-encode json-payload)
    :parser 'json-read
    :success (cl-function
              (lambda (&key data &allow-other-keys)
                (message "Posted successfully: %S" data)))
    :error (cl-function
            (lambda (&key error-thrown &allow-other-keys&rest _)
              (message "Error: %S" error-thrown)))))

Again, I only get the name of the function returned.

Running it

(post-to-micropub (org-to-micropub-json)
        (with-temp-buffer
        (insert-file-contents "~/.config/sops-nix/secrets/microblog_mp/emacs")
        (buffer-string)))

This one has more output, this is just a snippet:

#+RESULTS:
: #s(request-response nil nil nil nil nil "https://micro.blog/micropub" nil (:type "POST" :headers (("Content-Type" . "application/json) [...]

I’ll tweak this a bit more, and experiment with sending markdown instead of HTML. It would be great to store the URL to the posted note in the properties drawer, that way further updates could be done again from the buffer.

Nice to be able to publish from my editor >:).