src/discourse/search.sgl — sigil-discourse

1;;; (discourse search) - Full-text search.

2;;;

3;;; Functions for searching topics, posts, and users on Discourse.

5(define-library (discourse search)

6 (import (sigil core)

7 (sigil string)

8 (discourse client))

10 (export discourse-search)

12 (begin

14 ;;; Search the forum for topics, posts, and users.

15 ;;;

16 ;;; query supports Discourse search syntax (e.g., "in:title", "#category",

17 ;;; "@username", "status:open", etc.).

18 ;;; The query is URL-encoded before being appended to the URL.

19 (define (discourse-search base-url api-key username query)

20 (discourse-get/json api-key username

21 (discourse-url/query base-url

22 (list (cons 'q query))

23 "search.json")))

25 ))