You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
1.9 KiB
60 lines
1.9 KiB
;; (C) Copyright 2020 C-xC-c <boku@plum.moe>
|
|
;; This file is part of bantflags.
|
|
;; bantflags is licensed under the GNU AGPL Version 3.0 or later.
|
|
;; see the LICENSE file or <https://www.gnu.org/licenses/>
|
|
(in-package #:bantflags)
|
|
|
|
(defvar empty-flag '("empty, or there were errors. Re-set your flags."))
|
|
|
|
(defun conf (thing &aux (item (cadr (assoc thing config))))
|
|
(if (null item)
|
|
(error "no such config item" thing)
|
|
item))
|
|
|
|
(defun set-boards ()
|
|
(setf *boards* (make-hash-table :test 'equal))
|
|
(mapc (lambda (board) (setf (gethash board *boards*) t)) (conf 'boards)))
|
|
|
|
(defun set-flags ()
|
|
(setf *flags* (make-hash-table :test 'equal))
|
|
(let ((flags (get-flags)))
|
|
(loop for (id . flag) in flags
|
|
do (setf (gethash (car flag) *flags*) id))
|
|
(setf *flags-txt* ;; We don't want users to select `empty-flag`
|
|
(cl-ppcre:regex-replace (concatenate 'string (car empty-flag) "\\n") ;; newline
|
|
(format nil "~{~a~^~%~}" (mapcan (lambda (x) (cdr x)) flags))
|
|
""))))
|
|
|
|
;; validation
|
|
(defun post-number-p (post_nr)
|
|
(if (or (null post_nr)
|
|
(null (parse-integer post_nr :junk-allowed t)))
|
|
nil
|
|
post_nr))
|
|
|
|
(defun boardp (board)
|
|
(gethash board *boards*))
|
|
|
|
(defun insert-post-p (post_nr regions board)
|
|
(cond
|
|
((not (post-number-p post_nr))
|
|
(values nil "Invalid post number."))
|
|
((not (boardp board))
|
|
(values nil "Invalid board parameter."))
|
|
((null regions)
|
|
(values t empty-flag))
|
|
((< 30 (length regions))
|
|
(values nil "Too many flags."))
|
|
((every (lambda (flag) (gethash flag *flags*)) regions)
|
|
(values t regions))
|
|
(t (values t empty-flag))))
|
|
|
|
(defun get-posts-p (post_nrs board)
|
|
(and (not (null post_nrs))
|
|
(every #'post-number-p post_nrs)
|
|
(boardp board)))
|
|
|
|
;; Content types
|
|
(defparameter @json "application/json")
|
|
(defparameter @plain "text/plain")
|