This page is not created by, affiliated with, or supported by Slack Technologies, Inc.
2017-05-23
Channels
- # aleph (9)
- # beginners (30)
- # boot (42)
- # carry (1)
- # cider (148)
- # clara (2)
- # cljsrn (13)
- # clojars (2)
- # clojure (90)
- # clojure-dev (1)
- # clojure-dusseldorf (2)
- # clojure-italy (7)
- # clojure-madison (1)
- # clojure-quebec (1)
- # clojure-russia (19)
- # clojure-sg (1)
- # clojure-spec (14)
- # clojure-uk (90)
- # clojurebridge (1)
- # clojurescript (70)
- # clr (7)
- # core-async (24)
- # cursive (26)
- # data-science (2)
- # datascript (3)
- # datomic (46)
- # devops (2)
- # emacs (6)
- # events (1)
- # figwheel (2)
- # hoplon (200)
- # klipse (2)
- # ldnclj (1)
- # lein-figwheel (4)
- # leiningen (3)
- # off-topic (44)
- # om (70)
- # other-languages (6)
- # pedestal (5)
- # protorepl (1)
- # re-frame (17)
- # reagent (14)
- # schema (2)
- # spacemacs (1)
- # specter (3)
- # test-check (38)
- # unrepl (38)
- # untangled (19)
- # yada (16)
@dottedmag I would just use core functions:
(defn assoc-file [dir-map path content]
(let [xs (str/split path #"/")
dirs (butlast xs)
file-name (last xs)
path-vec (-> (interleave (repeat :dirs) dirs)
vec
(conj :files file-name))]
(assoc-in dir-map path-vec content)))
(assoc-file {} "foo/bar/baz.sh" "#!/bin/bash\n\necho foobar")
Edit: (mapcat vector foo bar)
is just (interleave foo bar)
@madstap Thanks. I've got other operations on the same structure, so I went slightly crazy and created https://github.com/dottedmag/azip