diff options
author | Roger Gilliar <roger@gilliar.de> | 2015-10-12 18:56:08 +0200 |
---|---|---|
committer | Roger Gilliar <roger@gilliar.de> | 2015-10-19 20:43:22 +0200 |
commit | 915f5639d821be8f1847d80a770840437c358c88 (patch) | |
tree | f65edb8bd3f265e395f076e3d5a0669b476f4969 /cider-macroexpansion.el | |
parent | e9909b86ac06a8df35fbc1280003ed381c25b7fe (diff) |
[Fix #1348] Remove dash dependency
Diffstat (limited to 'cider-macroexpansion.el')
-rw-r--r-- | cider-macroexpansion.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/cider-macroexpansion.el b/cider-macroexpansion.el index 35d68610..4285d9c1 100644 --- a/cider-macroexpansion.el +++ b/cider-macroexpansion.el @@ -31,6 +31,7 @@ ;;; Code: (require 'cider-mode) +(require 'cider-compat) (defconst cider-macroexpansion-buffer "*cider-macroexpansion*") @@ -63,17 +64,17 @@ Possible values are: The default for DISPLAY-NAMESPACES is taken from `cider-macroexpansion-display-namespaces'." (cider-ensure-op-supported "macroexpand") - (-> (list "op" "macroexpand" - "expander" expander - "code" expr - "ns" (cider-current-ns) - "display-namespaces" - (or display-namespaces - (symbol-name cider-macroexpansion-display-namespaces))) - (append (when cider-macroexpansion-print-metadata - (list "print-meta" "true"))) - (cider-nrepl-send-sync-request) - (nrepl-dict-get "expansion"))) + (thread-first (list "op" "macroexpand" + "expander" expander + "code" expr + "ns" (cider-current-ns) + "display-namespaces" + (or display-namespaces + (symbol-name cider-macroexpansion-display-namespaces))) + (append (when cider-macroexpansion-print-metadata + (list "print-meta" "true"))) + (cider-nrepl-send-sync-request) + (nrepl-dict-get "expansion"))) (defun cider-macroexpand-undo (&optional arg) "Undo the last macroexpansion, using `undo-only'. |