;;; wiki.el -- A wikitext mode -*- lexical-binding: t -*-

;; Copyright (C) 2023 Free Software Foundation.

;; Author: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))

;; This file is part of dotted.

;; dotted is free software: you can redistribute it and/or modify it under
;; the terms of the GNU Affero General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; dotted is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General
;; Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with dotted.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; A wikitext mode.

;;; Code:
(require 'parsec)

(defun wiki-file ()
  (parsec-many (wiki-block)))

(defun wiki-block ()
  (parsec-or (wiki-header)))

(defun wiki-header ()
  (let* ((marker (parsec-many-s (parsec-ch ?=)))
         (raw-content
          (string-trim
           (parsec-many-till-s
            (parsec-none-of ?\n)
            (parsec-try
             (parsec-and
               (parsec-str marker)
               (wiki-header-end)))))))
    (list 'Header
          (length marker)
          (parsec-with-input raw-content
            (wiki-inlines)))))

(defun wiki-header-end ()
  (parsec-and
    (parsec-many (wiki-space))
    (parsec-eol-or-eof)))

(defun wiki-space ()
  (parsec-one-of ?\s ?\t))

(defun wiki-inlines ()
  (parsec-many (wiki-inline)))

(defun wiki-inline ()
  (parsec-or (wiki-plain)))

(defun wiki-plain ()
  (list 'Plain (parsec-many1-as-string (parsec-any-ch))))

(define-derived-mode wiki-mode text-mode "Wiki"
  "A wikitext mode.")

(provide 'wiki)
;;; wiki.el ends here