Source

lowdown / lowdown-extra.scm

(module lowdown-extra

(enable-lowdown-extra! inline-note)

(import chicken scheme)
(use comparse lowdown-lolevel clojurian-syntax)

(define inline-note
  (enclosed-by (char-seq "^[")
               (->> (none-of* (is #\]) inline)
                    (one-or-more)
                    (node 'inline-note))
               (char-seq "]")))

(define (enable-lowdown-extra!)
  (inline-hook (cons inline-note (inline-hook)))
  (void))

)