;; stolen form lowdown-extra
(define inline-wiki-link
  (c-enclosed-by (c-char-seq "[[")
               (->> (c-none-of* (c-is #\]) inline)
                    (c-one-or-more)
                    (node 'wiki-link))
               (c-char-seq "]]")))

(define wiki-html-conversion-rules*
  `((wiki-link . ,(lambda (_ page-name)
                    `(a (@ (href ,page-name)) . ,page-name)))))

(inline-hook (cons inline-wiki-link (inline-hook)))
(markdown-html-conversion-rules*
 (append wiki-html-conversion-rules*
         (markdown-html-conversion-rules*)))