Clean topic model names

metadata.json

{
  "name": "Clean topic names",
  "kind": "script",
  "description": "Remove non-letter characters from topic names",
  "source_code": "script.whizzml",
  "imports":[
    ],
  "inputs":[
    {
      "name": "topic-model",
      "type": "topicmodel-id",
      "description": "The topic model to cleanse"
    }],
  "outputs":[]
}

script.whizzml

(define bad-chars "[^0-9A-Za-z]")
(define replacement "_")

(define (clean-name n) (replace n bad-chars replacement))

(define (rename-topics tm-id)
  (let (topics (reduce (lambda (r t)
                         (assoc r (t "id") {"name" (clean-name (t "name"))}))
                       {}
                       ((fetch tm-id) ["topic_model" "topics"])))
    (update tm-id {"topics" topics})))

(define result (rename-topics topic-model))