From 6750c84af5874a9b61ebdec64e54d095bac17c8e Mon Sep 17 00:00:00 2001
From: Ivan Kryvoruchko <gildraug@gmail.com>
Date: Sat, 26 Jan 2019 14:47:55 +0200
Subject: [PATCH] Add descriptions for clojure-mode map

---
 modules/lang/clojure/config.el | 30 +++++++++++-------------------
 1 file changed, 11 insertions(+), 19 deletions(-)

diff --git a/modules/lang/clojure/config.el b/modules/lang/clojure/config.el
index 8256614c7..5e05810bb 100644
--- a/modules/lang/clojure/config.el
+++ b/modules/lang/clojure/config.el
@@ -43,14 +43,12 @@
           cider-repl-wrap-history nil
           cider-stacktrace-default-filters '(tooling dup))
 
-    ;; TODO: Add mode-local labels when general support is in.
     (map! (:localleader
             (:map clojure-mode-map
               "'"  #'cider-jack-in
-              "\"" #'cider-jack-in-clojurescript)
-            (:map cider-mode-map
-              ;; eval
-              (:prefix "e"
+              "\"" #'cider-jack-in-clojurescript
+
+              (:prefix ("e" . "eval")
                 "d" #'cider-eval-defun-at-point
                 "D" #'cider-insert-defun-in-repl
                 "e" #'cider-eval-last-sexp
@@ -58,32 +56,26 @@
                 "r" #'cider-eval-region
                 "R" #'cider-insert-region-in-repl
                 "u" #'cider-undef)
-              ;; go/jump
-              (:prefix "g"
+              (:prefix ("g" . "go/jump")
                 "b" #'cider-pop-back
                 "g" #'cider-find-var
                 "n" #'cider-find-ns)
-              ;; help
-              (:prefix "h"
+              (:prefix ("h" . "help")
                 "n" #'cider-find-ns
                 "a" #'cider-apropos
                 "d" #'cider-doc
                 "g" #'cider-grimoire-web
                 "j" #'cider-javadoc)
-              ;; inspect
-              (:prefix "i"
+              (:prefix ("i" . "inspect")
                 "i" #'cider-inspect
                 "r" #'cider-inspect-last-result)
-              ;; macro
-              (:prefix "m"
+              (:prefix ("m" . "macro")
                 "e" #'cider-macroexpand-1
                 "E" #'cider-macroexpand-al)
-              ;; namespace
-              (:prefix "n"
+              (:prefix ("n" . "namespace")
                 "n" #'cider-browse-ns
                 "N" #'cider-browse-ns-all)
-              ;; repl
-              (:prefix "r"
+              (:prefix ("r" . "repl")
                 "n" #'cider-repl-set-ns
                 "q" #'cider-quit
                 "r" #'cider-refresh
@@ -105,9 +97,9 @@
   (def-package! clj-refactor
     :hook (clojure-mode . clj-refactor-mode)
     :config
-    (map! :map clj-refactor-map
+    (map! :map clojure-mode-map
           :localleader
-          "R" #'hydra-cljr-help-menu/body))
+          :desc "refactor" "R" #'hydra-cljr-help-menu/body))
 
   (def-package! flycheck-joker
     :when (featurep! :feature syntax-checker)