Wrote this fn to parse a line from our log files. Idiomatic?

(require '[java-time :as t])
(defn parse-log-entry [line]
  (let [log-format (array-map :timestamp "\\[([^\\]]+)\\]"
                              :file      "\\[Fl:\\s*([^\\]]+)\\]"
                              :class     "\\[Cl:\\s*([^\\]]+)\\]"
                              :method    "\\[Fn:\\s*([^\\]]+)\\]"
                              :line      "\\[Ln:\\s*([^\\]]+)\\]"
                              :level     "\\[([^\\]]+)\\]"
                              :summary   "\\[([^\\]]+)\\]"
                              :thread-id "([^_]+_[^\\s]+)\\s"
                              :server-ip "([\\d.]+)"
                              :client-ip "([\\d.]+)"
                              :msg       "\\[(.+)$")
        log-entry-regex (->> (concat "^" (vals log-format) "$")
                             (clojure.string/join "\\s*")
                             re-pattern)
        entry (->> (re-find log-entry-regex line)
                   rest
                   (map clojure.string/trim)
                   (map vector (keys log-format))
                   (into {}))
        parse-timestamp #(->> (concat % (repeat \0))
                              (take 24)
                              (apply str)
                              (t/local-date-time (t/formatter "dd-MM-yyyy HH:mm:ss.SSSS")))]
    (-> entry
        (update :line #(Integer/parseInt %))
        (update :timestamp parse-timestamp))))