• (inspector-content specs)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/commands/inspector.clj:206 top

(defn inspector-content [specs]
  (letfn [(spec-seq [seq]
            (let [[f & args] seq]
                (= f :newline) (str \newline)

                (= f :value)
                (let [[obj & [str]] args]
                  (value-part obj str))

                (= f :action)
                (let [[label lambda & options] args
                      {:keys [refresh?]} (apply hash-map options)]
                  (action-part label lambda refresh?)))))
          (spec-value [val]
              (string? val) val
              (seq? val) (spec-seq val)))]
    (map spec-value specs)))
Vars in swank.commands.inspector/inspector-content: defn letfn map
Used in 0 other vars

Comments top

No comments for inspector-content. Log in to add a comment.