Skip to content

Instantly share code, notes, and snippets.

@djtango
Created April 2, 2019 18:06
Show Gist options
  • Save djtango/6bc2115069bbb9328f37b55feb0dfa60 to your computer and use it in GitHub Desktop.
Save djtango/6bc2115069bbb9328f37b55feb0dfa60 to your computer and use it in GitHub Desktop.
fn-name
(ns fn-name
(:require [clojure.main]))
;; https://stackoverflow.com/questions/22116257/how-to-get-functions-name-as-string-in-clojure
(defn fn-name
[f]
(as-> (str f) $
(clojure.main/demunge $)
(or (re-find #"(.+)--\d+@" $)
(re-find #"(.+)@" $))
(last $)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment