sbbs.el: Diff

Differences From Artifact [fca4400146]:

File sbbs.el — part of check-in [c19493c97a] at 2023-09-09 09:54:41 on branch ben-hotfixes — make vip prefix argument in sbbs-compose-create work in /mona/ (user: anon, size: 31475) [annotate] [blame] [check-ins using]

To Artifact [8483c098a2]:

File sbbs.el — part of check-in [93422a4832] at 2023-09-09 10:02:00 on branch ben-hotfixes — add the "ornamentum" hash to allow posting out of the box (should be in a variable instead) (user: anon, size: 31507) [annotate] [blame] [check-ins using]

  (let ((board sbbs--board)
        (url-request-method "POST")
        (url-request-extra-headers
         '(("Content-Type" . "application/x-www-form-urlencoded")))
        (url-request-data
         (url-build-query-string
          `((epistula ,(buffer-string))
            (ornamentum "") (name "") (message "")
            (frontpage ,(if sbbs--thread-id "true" "false"))
            ,(if vip `(vip "on") nil)
            (inscriptio ,(if vip "sage" ""))
            . ,(and (not sbbs--thread-id)
                    `((titulus ,(read-string "Headline: ")))))))
        (url (if sbbs--thread-id
                 (sbbs--board-url (format "%d/post" sbbs--thread-id))

  (let ((board sbbs--board)
        (url-request-method "POST")
        (url-request-extra-headers
         '(("Content-Type" . "application/x-www-form-urlencoded")))
        (url-request-data
         (url-build-query-string
          `((epistula ,(buffer-string))
            (ornamentum "3b3738ae1c9295d272cec84ecf7af5c8") (name "") (message "")
            (frontpage ,(if sbbs--thread-id "true" "false"))
            ,(if vip `(vip "on") nil)
            (inscriptio ,(if vip "sage" ""))
            . ,(and (not sbbs--thread-id)
                    `((titulus ,(read-string "Headline: ")))))))
        (url (if sbbs--thread-id
                 (sbbs--board-url (format "%d/post" sbbs--thread-id))