parkour/parser/clojure/init.lua

   1 -- SPDX-License-Identifier: GPL-3.0-or-later
   2 -- © 2020 Georgi Kirilov
   3
   4 require'lpeg'
   5 local lpeg = lpeg
   6 local P, S = lpeg.P, lpeg.S
   7
   8 local macro_prefix =
   9         P'#' * ('?' * P'@'^-1 + '_')^-1 +
  10         S"^@`'"
  11
  12 local weak_prefix = P'#'
  13
  14 local delimiters = {
  15         ['('] = ')',
  16         ['{'] = '}',
  17         ['['] = ']',
  18         ['"'] = '"',
  19         [';'] = '\n',
  20 }
  21
  22 return {
  23         prefix = macro_prefix,
  24         weak_prefix = weak_prefix,
  25         opposite = delimiters,
  26 }