Allow nested destructuring with key->key

[Fuco1]

(-let (((&plist :foo->:bar value) (list :foo (list :bar "x"))))
  (message "value is %s" value))

;; should also work like this to support "string"->"keys"
(-let (((&plist :foo -> :bar value) (list :foo (list :bar "x"))))
  (message "value is %s" value)

We can also think about a different delimiter, but not . because that is the cons read syntax.

[cireu]

I think use the form .a.b.c like let-alist to get nested alist is perfectly well.

[Fuco1]

@cireu That works fine if the keys are symbols, but what to do with strings? "foo"."bar" is not correct read syntax, and adding the dot to the string might break lookup for strings with dots.

[cireu]

What about this?

(-let [(&alist (-> "a" "b") value) '((a . (b . 3)))] a)
;; => 3

[twlz0ne]

Or without any delimiter/indicator:

(-let [(&alist '(a "b") value) '((a . (("b" . 3))))] value)
;; => 3