aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-14 13:30:26 -0600
committerColin Okay <okay@toyful.space>2022-02-14 13:30:26 -0600
commit45388d006b15f02553ced7684f67f8718c992814 (patch)
treea08017b9f47b94ac81a09c005bfe0bee658421da /src
parent2f6af2841b1064b0bf97699f648f9e59a344908e (diff)
typo in defendpoint* for /search.
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp18
1 files changed, 8 insertions, 10 deletions
diff --git a/src/main.lisp b/src/main.lisp
index 0dcc5cd..3c9092d 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -246,13 +246,12 @@
(defparameter +oneliners-description+
"TBD")
-(defun init-app ()
- (lzb:provision-app ()
- :title "Oneliners Wiki API"
- :version "0.0.1"
- :desc +oneliners-description+
- :content-type "application/json"
- :auth 'api-token-authorization))
+(lzb:provision-app ()
+ :title "Oneliners Wiki API"
+ :version "0.0.1"
+ :desc +oneliners-description+
+ :content-type "application/json"
+ :auth 'api-token-authorization)
(defun api-token-authorization ()
;; presently if the token merely exists then that's good enough.
@@ -280,18 +279,17 @@
;;; ENDPOINT DEFINITIONS
(defendpoint* :get "/search" ((commands a-csl)
- (keywords a-cls)
+ (keywords a-csl )
(limit an-int)
(page a-page-key)
(nextpage a-boolean)
(notflagged a-boolean)
(onlyaudited a-boolean))
- ()
+ (:content-type "application/json")
"A search endpoint returning a JSON encoded array of Oneliner Entries.
**Note**: either command or keywords are required.
"
- (print commands)
(cond
;; if page is incluced, ignore everything, fetch the next page,
;; and return it.