Source Code

;; Forums
(define-map forums uint {name: (string-ascii 50), description: (string-ascii 200)})
(define-data-var forum-id uint u0)
(define-public (create-forum (name (string-ascii 50)) (description (string-ascii 200)))
  (let ((id (var-get forum-id)))
    (map-set forums id {name: name, description: description})
    (var-set forum-id (+ id u1))
    (ok id)))
(define-read-only (get-forum (id uint))
  (map-get? forums id))

Functions (2)

FunctionAccessArgs
create-forumpublicname: (string-ascii 50
get-forumread-onlyid: uint