Re: name of current function [corrected]

[Stephen C. Gilardi]

On May 3, 2009, at 11:29 AM, Stephen C. Gilardi wrote:

        #'user/my-cool-func
        user=> (my-cool-func)
        entered user/my_cool_func
        5

But my_cool_func isn't my-cool-func...

Corrected code in "unmangle" in case anybody wants to use it sometime:

(ns debug-utils
  (:use [clojure.contrib.str-utils :only (re-sub)]))

(defn unmangle

  contains any underscores (a rare occurrence), the unmangled name will
  contain hyphens at those locations instead."
  [class-name]
  (.replace
   (re-sub #"^(.+)\$(.+)__\d+$" "$1/$2" class-name)
   \_ \-))

(defmacro current-function-name []
  "Returns a string, the name of the current Clojure function"
  `(-> (Throwable.) .getStackTrace first .getClassName unmangle))

[repl]

        Clojure 1.0.0-RC1-SNAPSHOT
        user=> (use 'debug-utils)
        nil
        user=> (defn my-cool-func []
        (println "entered" (current-function-name))
        5)
        #'user/my-cool-func
        user=> (my-cool-func)
        entered user/my-cool-func
        5
        user=>

--Steve

"Given the name of a class that implements a Clojure function, returns the function's name in Clojure. Note: If the true Clojure function name

smime.p7s
Description: S/MIME cryptographic signature