From e128fcb2a021587aa428097f867c200c1ed3c426 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 28 Feb 2022 15:52:48 -0600
Subject: change signature tested

---
 build-app.lisp | 8 ++++----
 src/lib.lisp   | 3 ++-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/build-app.lisp b/build-app.lisp
index c60da1b..0899c33 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -62,10 +62,10 @@ my1337pw.")
          (flag :long-name "explain"
                :description "View oneliner explaination text.")
          (enum :long-name "help"
-               :enum '(:contributors :wiki :invites)
+               :enum '(:account :wiki :invites)
                :argument-name "TOPIC"
                :description "Print help for a topic. 
-Topics:  wiki, access, invites"))
+Topics:  wiki, account, invites"))
   (group (:header "Wiki" :hidden t)
          (text :contents "Options For Managing Oneliners")
          (flag :long-name "add"
@@ -80,7 +80,7 @@ Topics:  wiki, access, invites"))
                :description "If you have admin priviliges, lock a oneliner from being edited.")
          (flag :long-name "unlock"
                :description "If you have admin priviliges, unlock a oneliner."))
-  (group (:header "Contributors" :hidden t)
+  (group (:header "Account" :hidden t)
          (text :contents "Options for Managing Your Contributor Account")
          (flag :long-name "login"
                :description "Attempt to login to your contributor account. ARGS are interpreted as USERNAME PASSWORD.")
@@ -135,7 +135,7 @@ than the users."
              (cli::change-pw current new repeated)))
           
           ((getopt :long-name "change-signature")
-           (cli:change-signature))
+           (cli::change-signature))
 
           ((getopt :long-name "invite")
            (cli::request-invite-code))
diff --git a/src/lib.lisp b/src/lib.lisp
index 713e86b..c90a022 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -411,7 +411,8 @@ the directories that appear in the value of that variable."
     (ensure-config)
     (api:request-with
         (:host (host)
-         :body (jonathan:to-json (list :signature new-sig)))
+         :body (jonathan:to-json (list :signature new-sig))
+         :content-type "application/json")
       (api:put--contributor-who-signature (contributor-handle) :token (api-token))
       (format t "Your signature was changed.~%"))))
 
-- 
cgit v1.2.3