csrhodes

import Data.Char ( isAlphaNum )
import Text.Pandoc.JSON

main = toJSONFilter relink

depunct :: String -> String
depunct x = map frob x
        where frob c = if isAlphaNum c then c else if c == '_' then c else '-'

relink :: Inline -> Inline

csrhodes

(defun function-calls (form)
  (flet ((fcall-walker (subform context env)
           (typecase subform
             (atom subform)
             ((cons (satisfies special-operator-p)) subform)
             ((cons (satisfies macro-function)) subform)
             (t (print (car subform)) subform))))
    (sb-walker:walk-form form nil #'fcall-walker)))