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))

; For that you should use parser combinators and the monadic interface!
; if you have conditionals in your parser, this is the way to go

(def id5
  (z/do-parser [
     _ (char \#)
     n  number
     symb (<|> (char \#) (char \=))]
     (if (= symb \#)
       [:ref n]
       [:def n])))