aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--build-app.lisp8
-rw-r--r--src/lib.lisp3
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.~%"))))