gistfile1.clj

(ns blah
  (:use [zetta.parser.seq :only (whitespace number char)]
        [zetta.combinators :only (choice around)]
        [zetta.core :only (*>, <*)])
  (:require [zetta.core :as z]))

(def whitespaces (many whitespace))

(def id4
  (around
   whitespaces
   (*> (char \#)
       (<$> (fn [n c] (case c
                    \= [:def n]
                    \# [:ref n])) number (choice [(char \=)
                    (char \#)])))))

; Nice! We can distinguish the choice.