     nil
     ("Introduce a Macro" erl-refactor-new-macro)
     ("Fold Against Macro Definition" erl-refactor-fold-against-macro)
-    nil 
-    ;;("Identical Code Detection"
-    ;; (("Detect Identical Code in Current Buffer"  erl-refactor-duplicated-code-in-buffer)
-    ;;  ("Detect Identical Code in Dirs" erl-refactor-duplicated-code-in-dirs)
-    ;;  ("Identical Expression Search in Current Buffer" erl-refactor-expression-search)
-    ;;  ("Identical Expression Search in Dirs" erl-refactor-expression-search-in-dirs)
-    ;;  ))
-    ;;nil
-    ("Similar Code Detection"
-     (("Detect Similar Code in Current Buffer" erl-refactor-inc-sim-code-detection-in-buffer)
-      ("Detect Similar Code in Dirs" erl-refactor-inc-sim-code-detection-in-dirs)
-      ("Similar Expression Search in Current Buffer" erl-refactor-similar-expression-search)
-      ("Similar Expression Search in Dirs" erl-refactor-similar-expression-search-in-dirs)
-    ;;  ("Detect Similar Code in Current Buffer (Old)" erl-refactor-sim-code-detection-in-buffer)
-    ;;  ("Detect Similar Code in Dirs (Old)" erl-refactor-sim-code-detection-in-dirs)
-      ))
     nil
     ("Refactorings for QuickCheck"  
      (

      ("eqc_statem State Data to Record" erl-refactor-eqc-statem-to-record)
      ("eqc_fsm State Data to Record" erl-refactor-eqc-fsm-to-record)
      ("Test Cases to Property"  erl-refactor-test-cases-to-property)
     ))
    nil
    ("Process Refactorings (Beta)"
     (

    ("Partition Exported Functions"  erl-wrangler-code-inspector-partition-exports)
    ("gen_fsm State Data to Record" erl-refactor-gen-fsm-to-record)
    nil
    ("Apply Adhoc Refactoring"  apply-adhoc-refac)
    ("Apply Composite Refactoring" apply-composite-refac)
    ))

(defvar inspector-menu-items
  '(("Instances of a Variable" erl-wrangler-code-inspector-var-instances) 
    ("Calls to a Function" erl-wrangler-code-inspector-caller-funs)
    ("Dependencies of a Module" erl-wrangler-code-inspector-caller-called-mods)
    ("Nested If Expressions" erl-wrangler-code-inspector-nested-ifs)
    ("Nested Case Expressions" erl-wrangler-code-inspector-nested-cases)
    ("Nested Receive Expression" erl-wrangler-code-inspector-nested-receives)
    ("Long Functions" erl-wrangler-code-inspector-long-funs)
    ("Large Modules" erl-wrangler-code-inspector-large-mods)
    ("Generate Function Callgraph" erl-wrangler-code-inspector-callgraph)
    ("Generate Module Graph" erl-wrangler-code-inspector-module-graph)
    ("Cyclic Module Dependency" erl-wrangler-code-inspector-cyclic-graph)
    ("Module Dependency via Only Internal Functions" erl-wrangler-code-inspector-improper-module-dependency)
    ;;("Component Extraction Suggestion" erl-wrangler-code-component-extraction)
    ("Show Non Tail Recursive Servers" erl-wrangler-code-inspector-non-tail-recursive-servers)
    ("Incomplete Receive Patterns" erl-wrangler-code-inspector-no-flush)
    nil
    ("Apply Adhoc Code Inspection" apply-my-code-inspection)
    ))

(defvar wrangler-menu-items
  `(("Refactor" ,refactor-menu-items)
    ("Inspector" ,inspector-menu-items)
    nil
    ("Undo" erl-refactor-undo)
    nil 
    ("Similar Code Detection"
     (("Detect Similar Code in Current Buffer" erl-refactor-inc-sim-code-detection-in-buffer)
      ("Detect Similar Code in Dirs" erl-refactor-inc-sim-code-detection-in-dirs)
      ("Similar Expression Search in Current Buffer" erl-refactor-similar-expression-search)
      ("Similar Expression Search in Dirs" erl-refactor-similar-expression-search-in-dirs)
      ;;  ("Detect Similar Code in Current Buffer (Old)" erl-refactor-sim-code-detection-in-buffer)
      ;;  ("Detect Similar Code in Dirs (Old)" erl-refactor-sim-code-detection-in-dirs)
      ))
    ;;nil
    ;;("Identical Code Detection"
    ;; (("Detect Identical Code in Current Buffer"  erl-refactor-duplicated-code-in-buffer)
    ;;  ("Detect Identical Code in Dirs" erl-refactor-duplicated-code-in-dirs)
    ;;  ("Identical Expression Search in Current Buffer" erl-refactor-expression-search)
    ;;  ("Identical Expression Search in Dirs" erl-refactor-expression-search-in-dirs)
    ;;  ))
    nil
    ("Skeletons"
     (("gen_refac Skeleton"  tempo-template-gen-refac)
      ("Include wrangler.hrl"    tempo-template-include-wrangler)
      ))
    nil
    ("Customize Wrangler" wrangler-customize)
    nil 
    ("Version" erl-refactor-version)
    ))


(global-set-key (kbd "C-c C-r") 'toggle-erlang-refactor)
