diff options
| author | Kevin Jiang <kittymiky@gmail.com> | 2018-06-30 06:11:03 +0800 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-06-30 00:11:03 +0200 |
| commit | 5992565a4df522444dbe849ccae06e7713b8fb48 (patch) | |
| tree | d10883d54137d565b0029c0de27e8d51353c7bc7 /cider-client.el | |
| parent | 0ca47cbb044a5a7f904064440179785fafd43b5e (diff) | |
Fix classpath libs functionality on Windows (#2356)
Diffstat (limited to 'cider-client.el')
| -rw-r--r-- | cider-client.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/cider-client.el b/cider-client.el index 3824a6aa..038fba2f 100644 --- a/cider-client.el +++ b/cider-client.el @@ -273,9 +273,10 @@ clobber *1/2/3)." "Return a list of all libs on the classpath." (let ((libs (seq-filter (lambda (cp-entry) (string-suffix-p ".jar" cp-entry)) - (cider-sync-request:classpath)))) + (cider-sync-request:classpath))) + (dir-sep (if (string-equal system-type "windows-nt") "\\\\" "/"))) (thread-last libs - (seq-map (lambda (s) (split-string s "/"))) + (seq-map (lambda (s) (split-string s dir-sep))) (seq-map #'reverse) (seq-map (lambda (l) (reverse (seq-take l 4))))))) |